Meldung MsgBox in Tab. Schreiben

[JuergenRa]

Hallo zusammen,

ich habe da ein Problem und hoffe das Ihr mir das weiterhelfen könnt.
Der Code Funktioniert soweit, ich möchte das anschließend die in der Meldung angezeigten Informationen in das Feld Bemerkung (Tabelle Mieter) eingetragen wir , sollte bereits ein Inhalt vorhanden sein soll dieser überschrieben werden.

Der Code:
Option Compare Database
Option Explicit
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

strSql = "SELECT Top 1 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")
                strTitel = "Unser Champion:" & .Fields("Vorname") & " " & .Fields("Name") & " aus: " & .Fields("Ort") & "."
                rs.MoveNext
        End If
    End With
rs.Close
Set rs = Nothing
MsgBox strMeldung, vbInformation, strTitel
End Sub

Danke und Gruß
Jürgen

[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