Office: (Office 2000) Textfeld im Unterbericht ansprechen

JK_tweety · 15. Juli 2007

Liebes Forum,
ich möchte gern die Möglichkeit bieten, dass je nach Wunsch der Durchschnitt gedruckt wird. Das Feld befindet sich in einem Unterbericht.
So wie jetzt funktioniert es noch nicht...

Danke und Gruß Jana

Code:

Private Sub btn_Zwischenbescheid_Click()
On Error GoTo Err_btn_Zwischenbescheid_Click
Dim test As String
If MsgBox("Durchschnitt drucken", vbYesNo, "Drucken") = vbYes Then
test = "rpt_sfrm_Zwischenbescheid"
test.Gesamtdurchschnitt = Visible
Else
test.Gesamtdurchschnitt = Invisible
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Smaug · 16. Juli 2007

Aus dem Code entnehme ich dass der Wunsch bei Klick auf die Formularschaltfläche zum Öffnen des Berichts abgefragt werden soll. AFAIK kennt Access 2000 noch keine Argumentenübergabe an Berichte so dass ich in diesem Fall mit einer globalen Variable arbeiten würde.

Code:

Private Sub Formschaltfläche_Klick()
'boolDurchschnitt wird in einem öffentlichen Modul public deklariert
If MsgBox "Mit Durchschnitt drucken" ... = vbYes Then
boolDurchschnitt = True
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beim Formatieren des Bereiches im Unterbericht in dem sich das Textfeld im Bericht befindet:
Code:

Me!Textfeld.visible = boolDurchschnitt
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beim Schliessen des Berichtes darfst Du keinesfalls vergessen die globale Variable wieder zurückzusetzen:
Code:

boolDurchschnitt = false
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

sowosamma · 16. Juli 2007

Du kannst Elemente des Unterberichts im Hauptbericht wie folgt ansprechen

Hauptformular.Unterformular.Element
Me.[Name des UFO].Gesamtdurchschnitt

Smaug · 16. Juli 2007

\@Andi: Verweis von hauptbericht auf Unterberichtsfeld:
Me!Unterberichtssteuerelementname.Report!TextfeldImUB.Eigenschaft

JK_tweety · 16. Juli 2007

Danke Danke...hab es so gelöst, dass ich direkt den Unterbericht auf Visible False / True setze, und nicht direkt das Textfeld - das hat funktioniert!

Vielen Dank an Euch

Office: (Office 2000) Textfeld im Unterbericht ansprechen

Textfeld im Unterbericht ansprechen

Textfeld im Unterbericht ansprechen

Textfeld im Unterbericht ansprechen

Textfeld im Unterbericht ansprechen - Similar Threads - Textfeld Unterbericht ansprechen

Formularsteuerelement Textfeld: Selbe Formatierung wie verlinkte Zelle?

Zwischen Textfeldern mit Tabulator Taste wechseln

Textfeld Powerpoint Ränder

Inhalt eines Hyperlink Feldes in ein Textfeld kopieren

Textfelder verschieben

Schriftart im Formular

(Access) bedingte Formatierung im Textfeld funktioniert nicht