Discussion :

[ez29kiel]

Bonjour,
j'ai le code suivant qui me permet de sasir un nouvel enregistrement en copiant différentes valeurs, ceci marche bien. Par contre sur le même fomulaire j'ai mis une liste qui me permet d'afficher ce qui a été saisie, avec une mise à jour à chaque enregistrement. Mais j'ai un décalage dans l'affichage dans la liste.
Quand je clique une première fois, l'enregistrement se fait bien celui ci n'apparait pas dans la liste, par contre au deuxième clique la liste met à jour l'enregistrement précédent, j'ai donc un décalage de "1 clic" dans la mise à jour:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Commande15_Click()
 
DoCmd.GoToRecord , , acNewRec
 
Me.ApplicationId.Value = Me.cboAppli.Value
Me.MatiereDeRefId.Value = Me.cboMat.Value
Me.NomListeTest.Value = Me.tboDescription.Value
Me.TestLieId.Value = Me.lsTest.Value
 
Me.LsTestAFaire.Requery
 
End Sub

Je ne comprend pas la raison de ce décalage qui peut être source d'erreur lors de la saisie.
Je suis preneur de toutes remarques

Merci à vous de m'avoir lu

[ez29kiel]

En fait je viens de trouver la solution, à la fin de l'enregistrement il fallait que j'aille au nouvel enregistrement pour valider celui que je venais de faire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Commande15_Click()
 
DoCmd.GoToRecord , , acNewRec
 
Me.ApplicationId.Value = Me.cboAppli.Value
Me.MatiereDeRefId.Value = Me.cboMat.Value
Me.NomListeTest.Value = Me.tboDescription.Value
Me.TestLieId.Value = Me.lsTest.Value
DoCmd.GoToRecord , , acNewRec
Me.LsTestAFaire.Requery
 
End Sub

C'est forgeant qu'on devien forgeron