Veteran
Beiträge: 229
![100](http://www.donkarl.com/forum/images/decorations/multiple/100.gif) ![100](http://www.donkarl.com/forum/images/decorations/multiple/100.gif) ![25](http://www.donkarl.com/forum/images/decorations/multiple/25.gif) Ort: Badendorf | Hallo,
wenn ich einen Filter mit unten stehendem Programm nutze, gibt mir access, wenn ich einen Suchbegriff eingebe, der nicht existiert, die Fehlermeldung "Laufzeitfehler 2185". Und ich kann dann auch nicht mehr den letzten Buchstaben löschen.
Der Fokus ist glaube ich richtig.
hat jemand eine Idee?
Danke schon mal
Rudolf
Private Sub SelectName2_Change()
Dim txt As String
Dim intStart As Integer
txt = Me!SelectName2.Text
intStart = Me!SelectName2.SelStart 'Cursorposition
If Not Len(txt) = 0 Then
Me.Filter = "Institutionsname LIKE '*" & txt & "*'"
Me.FilterOn = True
If (Me.RecordsetClone.RecordCount) > 0 Then
Me!SelectName2.SelStart = intStart 'Cursor an richtige Stelle setzen
End If
Me!SelectName2.SetFocus
Else
Me.Filter = ""
Me.FilterOn = False
Me!SelectName2.SetFocus
End If
End Sub |