Bessere Lösung möglich?

[accessy]

Hier erstmal der Code

Code [Auswählen] Erweitern


Private Sub SAF_Change() 'Universalsuche
On Error Resume Next
  Me.Filter = "Kunde & Adresse & PLZ & Ort & Tel & Fax & KNR & Bemerkung  like '*" & Me!SAF.Text & "*'"
  Me.FilterOn = True
End Sub


Code [Auswählen] Erweitern


Private Sub SAF_DblClick(Cancel As Integer)
  Me.SAF = ""
  Me.Filter = ""
  Me.FilterOn = False
End Sub


Dieser Universalfilter für eine Schnellsuche funktioniert wirklich gut.
Aber die Doppelklickfunktion.
Mal geht sie gut, dann wieder nicht.
Dan muss ich in der Symbolleiste über die Icons gehen und den Filter ausschalten.

Ich vermute mal, dass ich das nicht sonderlich gut programmiert habe, oder?

Gruß Achim

[database]

Hallo Achim,

was passiert, wenn du die Befehle von Dblclick versuchsweise auf einen Buttonklick verlegst?
Doppelklick-Ereignisse sind immer wieder mal scheinbar fehlerhaft - u.U. im Zusammenhang mit der Doppelklick-Geschwindigkeit.

[accessy]

Hallo Peter,

ich habe das mal gemacht und den Code aus dem Doppelklick auf das CommandButton Ereignis gelegt. Das scheint tatsächlich die bessere Lösung zu sein.
Kann wirklich an der Doppelklick-Geschwindigkeit liegen, die vom VBA nicht korrekt registriert wird.

Ich danke dir für diesen Hinweis.
Wünsche noch einen schönen Sonntag