Sorry, dass ich hier 2mal in so kurzer zeit eine Frage stellen muss, aber ich komm schon wieder nicht weiter:
Sub vba14_a()
Dim rs As New ADODB.Recordset
Dim strSql As String
Dim strMieterName As String
Dim strMeldung As String
strHaus = InputBox("Welches Haus soll abgefragt werden?")
strSql = "SELECT Hausliste.Ferienhaus, Sum(Mietpreis) AS Mieteinnahmen " & _
"FROM Hausliste INNER JOIN Belegung ON " & _
"Hausliste.Ferienhaus = Belegung.Ferienhaus " & _
"WHERE Hausliste.Ferienhaus LIKE '" & strHaus & "'" & _
"GROUP BY Hausliste.Ferienhaus, Zimmer;"
rs.Open strSql, CurrentProject.Connection, _
adOpenForwardOnly, adLockOptimistic
With rs
If Not .EOF Then
While .EOF = False
strMeldung = "Haus " & strMeldung & .Fields("Ferienhaus") & ": " & _
.Fields("Mieteinnahmen") & "€" & _
vbCrLf
rs.MoveNext
Wend
Else
strMeldung = "Kein Mieter mit dem Namen: " _
& strHaus & " wurde gefunden."
End If
End With
rs.Close
Set rs = Nothing
MsgBox strMeldung, vbInformation, "Summe der Mieteinnahmen je Ferienhaus:"
End Sub
Problem: Ich kann über den SQL Befehl nur genau den string der Inputbox abfragen, ich bräuchte aber einen statt
"WHERE Hausliste.Ferienhaus LIKE '" & strHaus & "'" & _ einen Befehl, über den ich z.B. über die Anfangsbuchstaben die richtigen Häuser anzeigen kann. Weiß jemand Bescheid?
Danke schonmal 
