Discussion :

[popofpopof]

bonjour

j'ai une liste déroulante dont voilà le sql :

Code :

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

1
2
3
SELECT [suivi modifiacation formulaire].NUM_LOGE, [suivi modifiacation formulaire].NOM_CLIENT, CLIENT.NUM_OPERATION
FROM CLIENT RIGHT JOIN [suivi modifiacation formulaire] ON CLIENT.NUM_CLIENT = [suivi modifiacation formulaire].NUM_CLIENT
ORDER BY [suivi modifiacation formulaire].NUM_LOGE;

je souhaite que ma liste déroulante affiche dans le formulaire la fiche qui a pour critère le NUM_OPERATION et NUM_LOGE que l'on choisi dans la liste déroulante

je fais ça car un logement a un numero que l'on peut retrouver dans plusieurs opérations donc il me faut les deux critères.

le code vba pour que le num_loge j'ai fait ça et ça marche mais je ne sais pas comment rajouter la valeur pour NUM_OPERATION

Code :

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

1
2
3
4
5
6
7
8
Private Sub listederoulante_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[NUM_LOGE] = '" & Me![listederoulante] & "'"
       If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

qui peut m'aider??

[popofpopof]

j'ai trouvé donc pour les suivants voilà la réponse

Code :

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

 rs.FindFirst "[NUM_LOGE] = '" & Me![Modifiable16] & "' and [NUM_OPERATION] = " & Str(Nz(Me![Modifiable8], 0))