Reprise du message précédent :
sait pas sa

nan laisse tombé sait moi qui a marquai une betise

et si t'allais jouer à Colin-Maillard au bord d'une falaise ?

bin j'ai que sa comme code
 
Option Compare Database
Const Sourcezoneliste1  As String = "Renseingnement"        'Table source de ZoneListe1
Const Champzone1 As String = "Patient"                      'Champ table données correspondant à Zoneliste1
Const Sourcezoneliste2  As String = "Renseingnement"        '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 = "Patient"                       'Champ de tri ORDER BY n°1
Const Champtri2 As String = "Age"                           '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
    Requete
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

use: Brain: no such file or directory

j'ai alerté

Bon, y'en a pour 10 ans, je suggère donc à l'auteur la lecture des ouvrages suivants :
- Pour acquérir les bases
http://www.amazon.fr/Cours-dorthog [...] 2011161185
- Pour approfondir
http://www.amazon.fr/VBA-Access-20 [...] 794&sr=1-1

Voilà, vous pouvez éteindre votre PC et reprendre une activité normale, atchao bonsoir.

edit: et merde, le premier est épuisé