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 :
J'essaye d'éxécuter ce même code mais avec un champs au format texte
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
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
Partager