Bonjour,
Je suis en trin de crée une base de donnée sous acces ma table et crée ma requette aussi et mais formulaire mais je souhaite crée une requette multicritére voila se que j'ai taper mais sa ne marche pas.
 
Option Compare Database
 
End Sub
Option Compare Database
Const Sourcezoneliste1  As String = "Patient"      'Table source de ZoneListe1
Const Champzone1 As String = "Patient"         'Champ table données correspondant à Zoneliste1
Const Sourcezoneliste2  As String = "Patient"   'Table source de ZoneListe2
Const Champzone2 As String = "Age"                'Champ table données correspondant à Zoneliste2
'Préciser obligatoirement 4 champs de tri, même plusieurs fois le même
Const Champtri1 As String = "NomFamille"        'Champ de tri ORDER BY n°1
Const Champtri2 As String = "EtabAdapt2"        'Champ de tri ORDER BY n°2
 
Private Sub Form_Open(Cancel As Integer)    'Initialisation des listes de critères
With ZoneListe1                             'avec les constantes
    .RowSourceType = "Table/Query"
    .RowSource = Sourcezoneliste1
    .ColumnHeads = False
End With
 
With ZoneListe2
    .RowSourceType = "Table/Query"
    .RowSource = Sourcezoneliste2
    .ColumnHeads = False
End With
 
End Sub
 
Private Sub LancerRequete_Click()   'Bt Requête
    Patient Requête
End Sub
 
Private Sub RequeteMulticriteres()
Dim strSQL As String
 
'Requête SQL si aucun critère sélectionné
strSQL = "SELECT * FROM " & Patient & " WHERE ([" & Champzone & "] Like '*' "
 
'Recueillir les critères renseignés
If Me.ZoneListe1 <> "" Then
    strSQL1 = " And [" & Champzone1 & "] Like '" & Me.ZoneListe1 & "'"
    Else
    strSQL1 = ""
End If
 
If Me.ZoneListe2 <> "" Then
    strSQL2 = " And [" & Champzone2 & "] Like '" & Me.ZoneListe2 & "'"
    Else
    strSQL2 = ""
End If
 
'Création de la requête SQL finale
strSQL = strSQL & strSQL1 & strSQL2 & strSQL3
'Tri final des enregistrements
strSQL = strSQL & " ) ORDER BY " & Champtri1 & ", " & Champtri2
 
'Affichage de la requête SQL finale
'MsgBox strSQL
 
'Remplir le sous formulaire avec la requête
Me.[LignesRequete].Form.RecordSource = strSQL
End Sub
 
Qui peut me donner un coup de main????????

doublon => fermeture
http://forum.hardware.fr/hfr/Progr [...] 2965_1.htm