Betingelse mellem 2 felter i record, på fortløbende formular

Har du set på funktionen "Betinget Formattering"? Der kan du have op til 3 betingelser

Hvordan vi du udfylde den?
Betingelsen lyder lidt som:
HVIS [Checkbox] = true SÅ [Felt].Baggrundsfarve = Gul

Du kan ike angive en betinget formattering for en checkbox (Ja/Nej felt).
Du kan indsætte et tekstfelt i tabellen / forespørgslen og lave en programmering der udgfylder dette felt. I stil med dette:

If Me.Checkbox = True Then
Me.Tekstfelt = "True"
else:
Me.Checkbox = "False"
End If

Derefter kan du lave en Betinget formattering på Tekstfeltet.

Man kan (så vidt jeg ved) ikke programmere sig ud af det på anden måde i fortløbende formularer. Dog tror jeg terry havde lidt tryllerier om det for nylig.

Du kan evt. angive egenskaben Syblig til Nej for Tekstfeltet, så ser du det ikke i formularen.

Is there a checkbox on each record or is this on the main form? If it is on each record then I would suggest that in the forms (sub form) BEFORE update event you test if the check box is checked if it isnt then set cancel (parameter to before update event) to true to stop the update!

mlhave-> Du kan sagtens bruge betinget formatering på én tekstboks til at checke på om en anden checkboks er afkrydset.
Du skal bare angive at betingelsen for tekstboksen skal være et udtryk. Udtrykket skal erefter være:
[Checkbox] = true
Herefter angiver du bare farve m.m.

/Thomas

Tilføjelse: Du kan faktisk lægge én stor tekstboks bag alle de andre felter og lade denne være betinget formatteret som beskrevet herover. Hvis alle tekstbokse samtidig er sat til at være gennemsigtige, vil du opleve at hele linien skifter farve.
Der er mange muligheder....

To use conditional formatting, place the cursor in the date field and then in th eformat menu find Conditional formatting. Then choose "Expression Is" from the combo and then in the Expression field write [datokrav]=True. Then choose the colour or what ever and thats it :o)

Terrys 28/01-2004 13:26:19, virkede med lidt ændringer:

Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Me.DatoKrav = True Then
        If Tom(Me.NyForvDato) = True Then
            Cancel = True
        Else
            Cancel = False
            Exit Sub
        End If
    Else
        Cancel = False
    End If
End Sub

thomasjepsens 28/01-2004 13:34:38, klarede farverne, bakket op at terry ;o)

Jeg fordeler pointene når jeg kan få lov af eksperten.dk...
den vil ikke rigtig....?