Discussion :

[munity]

salut le phorum

j'ai créé un formulaire qui me permet de supprimer ou modifier l'enregistrement d'une table
ce formulaire me liste les enregistrements de la table, suivant le choix je supprime ou appel un second formulaire pour modifier des informations
à la validation des modification, j'ai ajouté des champs pour voir qui et quand a été modifié la table
mon problème c'est que quelquesoit l'enregistrement choisi, les informations concernant le nom et la date de modification se mettent sur la première ligne de ma table ?
ci dessous le code pour l'appel du formulaire avec la liste déroulante

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
 
Private Sub Modification_Click()
On Error GoTo Err_Modification_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "F004_MODIFICATION" 
stLinkCriteria =" & "'" & Me![LstCode] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    Forms!F004_MODIFICATION!TThème.SetFocus
    Forms!F004_MODIFICATION!LstThemes.Visible = False  
Exit_Modification_Click:
    Exit Sub
Err_Modification_Click:
    MsgBox Err.Description
    Resume Exit_Modification_Click 
End Sub

je choisi donc le numéro à modifier et valide avec ce code

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
Private Sub CValidation_Click()
Dim DB As DAO.Database
Dim RS As DAO.Recordset
MyDate = Date
Set DB = CurrentDb
Set RS = DB.OpenRecordset("T002_SAISIE_QUALIF", dbOpenTable)
With RS
TDateModif = Date
    DoCmd.RunCommand acCmdSaveRecord
    .Edit
    ![Modifié par] = usrname
   ![Date Modif] = TDateModif
   ![Semaine Modif] = Sem(Forms!F004_MODIFICATION!TDateModif)
   ![Mois Mofif] = Format(Forms!F004_MODIFICATION!TDateModif, "mmmm")
   ![Année Modif] = Year(Forms!F004_MODIFICATION!TDateModif)
   ![Heure Modif] = Time    
    .Update
End With
RS.Close
Set RS = Nothing
Set DB = Nothing
    DoCmd.Close
End Sub

les lignes en rouge de code ci dessous se mette à jour systèmatiquement sur la première ligne quelquesoit le choix de ma liste
quelqu'un a t il une idée de la raison ?

merci d'avance

munity

[Tonioyo]

Bonjour,

Quand on ouvre un recordset il se place, par défaut, sur le premier enregistrement.

pour se déplacer dans recordset il faut utiliser les méthodes Move, MoveNext, Moveprevious, MoveFirst et MoveLast de cet objet.

[munity]

je me disais bien que la solution passé par un movenext
débutant dans le développement vba access
et sans vouloir abuser
pourrais tu me dire à quel endroit du code je dois mettre le move afin de cibler l'enregistrement choisi

munity

[munity]

je pense avoir trouvé
quelqu'un pourrais t il me confirmer le code ci dessous

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
Private Sub CValidation_Click()

Dim DB As DAO.Database
Dim RS As DAO.Recordset
MyDate = Date
Set DB = CurrentDb
Set RS = DB.OpenRecordset("T002_SAISIE_QUALIF", dbOpenTable)
With RS
TDateModif = Date
    DoCmd.RunCommand acCmdSaveRecord
    .MoveNext
    .Edit
    ![Modifié par] = usrname
    ![Date Modif] = TDateModif
    ![Semaine Modif] = Sem(Forms!F004_MODIFICATION!TDateModif)
    ![Mois Mofif] = Format(Forms!F004_MODIFICATION!TDateModif, "mmmm")
    ![Année Modif] = Year(Forms!F004_MODIFICATION!TDateModif)
    ![Heure Modif] = Time
    .Update
End With
RS.Close
Set RS = Nothing
Set DB = Nothing
    DoCmd.Close
End Sub

[Tonioyo]

En fait ce code va modifier le second enregistrement,
Je ne sais pas si il est vraiment utile de faire le :

Code :

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

    DoCmd.RunCommand acCmdSaveRecord

Mais je n'ai pas une bonne vision de ce que tu souhaites faire exactement.

[munity]

Ben en fait
par le formulaire avec la liste déroulante je choisi un enregistrement
le formulaire s'affiche avec les informations précèdemment saisie
je modifie certains champs suivant les besoins
les modifications apportés à ces champs sont bien modifiés sur la ligne correspondante de la table : pas de problèmes
par contre les informations que j'ajoute via vba sur le nom et la date de modification ne sont pas prise en comptes sur le bon enregistrement ?

Code :

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

1
2
3
4
5
6
![Modifié par] = usrname
    ![Date Modif] = TDateModif
    ![Semaine Modif] = Sem(Forms!F004_MODIFICATION!TDateModif)
    ![Mois Mofif] = Format(Forms!F004_MODIFICATION!TDateModif, "mmmm")
    ![Année Modif] = Year(Forms!F004_MODIFICATION!TDateModif)
    ![Heure Modif] = Time

et l'instruction

Code :

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

DoCmd.RunCommand acCmdSaveRecord

fait en sorte que je n'ai pas le message 'enregistrer les modification dans le formulaire'

je n'arrive pas à lier le numéro d'enregistrement à mes champs qui ne sont pas dans le formulaire de modification (voir code ci dessus)