Discussion :

[lucas-18]

J'ai un problème avec une zone de liste déroulante dont la source est une requête (voir annexe).

J'ai mis sur l'évènement AfterUpdate le code suivant qui me permet d'afficher les enregistrement par le champ "ID" :

Code :

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

1
2
3
4
Private Sub Searchcustomer_AfterUpdate()
Me.Filter = "ID=" & Me!Searchcustomer
Me.FilterOn = True
End Sub

Lorsque je sélectionne dans la liste déroulante l'enregistrement voulu, il s'affiche sans problème.

Par contre, lorsque je sélectionne l'enregistrement dans la zone de liste déroulante et que je "supprime" la valeur qui est indiquée dans la zone de liste déroulante ; un message d'erreur Visual Basic s'affiche :

Run-time error '3075':

Syntax error (missing operator) in query expression 'ID='.

L'erreur provient du code repris plus haut.

Quelqu'un a-t-il une idée svp ?

[marot_r]

C'est un peu normal, vu que tu viens de mettre ta zone de critère à Null.

Je te suggère le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Searchcustomer_AfterUpdate()
   if not isNull(me.Searchcustomer) then
        Me.Filter = "ID=" & Me!Searchcustomer
        Me.FilterOn = True
     else
        me.filter=""
        me.filterOn=false
  end if
End Sub

Note : Code non testé !!!

[lucas-18]

C'est un peu normal, vu que tu viens de mettre ta zone de critère à Null.

Je te suggère le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Searchcustomer_AfterUpdate()
   if not isNull(me.Searchcustomer) then
        Me.Filter = "ID=" & Me!Searchcustomer
        Me.FilterOn = True
     else
        me.filter=""
        me.filterOn=false
  end if
End Sub

Note : Code non testé !!!

ton code marche ! merci