Hallo ich wie bekomme ich den ersten Datensatz vom Recordset des strSql ausgegeben in eine Msgbox mit Mieter.Name, Anzahl der Buchungen und die SummevomMietpreis?
danke
Sub Datenfinden()
Dim rs_1 As New ADODB.Recordset
Dim rs_2 As New ADODB.Recordset
Dim strSql As String
Dim strMeldung As String
strSql = "SELECT Sum(Belegung.Mietpreis) AS SummevonMietpreis, Count(Belegung.Ferienhaus) AS AnzahlvonBuchungen, Mieter.Name,Mieter.Ort " & _
"FROM Mieter INNER JOIN Belegung ON Mieter.MieterNr = Belegung.MieterNr " & _
"GROUP BY Mieter.Name " & _
"ORDER BY Sum(Belegung.Mietpreis) DESC "
rs_1.Open strSql, CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic
End Sub