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 als Filterkriterium Wie "*" & [Formulare]![qbf_sammlung]![farbe] & "*" Oder Ist Null angibst kommen logischerweise auch die ohne Farbangabe. Wenn Du das nicht willst muss der Teil "oder ist NULL" weg.
Es gibt eine andere Alternative ganz ohne Abfrage:
Du setzt ein ungebundenes Feld über die Farbspalte und nennst es "Selectname" (oder wie Du es im entsprechenden VBA Script nennen willst.
Dann hinterlegst Du im Formular bei den Ereignissen dieses Feldes unter "bei Änderung" folgendes VBA Script.
Private Sub SelectName_Change()
Dim txt As String
Dim SelectName As String
Dim intStart As Integer
txt = Me!SelectName.Text
intStart = Me!SelectName.SelStart 'Cursorposition
If Not Len(txt) = 0 Then
Me.Filter = "Farbe LIKE '*" & txt & "*'"
Me.FilterOn = True
If (Me.RecordsetClone.RecordCount) > 0 Then
Me!SelectName.SelStart = intStart 'Cursor an richtige Stelle setzen
End If
Me!SelectName.SetFocus
Else
Me.Filter = ""
Me.FilterOn = False
Me!SelectName.SetFocus
End If
End Sub
Das Feld, welches Du durchsuchen willst heißt glaube ich "Farbe", so hab ich es im Script jedenfalls genannt. Wenn es anders heißt, musst Du den Namen ändern.
Wenn Du dann im Suchfeld "g" eingibst, kommen die Farben mit einem g, z.B. grün, gelb
Wenn Du "ge" angibst kommt nur noch gelb
viel Erfolg
Rudolf |