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

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
Voyez vous où cela pèche ?

Merci pour votre aide

Daniel