|
Bei Ausführen des Subs hält dieser bei rs.Open an.
Sub RS_2_Anzahl()
Dim rs As New ADODB.Recordset
Dim strSql As String
Dim strFerienhaus As String
Dim strMeldung As String
strFerienhaus = InputBox("Eingabe Ferienhaus! - Anfangsbuchstabe & * ") 'z.B P*
strSql = "SELECT Ferienhaus, Sum(Mietpreis) AS SummevonMietpreis" & _
"FROM Belegung" & _
"WHERE LIKE strFerienhaus" & _
"GROUP BY Ferienhaus" & _
"Order By Sum(Mietpreis)DESC;"
rs.Open strSql, CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic
With rs
If Not .EOF Then
strMeldung = "Summe der Mieteinnahmen je Ferienhaus " & "in" & strFerienhaus & ":" & vbCrLf
While rs.EOF = False
strMeldung = strMeldung & " " & Haus & rs.Fields("Ferienhaus") & ":" & " " & " " & rs("SummevonMietpreis") & vbCrLf
rs.MoveNext
Wend
Else
strMeldung = "Es gibt kein Ferienhaus mit den eingegebenen Anfangsbuchstaben" & strFerienhaus
End If
End With
|