Guten Tag,
Haich habe ein Problem mit meinem Übungsprojekt: einer Filmdatenbank.
Bei der Titelsuche soll es möglich sein, mehrere Treffer zu machen. Leider wird nie mehr als 1 Artikel gefunden, wenn ich z.B. den Like Operator einsetze. Wenn ich z.B. *a* (mit Sternchen) in das Such-Textfeld eingebe müsste er eigentlich einige Titel mit einem "a" finden (ist ja ein sehr häufiger Buchstabe). Er findet jedoch immer nur einen Datensatz, satt mehrere! Wo liegt das Problem? Ich kann keinen Fehler entdecken!
Gebe ich z.B. "fgt4xehge" ein, findet er korrekterweise keinen Datensatz.
Der Code:
Private Sub txtSuche_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Dim db As dao.Database
Dim rs As dao.Recordset
Set db = CurrentDb()
Dim strSQL As String
strSQL = "SELECT FilmID FROM tblFilme WHERE tblFilme.Titel LIKE '" & Me.txtSuche.Text & "'"
Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
If rs.RecordCount = 0 Then
MsgBox "Kein Treffer"
ElseIf rs.RecordCount = 1 Then
MsgBox "1 Treffer"
ElseIf rs.RecordCount > 1 Then
MsgBox "Mehr als 1 Treffer"
End If
End If
|