Clever-Excel-Forum

Hallo, ich brauche mal wieder Hilfe,

ich habe eine Datenbank für Videofilme erstellt.

Das Hauptformular eintält ein Listenfeld in dem alle Titel aufgeführt sind.

Ich habe ein Suchfeld indem ich die Titel nach Anfangsbuchstaben auswählen kann.

Zusätzlich möchte ich ein Feld für Volltextsuche erstellen.

der Code dafür sollte so aussehen:

Private Sub MediumSuchen_AfterUpdate()
'SELECT tbl_Filme.Film_ID, tbl_Filme.Filmtitel FROM tbl_Filme _
WHERE (((tbl_Filme.Filmtitel) Like "*" & [Forms]![frm_Filme]![MediumSuchen] & "*")) ORDER BY tbl_Filme.Filmtitel;
DoCmd.RunCommand acCmdRefresh

Aber es klappt leider nicht - die erste Fehlermeldung lautet "Case erwartet".

Kann mir jemand weiterhelfen?

Gruß Frank

End Sub

Ich habe den SQL-Code etwas geändert und bekomme jetzt einen Laufzeitfehler 17 - Typen unverträglich

Private Sub MediumSuchen_AfterUpdate()
Dim strSQL As String
strSQL = "SELECT tbl_Filme.Film_ID, tbl_Filme.Filmtitel FROM tbl_Filme WHERE (((tbl_Filme.Filmtitel) Like " * " & [Forms]![frm_Filme]![MediumSuchen] & " * ")) ORDER BY tbl_Filme.Filmtitel;"
Me.Liste_Filme.RowSource = strSQL
Me.Liste_Filme.Requery
Me.Liste_Filme = Liste_Filme.ItemData(1)
End Sub

Hat jemand eine Idee?

Gruß Frank

Hi,

in welcher Programmzeile kommt der Fehler?

Viele Grüße
derHöpp

Hallo, danke für die Nachfrage.

Ich konnte das Problem miittlerweile sebst lösen:

Dim strSQL As String
strSQL = "SELECT Medium_suchen FROM qry_Filme WHERE Filmtitel Like '" & Me.MediumSuchen & "*' ORDER BY Filmtitel"
DoCmd.RunCommand acCmdRefresh

So funktioniert es.

Gruß Frank