Ich möchte in einem Bericht den Wert einer Variable verwenden, den ich in einem Modul gesetzt habe. Mein Problem dabei: Der Wert wird korrekt gesetzt, steht im Bericht aber nicht zur Verfügung.
Ich bin ziemlicher Anfänger in Sachen VBA. Und trotzt intensiver Lektüre der Hilfe von VBA 6 und etlicher Versuche komme ich hier einfach nicht weiter.
Ich verwende den folgenden Code:
Function Gesamtübersicht()
On Error GoTo Gesamt\_Err
Dim Empfaenger As String
Empfaenger = "TA Eichsfeld"
Debug.Print Empfaenger
DoCmd.OpenReport "Übersicht Papier", acPreview, "", "[Tabellen 2000/2001]![Saisonbeginn]\>Date()-365 And ([Tabellen 2000/2001]![Letzter Spieltag]\>=Date() Or [Tabellen 2000/2001]![Letzter Spieltag] Is Null)" ' Operation ausführen.
Call Drucker\_waehlen
DoCmd.Close acReport, "Übersicht Papier"
Gesamt\_Exit:
Exit Function
Gesamt\_Err:
MsgBox Error$
Resume Gesamt\_Exit
End Function
Ich bin für jede Hilfe dankbar.