PDA

Vollständige Version anzeigen : Aus ufo drucken


Jonny_Bayern
06.05.2004, 23:24
Hallo Forum,

hab ein ufo welches den DS im frm drucken soll.
Bekomme es nicht zum laufen, sitze schon 3(!) Stunden dran.
Es ist zum verzweifeln.

Ich glaube hier liegt der Hase begraben:
DoCmd.OpenReport stDocName, acNormal, , "[FirmID] = " & Me![FirmId]

ich hoffe, jemand kann mir weiterhelfen


besten dank schon mal im Voraus.

gruß
jonny

Hier die ganze Prozedur:

Private Sub Command53_Click()
On Error GoTo Err_Command53_Click

Me.Refresh
Dim stDocName As String
If Not IsNull(Me.Parent![e-mail]) Then
If Me.Parent![Anrede_Ap] = "Frau" Then
stDocName = "Zugangsdaten1"
' MsgBox "1"
Else
stDocName = "Zugangsdaten1_r"
' MsgBox "1_r"
End If

Else
If Me.Parent![Anrede_Ap] = "Frau" Then
stDocName = "Zugangsdaten"
' MsgBox "1"
Else
stDocName = "Zugangsdaten_r"
' MsgBox "1_r"
End If
End If
DoCmd.OpenReport stDocName, acNormal, , "[FirmID] = " & Me![FirmId]

Exit_Command53_Click:
Exit Sub

Err_Command53_Click:
MsgBox Err.Description
Resume Exit_Command53_Click

End Sub

reinir
07.05.2004, 06:31
kannst Du uns vielleicht auch verraten, was :confused: nicht fkt.
druckt er gar nichts ? bringt er ne Fehlermeldung ? ist in Me!FirmID der richtige Eintrag drinnen ????

stpimi
07.05.2004, 06:36
Lass mal das zweite Komma nach acNormal weg. Wenn ich es jetzt richtig im KOpf habe, kommt die Bedingung gleich nach der Ansicht.

Mfg, Michael