Discussion :

[jcdenton2]

Bonjour,

je bute sur un problème de manipulation de recordset.
je souhaite stocker un recordset contenant le résultat d'une instruction SQL, avec ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim requete As String
Dim nb_annexe As DAO.Recordset
Dim dbs As DAO.Database
 
 Set dbs = CurrentDb
 
requete = "SELECT Count(Annexe.Num_Annexe) AS CompteDeNum_Annexe FROM PFPT INNER JOIN Annexe ON PFPT.Num_PFPT = Annexe.Num_PFPT_annexe GROUP BY PFPT.Num_PFPT HAVING (((PFPT.Num_PFPT)= '" & [Forms]![Frm_creation_annexe]![Num_PFPT] & "'));"
 
Set nb_annexe = dbs.OpenRecordset(requete)

A la compilation, j'ai "variable objet ou variable de bloc with non définie"

Vous avez une idée d'où peut venir le problème svp ?

[EricDgn]

Bonjour,

Si Num_PFPT est un nombre, il ne faut pas l'encadrer avec des '

Code :

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

requete = "SELECT Count(Annexe.Num_Annexe) AS CompteDeNum_Annexe FROM PFPT INNER JOIN Annexe ON PFPT.Num_PFPT = Annexe.Num_PFPT_annexe GROUP BY PFPT.Num_PFPT HAVING (((PFPT.Num_PFPT)= " & [Forms]![Frm_creation_annexe]![Num_PFPT] & "));"

Cordialement.

[User]

Bonjour,

En complément pouvez-vous indiquer la ligne de code qui déclenche l'erreur ?

Cdlt,