Discussion :

[cyberspace7119]

Bonjour à tous !

Je suis actuellement débutant sur Access 2003, et je dois créer une application en VBA.
A un certain moment, dans cette application, je dois pouvoir modifier un enregistrement spécifique dans une table de la base de données (pour cela, j'ai utilisé une requête qui recherche cet enregistrement).
J'ai donc utilisé la méthode "RecordSet", l'enregistrement s'affiche sur mon formulaire, je modifie quelques paramètres, et... voilà mon problème :
- Une fois l'enregistrement modifié, je me retrouve avec l'enregistrement modifié ET l'enregistrement précédent !!! Plus clairement, si je souhaite modifier mon enregistrement avec Nom=1 en lui donnant Nom=2, je me retrouve avec deux enregistrements (celui avec Nom=1 et celui avec Nom=2) dans la table de la base de données, ce qui embarassant !

Si quelqu'un aurait une idée pour me dépanner, ce serait super.

Voici le code concernant le RecordSet (la requête étant beaucoup trop longue, je ne l'ai pas écrite, mais j'indique où elle est placée. En fait, elle ne fait que me renvoyer un enregistrement dont l'ID correspond à celui que je lui indique) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
' DEFINITION DES VARIABLES
Dim qdf As DAO.Database
Dim rcs As DAO.Recordset
 
' RECUPERATION DE LA BASE DE DONNEES (ici, je l'ai appelée "BaseDeDonnees")
Set qdf = DBEngine.OpenDatabase("C:\Access\BaseDeDonnées.mdb")
 
' REQUETE D'AFFICHAGE
strSQL = "...Requête..."
 
' OUVERTURE DU RECORDSET
Set rcs = qdf.OpenRecordset(strSQL, dbOpenDynaset)
 
' PASSAGE EN MODE MODIFICATION
rcs.Edit
 
' MODIFICATION DES DONNEES (ici, par exemple, je modifie le nom d'un utilisateur dans un enregistrement de la table UTILISATEUR)
Me.Nom.Value = rcs!Nom
 
' FERMETURE DU RECORDSET
rcs.Close
qdf.Close
Set rcs = Nothing
Set qdf = Nothing

Merci d'avance !!!

[Kihmé Xs]

d'où l'intéret d'avoir une clé primaire, comme ça pas d'appel par le nom mais par la clé primaire qui ne changera jamais et qui est unique.

[cyberspace7119]

Oui, je suis au courant, mais j'appelle bien la requête en utilisant l'ID (qui est la clé primaire). C'est lors de l'enregistrement des données que je ne parviens pas à faire en sorte qu'il conserve le même ID.
Il me semble qu'il faut bien faire un ".Update" avant de fermer le recordset, non ?

[cyberspace7119]

De plus, je suis désolé, j'ai fait une erreur sur mon code

Quand j'ai noté :

Code :

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

Me.Nom.Value = rcs!Nom

...en fait, je ne modifie pas les données, mais je les affiche dans les champs du formulaire ! Ici, j'affiche le nom d'un utilisateur.

Après, je souhaite modifier les enregistrements directement sur les champs du formulaire, et enregistrer les modifs ensuite sur cet enregistrement sans créer de doublons. Quelqu'un aurait une idée ?

Désolé de cette erreur !

[Invité]

Bonjour

Plusieurs choses

1 - Ici

Code :

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

Me.Nom.Value = rcs!Nom

, il faut inverser
2 - Il te faut ensuite un

Code :

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

rcs.Update

pour finir la mise à jour.

Starec

[cyberspace7119]

Merci Starec, pour ton aide

Bonne nouvelle : la modification s'effectue bien
Mauvaise nouvelle : il y a encore un ajout qui s'effectue
Je me retrouve donc avec deux enregistrements modifiés !

En fait, je pense que cela a à voir avec l'emplacement du code :

Dans Form_Activate, j'effectue les tâches suivantes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
' DEFINITION DES VARIABLES
Dim qdf As DAO.Database
Dim rcs As DAO.Recordset
 
' RECUPERATION DE LA BASE DE DONNEES (ici, je l'ai appelée "BaseDeDonnees")
Set qdf = DBEngine.OpenDatabase("C:\Access\BaseDeDonnées.mdb")
 
' REQUETE D'AFFICHAGE
strSQL = "...Requête..."
 
' OUVERTURE DU RECORDSET
Set rcs = qdf.OpenRecordset(strSQL, dbOpenDynaset)
 
' AFFICHAGE DE L'ENREGISTREMENT DANS LES CHAMPS DU FORMULAIRE
' (ici, par exemple, j'affiche le nom d'un utilisateur dans un champ du formulaire)
Me.Nom.Value = rcs!Nom

Et dans Form_Close :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
' PASSAGE EN MODE MODIFICATION
rcs.Edit
 
' MODIFICATION DES DONNEES (après avoir modifié le champ Nom du formulaire)
rcs!Nom = Me.Nom.Value
 
' MISE A JOUR DES DONNEES
rcs.Update
' FERMETURE DU RECORDSET
rcs.Close
qdf.Close
Set rcs = Nothing
Set qdf = Nothing

Y aurait-il une erreur dans le code ?

[Invité]

Re

Qu'y a til dans ta requête ?

Elle ne devrait te retourner qu'un seul enregistrement, est-ce le cas ?

Starec