Modification table via formulaire

Version imprimable

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:

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:

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

10/04/2009, 09h28
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.
10/04/2009, 09h29
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

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

Code:

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

10/04/2009, 10h03
Tonioyo

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

Code:

DoCmd.RunCommand acCmdSaveRecord

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

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:

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:

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)

10/04/2009, 10h54
munity
j'essaye une autre méthode en filtrant la table par le choix de ma liste mais j'ai une erreur de synthaxe
je ne vois pas ou est le problème
Code:

1 2 strCritere = Forms!F004_MODIFICATION!Code Set RS = DB.OpenRecordset("SELECT * FROM T002_SAISIE_QUALIF WHERE [T002_SAISIE_QUALIF]="" & strCritere & "" & ", dbOpenDynaset)
quelqu'un voit il ce qu'il manque dans la ligne
merci d'avance

munity

j'ai trouvé mais maintenant j'ai un autre message
aucun enregistrement en cours lorsque j'arrive sur le .Edit

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim DB As DAO.Database
Dim RS As DAO.Recordset
MyDate = Date
Set DB = CurrentDb
strCritere = Forms!F004_MODIFICATION!Code
Set RS = DB.OpenRecordset("SELECT * FROM T002_SAISIE_QUALIF WHERE Code="" & strCritere & """, dbOpenTable)
'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

Parce que le resultat de ta requete qui charge ton RS ne retourne aucun enregistrement.
J'ai lu en diagonale, mais juste question, il ne serait pas plus simple de te servir des champs du formulaire et de mettre tes mises a jour dans le beforeupdate du formulaire? Un truc du style:
Code:

1 2 3 4 5 6 7 8 9 with me ![Modifié par] = usrname ![Date Modif] = TDateModif ![Semaine Modif] = Sem(TDateModif) ![Mois Mofif] = Format(TDateModif, "mmmm") ![Année Modif] = Year(TDateModif) ![Heure Modif] = Time end with
et si tu veux faire une sub commune, tu passes le formulaire comme parametre. Bien evidemment, la requete de ton formulaire doit avoir les champs en question.
Autre question :koi:, pourquoi mettre tous ces champs a jour (semine, mois, annee, heure) alors que se sont des champs calcules qui peuvent l'etre sans probleme a la demande. Ca allegera ta base de donneeet evitera d'oublier de mettre a jour l'un des champs dans un autre formulaire

Pour le dernier message écrit il faut tester le recordCount du recordset pour savoir si des enregistrements sont déjà présent ou pas.
Il faut faire attention au fait qu'il y a besoin d'aller au dernier élément pour cette propriétée soit rafraichie
Code:

1 2 3 4 5 6 7 8 9 10 11 Set RS = DB.OpenRecordset("SELECT * FROM T002_SAISIE_QUALIF WHERE Code="" & strCritere & """, dbOpenTable) RS.Movelast RS.moveFirst If RS.RecordCount > 0 Then 'Ya du monde dans le tuyau 'Donc edit Else 'Ya personne 'Donc addnew End If

Je pense aussi que ca c'est mieux :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim RS As DAO.Recordset
 
DoCmd.RunCommand acCmdSaveRecord
 
Set RS = CurrentDb.OpenRecordset("SELECT * FROM T002_SAISIE_QUALIF WHERE Code="" & Me.Code & """, dbOpenTable)
 
With RS
Me.TDateModif = Date
    .Edit
    ![Modifié par] = usrname
    ![Date Modif] = TDateModif
    ![Semaine Modif] = Sem(TDateModif)
    ![Mois Mofif] = Format(TDateModif, "mmmm")
    ![Année Modif] = Year(TDateModif)
    ![Heure Modif] = Time
    .Update
End With
 
RS.Close
Set RS = Nothing
 
DoCmd.Close

merci tonioyo

j'avais je pense trouvé la solution de mon coté à l'instant
cela semble fonctionner en passant par une requête SQL

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim SQL As String
MyDate = Date
Set DB = CurrentDb
strCritere = Forms!F004_MODIFICATION!Code
SQL = "SELECT * FROM T002_SAISIE_QUALIF WHERE (((Code)=""" & strCritere & """));"
Set RS = DB.OpenRecordset(SQL)
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

merci encore
n'hésite pas à me dire si problème éventuel dans mon code sinon je pense que ce post passera à l'état résolu
munity

10/04/2009, 12h34
munity

et pour répondre à belu33fr

Citation:

Autre question , pourquoi mettre tous ces champs a jour (semine, mois, annee, heure) alors que se sont des champs calcules qui peuvent l'etre sans probleme a la demande. Ca allegera ta base de donneeet evitera d'oublier de mettre a jour l'un des champs dans un autre formulaire

je ne souhaite pas que les information de modifications soient visibles par l'utilisateur c pour cela que je passe par du vba qui calcule les champs
enfin peut être que j'utilise mal le vba access (pas très à l'aise car débutant)
mais cela fonctionne c déja pas mal

merci quand meme de ta réponse et de ta proposition

munity
10/04/2009, 12h36
Tonioyo

Bah de rien :-) regarde mon message plus haut j'ai nettoyé un peu le code.
@ bientôt
:D
10/04/2009, 12h59
munity

OK
Merci encore pour ton aide