Access 2003 Feld formatieren

[DiddiGSB]

Hallo ihr Meister

Also, in einem Formular habe ich ein Feld welches einen Link zu einer PDF enthält.

Diese Feld soll die Hintergrundfarbe wechseln, wenn dieses Feld Daten beinhaltet.


Hintergrund.

Ich habe dieses Feld auf 2x2 cm verkürzt, der Link ist viel zu groß. (Dateien liegen auf einen Server). So könnte ich sehen ob dieses Feld schon einen Link enthält oder nicht.

 

[Yaslaw]

Zuerst schreibst du am besten eine Sub hinter dem Forum, das den Feldinhalt auswertet und ensprechend die Farbe wechselt.
Dann rufst du diese Sub aus den Events Form_Current und myField_AfterUpdate auf.
Somit wird diese Farbanpassung durchgeführt, wenn du einen Record anzeigst und wenn due den Feldinhalt änderst.
Auf des Event "Current" des Formulars kannst du den folgenden Code legen.

Private Sub Form_Current()
    Call setBackColorOfMyField
End Sub

Private Sub myField_AfterUpdate()
    Call setBackColorOfMyField
End Sub

Private Sub setBackColorOfMyField()
    Dim emptyBackColor As Long
    Dim fullBackColor As Long
    
    emptyBackColor = RGB(255, 255, 255)
    fullBackColor = RGB(255, 0, 0)
    
    
    If IsNull(Me.myField) Or Me.myField = vbNullString Then
        Me.myField.backColor = emptyBackColor
    Else
        Me.myField.backColor = fullBackColor
    End If
End Sub

PS: Dies hat eher mit "Visual Basic" als mit "Relationale Datenbanksysteme" zu tun....