Discussion :

[Lalla lbatoul]

Bonjour,

ça fait une semaine que j'essaye de régler un problème qui est le suivant:

Structure de mes tables:

j'ai une table T_Client:

• +NomClient(clé primaire)

et une table T_Model:

• +NomModel (Clé primaire)
• +Nomclient (Clé etrangère)
• +MasterProject

Chaque Client peu avoir plusieur Modèles
et chaque Modèle ne peut appartenir quà un seul client

Sinon j'ai deux comboBox : cmb_client ou je liste tout les NomClient à partir de la table T_Client

et je voudrais à chaque fois que je selectionne un nom de client que j'affiche tout les modèle qui lui sont associés dans une ComboBox nomée :cmb_model

je voudrais savoir tout le code qu'il faut mettre pour reussir ceci..

Voila.. j'espère qu'il yaura des ames charitables qui passeront par ici et m'aidront à surpasser cette souffrance qui dure il ya mnt une semaine..

[mcfly37]

Bonjours,

Avec une petite recherche (google est mon ami et devrais être le tient^^)

http://argyronet.developpez.com/offi...ectitemlistAB/

Cordialement

Mcfly

[Invité]

Bonjour et bienvenue sur le forum Office de DVP

Ce forum regorge énormément de ressources (FAQ et cours).

De plus cette question revient au moins une fois par semaine, donc un tuto à lire : Concevoir une liste qui en alimente une autre

Et voilà une semaine de gagné

En bas de cette page, il y a des liens, va y jeter un coup d'oeil ?

Philippe

[Lalla lbatoul]

merci de la rapidité de vos réponses
Je vais y'aller jeter un coup d'oeil..

[Lalla lbatoul]

Re:
Bon j'ai suivi le tutoriel que vous m'avez envoyé à la lettre mais quand je veu passer de ma première combo à la deuxième j'ai un message qui s'affiche : Enter parameter value

(voir pièce jointe)

[mcfly37]

AReuhh

Pourrait tu afficher le code des comboboxs histoire que l'on puisse voir si il y a une erreur (souvent c'est des petits trucs genre un guillemet oublié...)
Et essaye d'éxécuter le code en mode pas à pas pour voir a quelle ligne ca plante

Cordialement

mcfly

[Lalla lbatoul]

il n'ya qu'un seul code à mettre selon le tutoriel:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub cmb_client_AfterUpdate()
 
Dim Val   As String
Dim SQL        As String
 
  Val = Me!cmb_client
 
  '' Construit la chaîne SQL avec la catégorie concernée
  SQL = "SELECT NomModel,NomClient FROM T_Model WHERE NomClient =" & Val & ""
  '' Affecte la chaîne SQL à la liste des métiers
  cmb_model.RowSource = SQL
  '' Déverrouille la liste des métiers
 ' cmbMetiers.Enabled = True
  '' Donne le focus la liste des métiers
  cmb_model.SetFocus
  '' Déroule la liste des métiers
  cmb_model.Dropdown
 
 
 
 
End Sub

Voili voilou

[mcfly37]

Ok je vois ton problème, en fait vu que tu dimensionne Val comme un string, il faut mettre des quotes :

Code :

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

SQL = "SELECT NomModel,NomClient FROM T_Model WHERE NomClient = '" & Val & "' ;"

[Lalla lbatoul]

youppiiiiiiii::::


merci beaucoup mcFly