Discussion :

[Rotoplo]

Bonjour je suis en train de creer une base de donnée.

Dans mon formulaire j'entre une facture.
Facture:
Client_ID
Facture_ID
A chaque facture j'entre un nouveau client.
Et ce client :
Client_ID
Client_Nom
Client_Ville

Client_Ville étant l'ID d'une ville correspondant a la table ville xD
Ville_ID
Ville_Nom
Ville_CodePostal

Et donc je voudrait qu'un champ Code Postal que l'utilisateur du formulaire rempli, me donne une requête sur la liste déroulante des noms des villes ayant le même code postal. Le nom serai ensuite associer a Client_Ville

[Falcdyr]

C'est expliqué dans la Faq (j'essaye de te trouver la page mais le site a l'air down :/) mais pour faire simple:
Sur ton champ CodePostal tu dois créer un Evenement 'Après MAJ' :

Code :

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

1
2
3
4
 
Dim SQL As String
SQL = "Select Ville_Nom From Client_Ville Where Ville_CodePostal = " & Me.TonChampCodePostal & ""
Me.TonChampDeroulantVille.RowSource = SQL

Voila A toi d'adapter pour les noms des champs

[Rotoplo]

Merci Falcdyr.

Une autre question xD J'ai rechercher dans la faq mais je n'arrive pas a trouvé comment faire l'inverse ?

C'est a dire selectionner un client et affichier dans une zone de texte le nom de select Ville_Nom FROM Ville WHERE Ville_Id = Client_Ville

Ca me mets #Nom ?

Je ne comprends pas bien désolé :s

[Siguillaume]

Bonjour et bienvenue sur le forum.
La requête semble juste. L'erreur vient donc au niveau du controle.
Met Ville_Nom comme dans le propriété source.

[Falcdyr]

Tu fais de la même manière mais la ta requête semble erronée:

Code :

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

1
2
3
 
Dim SQL As String
SQL = "Select Ville_Nom From Ville, Client Where Ville.Ville_Id = Client.Client_Ville AND Client_Nom = '" & Me.TonChampContenantLeNom & "' "

Après je sais plus si tu peux faire ca pour une zone texte donc je te conseillerai plutôt la fonction DLookup

Code :

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

1
2
3
4
 
Dim MaVille As String
MaVille = DLookup ("Ville_Nom", "Ville, Client", "Ville.Ville_Id = Client.Client_Ville AND Client_Nom = '" & Me.TonChampContenantLeNom & "' ")
Me.TonChampTexte = MaVille

Voila après a toi d'adapter

[Rotoplo]

Merci beaucoup Falcdyr