Forums Neueste Beiträge
 

Phänomen bei Berichtsanzeige mit Filter

10/10/2007 - 15:20 von Sascha Uherek | Report spam
Hallo NG,
Ich habe ein Hauptformular mit Ufo1. Im Hauptformular habe ich hinter einen
Button (Seite Drucken) folgende Funktion:

Private Sub Bild288_Click()
On Error GoTo Err_Bild288_Click

Dim BerichtsName As String
Dim Filter As String

BerichtsName = "Angebot"
Filter = "[AngebotHauptF].[AngebotHauptID]=" &
Me![AngebotHauptF]![AngebotHauptID]
DoCmd.OpenReport BerichtsName, acPreview, , Filter

Exit_Bild288_Click:
Exit Sub

Err_Bild288_Click:
MsgBox Err.Description
Resume Exit_Bild288_Click
End Sub

Wenn ich nun auf den Button Kicke fragt er immer den Parameterwerten zu:
Formulare!AngebotHauptF!AngebotHauptID. Gebe ich die ID ein, zeigt er mir es
richtig an. (die AngebotHauptID ist als Textfeld im Formular AngebotHauptF
aufgeführt)
Das kuriose ist nur, das genau diese Prozedur in meinen anderen Formularen
klappt????

Hat jemand sowas auch schon mal erlebt? Ist das irgendwein Bug ;-)

Grüße Sascha
 

Lesen sie die antworten

#1 Thomas Möller
10/10/2007 - 15:41 | Warnen spam
Hallo Sascha,

Sascha Uherek schrieb:
Ich habe ein Hauptformular mit Ufo1. Im Hauptformular habe ich hinter
einen Button (Seite Drucken) folgende Funktion:

Private Sub Bild288_Click()
On Error GoTo Err_Bild288_Click

Dim BerichtsName As String
Dim Filter As String

BerichtsName = "Angebot"
Filter = "[AngebotHauptF].[AngebotHauptID]=" &



IMHO fehlt hier ein vorangestelltes "Forms!", also:

Filter = "Forms!AngebotHauptF.AngebotHauptID=" &


CU
Thomas

Homepage: www.Team-Moeller.de

Ähnliche fragen