Problem Im Bericht mit Ac 97

01/08/2009 - 15:45 von Johann Weiss | Report spam
Hallo,

ich formatiere in einem Bericht mit Access 97 ein Textfeld "rot" wenn der
Wert in dem Feld 100 übersteigt.
was auch immer bisher funktioniert hat.

Hier der Code:

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
If Me.Pro > 100 Then
Me.Pro.ForeColor = vbRed
Else
Me.Pro.ForeColor = vbBlack
End If
End Sub

Durch eine Umstellung der Abfrage kann es nun vorkommen das das Feld leer
bleibt.
Hier die Abfrage
Pro: [Zeit]/Wenn([Ma]=0;Null;[MA])

Vorher wurde hier immer ein fester Wert im Feld "Pro" verwendet.

Was sin nun im Bericht auf das Texfeld "Pro " auswirkte da es nun ab und zu
leer ist.
Dadurch dann auch die Fehlermeldung im Bericht.
Weis jemand dazu Rat das ich zB. dann in der Abfrage eine "0" eintragen
könnte

gruss Johann
 

Lesen sie die antworten

#1 Thomas Möller
01/08/2009 - 15:54 | Warnen spam
Hallo Johann,

Johann Weiss schrieb:
ich formatiere in einem Bericht mit Access 97 ein Textfeld "rot" wenn der
Wert in dem Feld 100 übersteigt.
was auch immer bisher funktioniert hat.

Hier der Code:

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
If Me.Pro > 100 Then
Me.Pro.ForeColor = vbRed
Else
Me.Pro.ForeColor = vbBlack
End If
End Sub

Durch eine Umstellung der Abfrage kann es nun vorkommen das das Feld leer
bleibt.
Hier die Abfrage
Pro: [Zeit]/Wenn([Ma]=0;Null;[MA])

Vorher wurde hier immer ein fester Wert im Feld "Pro" verwendet.

Was sin nun im Bericht auf das Texfeld "Pro " auswirkte da es nun ab und zu
leer ist.
Dadurch dann auch die Fehlermeldung im Bericht.



Du kannst Das Problem auch im VBA-Code lösen. Die NZ-Funktion hilft Dir
dabei:

If Nz(Me!Pro,0) > 100 Then
Me!Pro.ForeColor = vbRed
Else
Me!Pro.ForeColor = vbBlack
End If


HTH
Thomas

Homepage: www.Team-Moeller.de

Ähnliche fragen