Office: (Office 2010) einen Sortierschlüssel in einer Variabelen (sSort) beim Aufruf an einen Bericht übergeben.

Hallo Zusammen
Ich übergebe beim Aufruf eines Berichts (DoCmd.OpenRecord...) in der Variabelen sWhere, die im Ausgangsformular, aus dem der Bericht aufgerufen wird, zusammengestellt wird einen Filter an den Bericht.
Soweit ist alles Gut.
Ich möchte aber auch eine Sortierung, die ebenfalls im Ausgangeformular in der Variabelen sSort zusammengebaut wird an den Bericht mit übergeben.
Das hat leider noch nicht funktioniert.
Hat da jemand eine Lösung?
mfG obbU

 

Hallo,

Übergaben an einen Bericht können normalerweise mit OpenArgs realisiert werden. Wo genau ist also das Problem?

Knobbi38

 

Hallo knobbi38
habe ich in verschiedenen Varianten probiert. wir im Worddokument aufgeführt
ohne Erfolg, der Bericht kam aber die Sortierung war nicht OK:
obbU

 

Hallo obbU,

hier mal ein Beispiel, wie so etwas umgesetzt werden kann.

Knobbi38

PS:
Für solche einfachen Ding reicht eine kleine Textdatei - bitte keine Doc-Datei mehr, ggf. einfach das Modul exportieren.

 

Hallo knobbi38
ich habe deine Variante probiert.
leider auch negativ der Bericht kommt, aber unsortiert.
Wo finde ich denn wohl die Erläuterung wie und was ich in - OpenArgs - machen kann?
obbU

 

Hallo,

das Beispiel ist natürlich getestet und sollte auch eigentlich selbsterklärend sein.
Ein Detail in Verbindung mit Reports, welches oft übersehen wird ist, dass der Report nicht im Preview-Mode geöffnet wird, was für eine nachträgliche Sortierung aber unbedingt erforderlich ist.

OpenArgs ist ein Argument vom Datentyp Variant/String, welches an das zu instantiierende Datenbankobjekt (z.B. Report) übergeben wird. Variant/String deshalb, weil auch ein NULL Wert übergeben werden kann (default), um zu kennzeichnen, dass kein das Argument nicht angegeben wird. Wegen Variant/String kann man neben NULL auch nur Strings übergeben, also keine Objekte oder so; es muss alles in ein String konvertiert werden.

Im aufgerufenen Objekt wird dann OpenArgs abgefragt und ausgewertet, z.B. im Report-Open/Load Ereignis (siehe Beispieldatenbank).

Wichtig zu wissen:
beim Open-Ereignis sind die Daten noch nicht geladen, im Load-Ereignis kann man auf bereits geladene Daten zugreifen.

Gruß Knobbi38

PS:
Dokus findest du hier:
Office Visual Basic for Applications (VBA) reference

 

Hallo Knobbi38

Habe die Lösung mit VBA Textvorschlägen bei ChatGpt gefunden.
Die Sortieranweisund sSorto bilde ich im Hauptformular und übergebe es mit OpenArgs an den Bericht.
Hier stelle ich dann die Sortierung ein:
Private Sub Report_Open(Cancel As Integer)
Dim sortkey As String
sortkey = Me.OpenArgs 'Openargs übergeben
'MsgBox "sortkey = " & sortkey
Me.OrderBy = sortkey
Me.OrderByOn = True
End Sub
Das war’s dann.
Danke für die Hilfe
obbU

 

Hallo,

Leider noch nicht so ganz, denn wenn OpenArgs beim Aufruf nicht angegeben wird, ist der Inhalt NULL und die Zuweisung an sortKey erzeugt einen Laufzeitfehler! Das möchtest du nicht und deshalb schau dir nochmal die Routine in der Beispieldatenbank an, wie mit wenigen Zeilen das abgefangen werden kann.

Noch ein Tipp bzw. Ergänzung:
mit folgendem Code kannst du automatisch die Eigenschaft OrderByOn zuweisen:

Code:

    Me.OrderByOn = CBool(Len(Me.OrderBy) > 0)

Knobbi38