title image


Smiley Re: Am einfachsten...
Nun, du legst eine Variable in einem globalen Modul an:Public gblKritDann modifizierst du deinen Code etwas, z.B.:Krit = ""gblKrit = ""If Not IsNull(Me!Wofür) Then Krit = Krit & " AND AusRubrID =" & Me!Wofür lblKrit = gblKrit & ", Rubrik = " & Me!Wofürend ifIf Not IsNull(Me!VonDatum) Then Krit = Krit & " AND AusBelDat >= #" & Format(Me!VonDatum, "yyyy-mm-dd") & "#" gblKrit = gblKrit & ", Belegdatum ZWISCHEN " & Format(Me!VonDatum, "dd.mm.yyyy") end if' usw.if gblKrit "" then gblKrit = Mid(gblKrit,3)If Krit "" Then Krit = Mid(Krit, 5)Docmd.OpenReport "MeinBericht",,,KritUnd dann im Bericht z.B.:Private Sub SeitenKopf_Format(...) Me!MeinFeld = gblKritend subUnd fertig...Reinhard


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: