Bonsoir
Je fais de nouveau appel à vous pour un petit problème
Je cherche à filtrer un formulaire à partir d'une variable
Quand je le fais "à la main" dans les propriétés du formulaire avec un critère du type
NuméroAffaire = "2009001" , tout fonctionne bien
Quand j'efface les propriétés et passe par un bouton avec le code suivant, cela ne fonctionne plus
Voyez vous où cela pèche ?Private Sub Commande11_Click()
Dim StrAffEnCours As String
StrAffEnCours = InputBox("Saisie Num affaire", "Quelle affaire ?")
'MsgBox ("l'affaire en cours est " & StrAffEnCours)
DoCmd.OpenForm "FAffetLocetMAt"
Me.Filter = "NuméroAffaire = 'StrAffEnCours'"
Me.FilterOn = True
End Sub
Merci pour votre aide
Daniel
Partager