Discussion :

[YannC]

Bonjour,

J'ai fais un formulaire me permettant de déplacer un dossier de projet en cours vers le dossier projet archivé. Le formualire a pour source ma table projets.
Je souhaite modifier le champ EtatProjet qui avait la valeur "En_cours" à "Archivé".
Je ne sais pas comment faire.

J'ai essayé avec des recordset, mais sans résultat.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim Obj_Recordset
' Instanciation de l'objet
Set Obj_Recordset = Server.CreateObject("ADODB.Recordset")
' Ouverture
Obj_Recordset.Open "SELECT * FROM Table Projets WHERE NumProjet = strNProjets", _
                  Obj_Connection, _
                  adOpenKeySet, _
                  adLockOptimistic
 
Obj_Recordset.Fields("EtatProjet") = "Archivé"
Obj_Recordset.Update ' Mise à jour
Obj_Recordset.Close ' Fermeture

Merci pour vos réponses

[marot_r]

Essaye cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"SELECT * FROM Table Projets WHERE NumProjet = """  & strNProjets & """"

Maintenant si c'est l'enregistrement courrant dans un formulaire lié tu peux sans doute aussi écrire simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

me.EtatProjet="Archivé"

à la place de tout ton code.

Il faudra détreminé sur quel événement mettre cette instruction mais c'est plus direct.

Aussi je te recommande d'utilser des constantes symboliques pour tes états plutôt que des chaîne de caractères car comme cela le compilateur peut contrôler que l'état fait parti des valeurs valides.

Pour ce faire tu peux créer un module "ConstantesGlobales" où tu stocke toutes ces valeurs et tu écrit un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

public const ETAT_ARCHIVE as string = "Archivé"

Dans ton code tu mets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

me.EtatProjet=ETAT_ARCHIVE

.

Un convention commune veut que les constantes soient écrites en majuscule pour les distinguer plus facilement des variables.

A+

[YannC]

Tout d'abord, merci pour ta réponse.

J'ai modifié la requête, mais il me met une erreur 424, objet recquis

J'ai bien essayé avant de recordset de faire sa directement comme mentionné précédemment avec un Me.EtatProjet = "Archivé" mais cela ne fonctionne pas.
Pourtant mon formulaire à bien pour source ma table projet. Et j'ai aussi autorisé l'entré de données.
Sa m’intéresserai de connaitre la solution, sa me faciliterai la tache pour d'autres formulaire.

[pc75]

Bonjour,

Et au lieu d'ouvrir un recordset, si tu ouvrais une connexion pour faire une requête de mise à jour ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
"update Table Projets set EtatProjet='Archivé' WHERE NumProjet = " & "'" & strNProjets & "'"

[YannC]

Bonjour,

Tout d’abord, merci pour vos réponses

Il est vrai que étant débutant en vba, je ne prend pas forcément les bon choix "technologique".
Pour ce qui est de la connection, je ne comprend pas, j'ai recherché sur le FAQ et internet, mais rien de bien clair je trouve.
Je suppose que pour le code posté précédemment, il est nécessaire de déclarer la connection?

J'aurai voulu savoir pourquoi cela ne fonctionne pas avec la méthode:
Me.EtatProjet = "archivé"
Pour comprendre mon erreur.

Pour ce qui est des autres solutions, elles semblent très intéressante, mais vu mon niveau, je ne sais pas laquelle choisir.
Pourriez vous m'indiquer laquelle est la plus adaptée, afin que je puisse recentrer mes recherche?

Merci pour vos réponses à venir.

[marot_r]

Attention la technique ci dessous ne marche que si c'est l'enregistrement courrant dans un formulaire lié tu peux sans doute aussi écrire simplement :

Code :Sélectionner tout - Visualiser dans une fenêtre à partme.EtatProjet="Archivé"

Précise où ton code s'exécute.

A+