Discussion :

[viavba]

bonjours,

je viens de regarde le tuto sur les recherches muliti critere et maintenant je veux en faire un a ma sauce.

mais je bloque a la seconde etape.

j'ai pour l'instant 2 liste deroulante

Code :

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

cmbService

et

Code :

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

cmbNom

dans le premiere liste je recuper la liste des services de ma table USER avec cette requette :

Code :

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

SELECT USER.Initiale, USER.Service FROM [USER] GROUP BY USER.Initiale, USER.Service ORDER BY USER.Service;

maintenant je veux que ma seconde liste deroulante recupere les noms de personnes qui font partie du service celectionné.

alors j'ai commencé comme ca :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CmbNom_BeforeUpdate(Cancel As Integer)
    Dim SQL As String
    SQL = "SELECT Nom FROM [USER]Where User!Numéro <> 0"
    If Me.CmbNom Then
        SQL = SQL & "And User!Service = '" & Me.CmbService & "' "
    End If
    SQL = SQL & ";"
 
End Sub

mais et la je ne sais pas comment renvoyé le resultat de ma requette ???
de plus ma requette peux etre fausse mais comme j'ai pas le resultat, je ne peux pas savoir, GRRRR.

j'espere que je suis claire dans mon explication.

merci d'avance

Par contre j'ai noté des difference entre le code du tuto et le fichier qui est en telechargement sur la meme page.
a qui dois je en parler ????

[Invité]

Bonjour

Par contre j'ai noté des difference entre le code du tuto et le fichier qui est en telechargement sur la meme page.
a qui dois je en parler ????

A l'auteur de l'article

Pour lier tes listes, il y a un tuto sur le sujet : http://argyronet.developpez.com/offi...ectitemlistAB/

Philippe

[viavba]

merci beaucoup de ta rapideté,
je regarde ca et je te dis si ca me convient pour ce que je veux faire.

[Access Newbie]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CmbService_AfterUpdate(Cancel As Integer)
    Dim SQL As String
    SQL = "SELECT Nom FROM [USER]Where User!Numéro <> 0"
    If Me.CmbNom Then
        SQL = SQL & "And User!Service = '" & Me.CmbService & "' "
    End If
    SQL = SQL & ";"

me.cmbNom.rowsource=sql
me.cmbNom.requery

End Sub

Je pense que tu as un pitit probleme sur l'evenement, tu dois declencher ta procédure apres la mise a jour de la combo service.

En esperant t'avoir aidé

[viavba]

je suis d'accord avec cette correction

Code :

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

CmbService_AfterUpdate

mais le reste ne fonctionne pas

je poursuit dans la lecture du tuto

[viavba]

super merci ca repond a ma question

Le tuto bien sur