Bonjours,

j'ai une requête enregistrée "TousCamion" qui demande un paramètre [DemandeNoCamion]

voici mon code VBA:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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?