Bonjour,

Grace au forum j'ai pu mettre en place ce code qui me permet d'exuter une requete à partir d'un champs numérique :

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 douchette_afterupdate()
Me.Filter = "code=" & Me.douchette 'si rérérence est numérique
Me.FilterOn = True
DoCmd.SetWarnings False
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("select * from presence where code=" & douchette)
If rst.EOF Then
  MsgBox "Ce badge n'est pas enregistrer pour ce rallye !"
ElseIf rst!presence = "oui" Then
  MsgBox "Ce badge a déjà été validé !"
  douchette = Null
Else
DoCmd.RunSQL "update Presence set presence='oui' where code=" & douchette & ";"
DoCmd.SetWarnings True
douchette = Null 'réinitialise le champ
Me.Requery        'met à jour l'affich
douchette.SetFocus
End If
rst.Close
End Sub
J'essaye d'éxécuter ce même code mais avec un champs au format texte

mais recherches mon mené à modifier cette ligne : Me.Filter = "[code]=" & Me.douchette 'si rérérence est numérique

Me.Filter = "[CODE]='" & Me.douchette & "'"

J'ai donc rajouté des guillemets pour le texte, mais rien y fait !

Merci de me dépanner