Order by in Messagebox

[Aloster]

Hallo!

Ich möchte im folgenden Code einer Messagebox die Ausgabe nach dem "Ort" alphabetisch abwärts sortieren. Wie geht das?

____________
Private Sub Nachname_BeforeUpdate(Cancel As Integer)


    Dim strSQL As String, strMsg As String
    Dim db As DAO.Database, rs As DAO.Recordset
    Dim R As Variant
   
    [Änderungsdatum] = Date
    If Len(Me!Nachname) = 0 Then
    Cancel = True
    Beep
    Exit Sub
    End If


strSQL = "select * from Adressen where Nachname = '" & Me!Nachname & "'"
Set db = CurrentDb()
Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
If rs.RecordCount > 0 Then

rs.MoveLast

strMsg = "Soll der Datensatz eingefügt werden, obwohl folgende Datensätze bereits existieren:" & vbCrLf & vbCrLf

rs.MoveFirst

Do Until rs.EOF
    strMsg = strMsg & rs("Nachname") & ", " & rs("Vorname") & ", " & rs("Straße") & " in " & rs("Ort") & vbCrLf

    rs.MoveNext
Loop

Beep
R = MsgBox(strMsg, vbYesNo + vbInformation, "Hinweis:")
If R = vbNo Then Me.Undo


End If
Exit Sub

End Sub
______________________

[Jonny]

Hallo,
SELECT Mitarbeiter.MName, Mitarbeiter.Position FROM Mitarbeiter WHERE (((Mitarbeiter.Position)="MF")) ORDER BY Mitarbeiter.MName;
ich habe hier mal einen String mit Sortierung.
Wenn du den anpasst bekommst du bereits beim Lesen die Daten sortiert.

Gruß
Johann

[MzKlMu]

Hallo,
das ganze Theater mit der MsgBox würde ich mir sparen und stattdessen ein Popupformular öffnen, das die Datensätze enthält.
Das Ganze reduziert sich dann auf einen Einzeiler zum Öffnen des Popups.