Chercher le nombre d'enregistrement avec l'aide d'une requête VBA dans ACCESS

Résolu
lebelm
Messages postés
17
Date d'inscription
mercredi 25 décembre 2002
Statut
Membre
Dernière intervention
11 juin 2006
- 13 déc. 2005 à 16:40
lebelm
Messages postés
17
Date d'inscription
mercredi 25 décembre 2002
Statut
Membre
Dernière intervention
11 juin 2006
- 13 déc. 2005 à 17:01
Voilà,

J'ai une table TVehicule et je dois rechercher la quantité de véhicules qui ont toujours un statut de "À Planifier". Ma requête semble très bien fonctionner mais il me donne une erreure qui est la suivante

Erreur d'exécution '3709' :

Impossible d'utiliser cette connexion pour effectuer cette opération.
Elle est fermer ou non valide dans ce contexte.

Voici mon code source :

Private Sub Form_Load()


Dim RS As New ADODB.Recordset
Dim Totalreponse As Integer


Requete = "SELECT count(*) AS Totalreponse FROM TVehicule WHERE TVehicule.Veh_Cont_Numero=" & Cont_Numero.Value & _
" AND TVehicule.Veh_Statut = 1 ;"

RS.Open
Count_1.Caption = RS!Totalreponse
RS.Close


End Sub

Est-ce que qqun pourrais y jeter un coup d'oeil et me dire ce qui ne fonctionne pas.

Merci

2 réponses

nanou1605
Messages postés
36
Date d'inscription
mercredi 10 mars 2004
Statut
Membre
Dernière intervention
15 décembre 2006

13 déc. 2005 à 16:55
Salut,

Essaye comme cela

Private Sub Form_Load()

Dim RS As New ADODB.Recordset
Dim Totalreponse As Integer

Requete = "SELECT count(*) AS Totalreponse FROM TVehicule WHERE TVehicule.Veh_Cont_Numero=" & Cont_Numero.Value & _
" AND TVehicule.Veh_Statut = 1 ;"

Set RS = CurrentProject.Connection.Execute(Requete)
Count_1.Caption = RS!Totalreponse
RS.Close

End Sub


Seb
3
lebelm
Messages postés
17
Date d'inscription
mercredi 25 décembre 2002
Statut
Membre
Dernière intervention
11 juin 2006

13 déc. 2005 à 17:01
Super, sa fonctionne!!!

Un gros merci a toi!!
0