Filter mit Laufzeitfehler 2185
StefanWirrer
Gesendet: 28.03.14 09:59
Betreff: RE: Filter mit Laufzeitfehler 2185


Veteran

Beiträge: 291
100100252525
Ort: München
Hallo Rudolf,

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.

das nächste mal bitte den Fehlertext auch angeben.
2185: Sie können die Eigenschaften oder Methoden eines Steuerelements nur dann auswerten, wenn das Steuerelement den Fokus hat.

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

An welcher Stelle tritt der Fehler auf?

Falls es bei
intStart = Me!SelectName2.SelStart 'Cursorposition
ist, hilt evtl. vorher ein
Me!SelectName2.SetFocus

-----
Grüße aus München
Stefan
Top of the page Bottom of the page