Discussion :

[rene10]

*Bonjour,*

j'ai un formulaire de saisie client avec comme champs : code_client,nom,prénom etc....

Dans le formulaire "Commande", lorsque je saisie une commande, comment faire pour que le nom et prénom du client apparaissent automatiquement après avoir saisie leur code ?

*Merci.*

[Eskehnach]

bonjour,

je ne sait pas comment est constituer ta fenêtre mais tu peut gérer un évènement sur perte de focus et dans cette évènement tu fait un code du genre:

Code :

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

1
2
3
4
5
6
7
Private sub champclient_lostfocus()
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("SELECT nom, prenom FROM matable WHERE code_client='" & NomDuChamp & "';")
champNom = rst!Nom
champPrenom = rst!prenom
rst.close: Set rst = Nothing
End Sub

[rene10]

J'ai bien appliqué ta fonction.

lorsque le code client existe dans la base tout va bien.
mais lorsque je rentre un code client inconnu il me génère une erreur ?

Comment fait on pour gérer dans le cas ou le code client n'existe pas ?

[Domi2]

Bonjour,

Si la structure de ta base est correcte, tu n'as pas besoin de code pour faire ce que tu veux.

Une simple requête comme source de ton formulaire "Commandes" reprenant les infos qui vont bien de la table "Commandes" et de la table "Clients" suffit.

lorsque je rentre un code client inconnu il me génère une erreur ?

C'est normal. Dans une relation 1 à plusieurs (un client peut avoir plusieurs commandes), on commence toujours par renseigner le côté 1 de la relation.

On peut toujours trouver une solution, mais c'est juste pour essayer de refaire (plus ou moins mal) ce qu'Access fait très bien tout seul.

Avant d'aller plus loin, un peu de lecture : Comprendre les jointures dans Access.

Il serait également intéressant que tu postes une image de tes tables et relations.

Domi2

[Eskehnach]

Bonjour,

Ou sinon par code tu vérifie par ton recordset n'est pas vide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private sub champclient_lostfocus()
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("SELECT nom, prenom FROM matable WHERE code_client='" & NomDuChamp & "';")
If NOt rst.EOF Then
 champNom = rst!Nom
 champPrenom = rst!prenom
Else
 'msg d'erreur indiquant que le code client n'est pas présent ou tout autre action
End If
rst.close: Set rst = Nothing
End Sub

Sinon les explications de Domi2 son aussi pertinente voilà moi ce que je te propose comme solution
Les cartes sont entre tes mains