Renvoie resultat requete dans zone de texte

Question

Bonjour,

Voila je voudrais mettre le résultatde ma requete dans une zone de texte sauf que je n'y arrive pas j'ai le code suivant: 

        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


Mais il me mets le message d'erreur suivant : 
 - Erreur d'execution 3354.
 - Cette sous requete peut retourner au plus un enregistrement.

Je ne vois pas comment faire car ma requete count va forcément me retourner un seul résultat ...

Cordialement.

sya21 · Answer

met tout ton code pour voir , avec tes variables

DarkDoudou · Answer

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

DarkDoudou · Answer

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 .

Renvoie resultat requete dans zone de texte

3 réponses

Votre réponse

Discussions similaires

Newsletters