Renvoie resultat requete dans zone de texte

met tout ton code pour voir , avec tes variables

cela donne ca :

Private Sub cmbDESTINATION_AfterUpdate()
Dim SQL As String
Dim SORTIE As DAO.Database
Dim DESTINATION As DAO.Database
Dim PARTICIPANT As DAO.Database
Dim enregistrement As DAO.Recordset
Dim numsor As Single
Dim numdes As Single

SQL = "SELECT * FROM DESTINATION WHERE LibelleDestination= '" & cmbDESTINATION & "' ;"
Set DESTINATION = CurrentDb
Set enregistrement = DESTINATION.OpenRecordset(SQL, dbOpenSnapshot)
If enregistrement.RecordCount = 1 Then
numdes = enregistrement.Fields("NumDestination")
End If

SQL = "SELECT * FROM SORTIE WHERE SORTIE.DateDebutSortie= '" & cmbSORTIE & "' AND SORTIE.NumTypeSortie = " & cmbTYPESORTIE & " AND SORTIE.NumDestination=" & numdes & " ;"
Set SORTIE = CurrentDb
Set enregistrement = SORTIE.OpenRecordset(SQL, dbOpenSnapshot)
If enregistrement.RecordCount = 1 Then
numsor = enregistrement.Fields("NumSortie")
End If

SQL = "SELECT COUNT(Nom)As compte FROM PARTICIPANT WHERE NumCategorie=1 AND NumFacture=(SELECT NumFacture FROM FACTURATION WHERE NumSortie= " & numsor & ");"
Set PARTICIPANT = CurrentDb
Set enregistrement = PARTICIPANT.OpenRecordset(SQL, dbOpenSnapshot)
If enregistrement.RecordCount = 1 Then
Me.NbAdu = enregistrement.Fields("compte")
End If

End Sub

En faite c'est dans la syntaxe de ma re^quête qu'il y a un soucis je pense... mais je n'arrive pas a voir ou .