Discussion :

[CinErarY]

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?

[helas]

Il faudrait mieux utiliser un filtre si le formulaire a comme source la requete TousCamions

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Open(Cancel As Integer)
 Dim N As String
 N = InputBox("Entrez le # du camion", "Quel camion?")
 
 Me.FilterOn = True
 Me.Filter = "[N° Camion]='" & N & "'"
 Me.Requery
End Sub

les espaces entre apostrophe et guillemet sont à supprimer, ici c'est pour les faire ressortir