Meldung MsgBox in Tab. Schreiben

[JuergenRa]

Moin,

ich hab es mit dem Code Hinbekommen.

Sub mod_Aufgabe2b()
Dim rs As New ADODB.Recordset
Dim strSql As String
Dim strMeldung As String
Dim strVorname As String
Dim strName As String
Dim strOrt As String
Dim strTitel As String
Dim strUpdate As String

strSql = "SELECT Mieter.Vorname, Mieter.Name, Mieter.Ort, Sum([Mietpreis]) AS Ges_Mietpreis, Count([Mietpreis]) AS Anzahl_Mieteinnahmen " & _
        " FROM Mieter INNER JOIN Belegung ON Mieter.MieterNr = Belegung.MieterNr" & _
        " GROUP BY Mieter.Vorname, Mieter.Name, Mieter.Ort" & _
        " Order By Sum([Mietpreis]) DESC"

    rs.Open strSql, CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic
   
    With rs
        If Not .EOF Then
       
                strMeldung = "Bester Mieter!" & vbCr & "Mieteinnahmen: " & Format(.Fields("Ges_Mietpreis"), "0.00 €") & vbCr & "Anzahl der Buchungen: " & .Fields("Anzahl_Mieteinnahmen") 'Inhalt der Meldung
                strTitel = "Unser Champion:" & .Fields("Vorname") & " " & .Fields("Name") & " aus: " & .Fields("Ort") & "." ' Inhalt Tittel der MsgBox
                strUpdate = "UPDATE Mieter Set Bemerkung = '" & strTitel & vbCr & strMeldung & "' WHERE Vorname = '" & .Fields("Vorname") & "' AND Name = '" & .Fields("Name") & "' AND ORT = '" & .Fields("Ort") & "'"  ' Daten aus strMieter & strTittel Speichern(Update)
               
        End If
    End With
rs.Close ' erst schließen für strUpdate neu öffnen
rs.Open strUpdate, CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic
Set rs = Nothing
MsgBox strMeldung, vbInformation, strTitel 'Msgbox mit Daten aus strMeldung als Informationsmeldung plus Daten Titel aus strTitel
End Sub