Discussion :

[moni27b]

Bonjour j'ai commencé à crée un formulaire de recherche de Fabrice CONSTANSSit, mais j'ai un probléme dans la partie (V. Interaction des zones listes)
J'ai bien mis le code mais j'arrive pas à récuperer les champs de mes table quand je selectionne une table

[User]

Bonjour,

L'auteur sera certainement mieux te répondre, mais as-tu déjà bien mis la propriété "Origine source" de la liste déroulante "cbo_champ" sur "liste des champs" ?

Accompagné du code VBA sur l'événement après maj de la liste "cbo_table" :

Code :

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

1
2
Me.cbo_champ.RowSource = "[" &  Me.cbo_Table.Value & "]"
Me.cbo_champ.Requery

Cdlt,

[moni27b]

Oui j'ai mis tous ca mais j'arrive pas à récupérer les valeur des champs sur la liste déroulante cbo_champ

[User]

Peux-tu poster une image avec la feuille des propriétés de la liste déroulante "cbo_champ" ?

Si bien sur le code est bien relié à "cbo_table", ce qui est visible sur l'événement après maj dans la liste des événements, avec la mention [Procédure événementielle].

a+

[moni27b]

en effet je vient de réussir à le faire il fallait juste enlever les []

Code :

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

1
2
Me.cbo_champ.RowSource = Me.cbo_table.Value
        Me.cbo_champ.Requery

Ensuite j'ai un probléme sur ma liste je veux ouvrir un formulaire d'information sur le client en double click sur le numero du client
J'ai mis ce code la mais il me demande de rentrer une valeur de paramétre

Code :

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

1
2
3
4
5
Private Sub lst_resultat_DblClick(Cancel As Integer)
 
DoCmd.OpenForm "Mes_information", , , "IPN_CU = " & Me.lst_resultat
 
End Sub

Voila une image

[User]

Essaie de mettre des quotes de chaque côté du paramètre, car c'est du texte :

Code :

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

1
2
3
4
5
Private Sub lst_resultat_DblClick(Cancel As Integer)
 
DoCmd.OpenForm "Mes_information", , , "IPN_CU = '" & Me.lst_resultat & "'"
 
End Sub

a+

[moni27b]

Merci ca marche .
La j'essaye de mettre des conditions par exemple si je recherche des besoin et pas les client je veux ouvrir formulaire des besoin
J'ai mis ce code mais il marche pas bien

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub lst_resultat_DblClick(Cancel As Integer)
If cbo_table.Value = Correspont_u Then
 
        DoCmd.OpenForm "Mes_information", , , "IPN_CU = '" & Me.lst_resultat & "'"
End If
 
If cbo_table.Value = Besoin Then
DoCmd.OpenForm "Besoin", , , "ref_besoin = '" & Me.lst_resultat & "'"
End If
 
End Sub

[User]

Toujours le problème des guillemets pour du texte :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub lst_resultat_DblClick(Cancel As Integer)
 
If cbo_table.Value = "Correspont_u" Then 
        DoCmd.OpenForm "Mes_information", , , "IPN_CU = '" & Me.lst_resultat & "'"
elseIf cbo_table.Value = "Besoin" Then
       DoCmd.OpenForm "Besoin", , , "ref_besoin = '" & Me.lst_resultat & "'"
End If
 
End Sub

a+

[moni27b]

D'accord Merci

[User]

Le mieux serait de clore la discussion et d'en créer une nouvelle