[VBA] Requête enregistrée avec paramètre executée 2 fois pour rien
Bonjours,
j'ai une requête enregistrée "TousCamion" qui demande un paramètre [DemandeNoCamion]
voici mon code VBA:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
Private Sub Form_Open(Cancel As Integer)
Dim requete As DAO.QueryDef
Dim resultat As DAO.Recordset
Set requete = CurrentDb.QueryDefs("TousCamion")
requete.Parameters("DemandeNoCamion") = InputBox("Entrez le # du camion", "Quel camion?")
Set resultat = requete.OpenRecordset
If resultat.RecordCount = 0 Then
MsgBox "Le camion n'existe pas"
Cancel = -1
Else
Form.RecordSource = requete.SQL
End If
End Sub |
quand la ligne Form.RecordSource = requete.SQL s'execute, on dirais qu'il oublie le paramètre entré par le InputBox, et il réouvre une fenêtre à l'utilisateur avec le message "[DemandeNoCamion]"
comment utiliser le résultat de ma requête lancée dans VBA directement comme source du formulaire?
