Discussion :

[imeys]

bonjour, lorsque j'ajoute un client dans ma table via un formulaire ajout, il s'ajoute bien mais dans le formulaire de consultation, le nom de la nouvelle personne s'y retrouve mais ses coordonnées ne change pas dans le formulaire.
je m'explique, en ouvrant le formulaire de consultation, Adam est le client n°1.
Lorsque j'ajoute un client dans le formulaire ajout, par ex paul doit etre le n°2 vu qu'il est nouveau.
et bien actuellement, dans le formulaire consultation, dans la liste déroulante, ce retrouve bien le nom de paul mais toutes les autres données reste celle d'ADAM donc Paul = n°1

J'ai essayer Me.form.requery, ca fait planter le programme car jai plus de 15000 client, j'ai essayer refresh et ca ne change pas.
Que dois je faire?
merci

[FreeAccess]

Bonjour,

.....dans le formulaire consultation, dans la liste déroulante, ce retrouve bien le nom de paul mais toutes les autres données reste celle d'ADAM donc Paul = n°1

Ici, ta Zone de liste déroulante te sers bien à te positionner directement sur la "fiche" du nom sélectionné...
Si OUI, et si lors de la sélection d'un nom les données ne changent pas, regarde tu côté du code.....certainement une erreur.
Sinon, tu peux sur ton formulaire de consultation, créer une zone de liste déroulante à l'aide de l'assistant en choisissant l'option "Rechercher un enregistrement dans mon formulaire basé sur la valeur que j'ai sélectionnée dans la liste déroulante"

[imeys]

voila le code de la zone de liste, si vous pouvez maider a me dire s'il y a une erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub ListeClient_AfterUpdate()
 
    DoCmd.GoToControl "[No_Client]"
    DoCmd.FindRecord ListeClient
 
    Me.listeCF = Me.No_CF
 
    'Mise à jour de la liste
    Me.listeCF.Requery
 
End Sub

voila le code du formulaire:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Current()
    Me.ListeClient = Me.No_client
    Me.RechercheNO = Me.ListeClient
 
    Me.Form.Refresh
 
 
End Sub

[Heureux-oli]

Es-tu certain d'ajouter un enregistrement et pas d'en remplacer ou en modifier un ?