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
______________________
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
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.