@ LLR: Hat ein wenig gedauert aber ich hatte heute ziemlich zu tun.
Zu "Events von Microsoft":
-------------------------------
Jepp, bin ich dabei! Den Office-Launch habe ich schon seit einiger Zeit mit Spannung erwartet. Mal sehen wie die Sache mit .NET zusammenspielt. Ich geb' mir die Aktion am 18.11.2003 im Grazer Congress.
Zu Gruppierung / Sortierung:
-------------------------------
Die Sortierung ist kein Problem.
Public Sub DOWN()
Sort "repMy", "fldMy", False
End Sub
Public Sub UP()
Sort "repMy", "fldMy"
End Sub
Public Sub Sort(strReport As String, strFieldList As String, Optional Ascending)
Dim strSort As String
strSort = "ASC"
If Not IsMissing(Ascending) Then
If Not Ascending Then
strSort = "DESC"
End If
End If
DoCmd.OpenReport strReport, acViewDesign
With Reports.Item(strReport)
.OrderByOn = False
.OrderBy = strFieldList & " " & strSort
.OrderByOn = True
End With
DoCmd.Close acReport, strReport, acSaveYes
End Sub
Was die Gruppierung betrifft, so macht die ja ohne Anpassung des Layouts ja ohnehin nicht viel Sinn, oder? Wenn es dir nur darum geht die Speicherabfrage zu umgehen, dann kannst du ja das Open Event verwenden. Das wird ausgelöst, wenn du aus der Design- in die Preview-Ansicht wechselst. Allerdings ist das (wie du selbst bemerkt hast) wahrscheinlich auch nicht besonders clever. Immerhin hat ja so eine Abfrage auch ihren Sinn.
Falls du allerdings die Gruppierung wirklich per Code ändern willst, so funktioniert das natürlich nach dem selben Schema, wie das ändern der Sortierung.
Zum Thema STRG+I:
-------------------------------
Such' mal in der Hilfe nach "Shortcuts für das Code-Fenster"