leere Textfelder in Bericht mit VBA formatieren

[andreasl4099]

Hi Harald

Danke für deine Mühe!

Andi

[bahasu]

Hi Andi,

bei diesem Verhalten von a2007 bei Deinem Bericht stoße ich an meine (Verständnis-)Grenzen.

Das Problem bei a2007 scheint darin zu bestehen, dass die "doofe Kiste" gar nicht das Ereignis "Beim Formatieren" durchläuft.
Weder mit Debuggen noch mit einer Testzeile (z.B. msgbox "XYZ") war zu erkennen, dass das aufgerufen wird.

Ich habe im Anhang den Bericht ("Bericht1") neu erstellt: Dort funktioniert das graue Unterlegen.
Dabei habe ich die if-Abfragen etwas übersichtlicher geschrieben.

Die letzten Feinheiten überlasse ich Dir.

Vielleicht kann sich einer der access Gurus mal Deinen Bericht anschauen und ergründen, warum access 2007 das Ereignis "beim Formatieren" nicht durchlaufen will.

Harald

[Anhang gelöscht durch Administrator]

[DF6GL]

Hallo,


mhmm, geht doch...

Der Bericht muß nur in "Seitenansicht" geöffnet werden.. 



[Anhang gelöscht durch Administrator]

[andreasl4099]

Guten Morgen!

Es ist aber nur die erste Zeile grau hinterlegt, und zwar in jener Zeile, in der in der tbl ein Strich ist.
Alle anderen sind nicht hinterlegt!!

"beim Formatieren" dürfte aber doch gehen, sonst wären die anderen Formatierungen ja auch nicht passiert??

lg

Andi

[DF6GL]

Hallo,


also ich glaube, es handelt sich hier um Fehlinterpretationen..


Das Feld wird einwandfrei durch den Code formatiert.
Dass das Feld nicht sichtbar ist, wenn im akt. DS NULL in diesem Feld steht, liegt daran, dass die Eigenschaft "Verkleinerbar" auf "Ja" steht...

[andreasl4099]

Hallo Franz!

die Bezeichnung "Accessgott" ist noch untertrieben.
Jetzt funktionierts!!

Danke

PS: Gibt es eine Möglichkeit alle Felder in einer Zeile dynamisch an eine Spalte anzugleichen?
Habe es schon mit einem Verweis auf die wegen der Textlänge erhöhte Spalte versucht. (Me.Output.Height = me.VHNummer.Height)!

Danke an den Bodensee

lg

Andi

[DF6GL]

Hallo,

naja, hat das nicht funktioniert?

[andreasl4099]

Hallo

nein, leider nicht

[DF6GL]

Hallo,

naja, bei  mir geht's...

Vermutlich stellst Du die betroffenen Eigenschaften nicht/falsch ein und  benutzt evtl. das falsche Ereignis..

[andreasl4099]

Hallo

habe es beim Formatieren und wie im Code angeführt versucht.

If Me.Output = "Differenz" Then
Me.VHNummer.FontBold = False
Me.VHNummer.FontSize = 7
Me.VHNummer.Height = 250
Me.VHNummer.BackColor = RGB(216, 216, 216)
Else
Me.VHNummer.FontBold = True
Me.VHNummer.FontSize = 8
Me.VHNummer.Height = Me.Output.Height
Me.VHNummer.BackColor = RGB(255, 255, 255)
End If

Einen weiterer Versuch war mit einer Schleife  "Wenn  Output >300 dann VHNummer.Height = Me.Output.Height


alles ohne Erfolg   

lg

[bahasu]

PS: Gibt es eine Möglichkeit alle Felder in einer Zeile dynamisch an eine Spalte anzugleichen?

Hi

Vielleicht sind die folgenden Zeilen, was Du suchtst:
Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)

Code [Auswählen] Erweitern

If Nz(Me.Output) = "Differenz" Then
    Me.Output.FontBold = False
    Me.Output.FontSize = 8
    Me.Output.Height = 250
    Me.Output.BackColor = RGB(216, 216, 216)


Else
    Me.Output.FontBold = True
    Me.Output.FontSize = 9
    Me.Output.Height = 300
    Me.Output.BackColor = RGB(255, 255, 255)

End If



    Dim ctl As Control
   
    For Each ctl In Me.Detailbereich.Controls
        ctl.FontBold = Me.Output.FontBold
        ctl.FontSize = Me.Output.FontSize
        ctl.Height = Me.Output.Height
        ctl.BackColor = Me.Output.BackColor
    Next ctl
End Sub

[andreasl4099]

Hallo

Habe jetzt das mit den ctl versucht - es will nicht

ich werde den Bericht nun so lassen!

Danke für eure Mühe!!

lg

Andi

[bahasu]

Hi Andi

und zum Schluß noch eine Frage von mir:
Wie verhält sich der Bericht, wenn Du bei den Eigenschaften im Reiter "Format" als Wert für "Standardansicht = Seitenansicht"  einträgst?

Harald

[andreasl4099]

Hallo Harald

Es ist dem Bericht egal was ich mache

er will nicht!

Danke

Andi