Hier erstmal der Code
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
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
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.
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