PDA

Vollständige Version anzeigen : leeres Feld


ChrisG
01.10.2002, 15:11
Folgende Prozedur nutze ich, um aus einem Bericht nur bestimmte Datensätze anzeigen zu lassen.
Das Suchkriterium gebe ich über ein Feld in einem Formular ein.
Das klappt auch, aber wenn das Feld leer ist, soll der ganze Bericht angezeigt werden. Wie kann ich das machen ???

On Error GoTo Err_Bericht_Click
Dim stDocName As String
Dim x As Long
Me.Painting = False
x = Me!UN
Me.Requery
Me.RecordsetClone.FindFirst "UN = " & x
Me.Bookmark = Me.RecordsetClone.Bookmark
Me.Painting = True
stDocName = "UN"
DoCmd.OpenReport stDocName, acPreview, , "UN_Nr =" & Me!UN
Exit_Bericht_Click:
Exit Sub
Err_Bericht_Click:
MsgBox Err.Description
Resume Exit_Bericht_Click

Gruß
Chris

YahooGreg
01.10.2002, 15:22
Benutze eine weiter Variable:
Dim msOpenArgs as string

if not isnull(Me!UN) then
msOpenArgs = "UN_Nr =" & Me!UN
else
msOpenArgs = ""
endif

DoCmd.OpenReport stDocName, acPreview, , msOpenArgs

ciao
Gregor

ChrisG
02.10.2002, 12:23
Es funktioniert

Vielen DANK !!!

Lanz Rudolf
02.10.2002, 12:39
Hallo
Ich für mich würde wenn möglich kein "If NOT"
machen sondern immer Positiv Fragen besonders wenn ich so oder so ein ELSE habe

if isnull(Me!UN) then
msOpenArgs = ""
else
msOpenArgs = "UN_Nr =" & Me!UN
endif