Requête qui ne marche pas quand je l'utilise en VBA ?

Bonjour,

J'ai la requête suivante :

Code:

---

1 2 3 4 5 6

Dim MaTable As Recordset Set MaTable = CurrentDb.OpenRecordset("SELECT tbl_entreprises.Entreprise FROM tbl_entreprises INNER JOIN tbl_personnels ON tbl_entreprises.IdEntreprise = tbl_personnels.IdEntreprise WHERE (((tbl_personnels.IdPersonnel)=[Formulaires]![frm_visite_ajout]![lstVisite]))") lblEntreprise.Caption = MaTable("Entreprise") MaTable.Close Set MaTable = Nothing

---

Elle me génère l'erreur suivante :

Citation:

---

Erreur d'exécution '3061':
Too few parameters. Expected 1.

---

Quand je l'exécute sans passer par le VBA, ça fonctionne, savez-vous ce qui peut bloquer dans ce cas ?

MAJ : D'après mes tests, l'erreur est causée par mon critère [Formulaires]![frm_visite_ajout]![lstVisite] mais je ne sais pas pourquoi...

Merci,
ZiP

Bonjour,

J'ai réussi à contourner l'erreur de cette manière :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub lstVisite_AfterUpdate() Dim MaTable As Recordset   Set MaTable = CurrentDb.OpenRecordset("SELECT tbl_entreprises.Entreprise FROM tbl_entreprises INNER JOIN tbl_personnels ON tbl_entreprises.IdEntreprise = tbl_personnels.IdEntreprise WHERE (((tbl_personnels.IdPersonnel)=" & lstVisite.Value & "))") If MaTable.RecordCount > 0 Then lblEntreprise.Caption = MaTable("Entreprise") Else lblEntreprise.Caption = "" End If MaTable.Close Set MaTable = Nothing End Sub

---

Ce n'est surement pas la meilleure des solutions, mais elle fonctionne !

ZiP