Veld op subform een kleur geven

[ninnie]

Op een formulier met een sub form wil ik wanneer ik in deze subform de checkbox [gereed] op true zet, het veld [probleem] op groen zet anders moet deze rood blijven.

If Gereed = True Then
probleem.BackColor = green
End If

Dit werkt niet.

 

[ALVERPOS]

ninnie,

probeer het een op deze manier

Private Sub chkGereed_AfterUpdate()

If chkGereed = True Then
txtProbleem.BackColor = RGB(0, 255, 0)
Else
txtProbleem.BackColor = RGB(255,0, 0)

End If
End Sub

mvg Alverpos

 

[beheer25]

Van waaruit roep je de code aan? Als dit vanaf het hoofdformulier is moet je om te kunnen verwijzen naar een veld op het subform opgeven waar het veld staat. Zit zal zoiets worden als:

If me!subformulier!Gereed = True Then 
  me.probleem.BackColor = green 
End If

Grtz,

 

[ninnie]

Zit onderdaad op een hoofdformulier waarop ik een
subform hem en in het subform wil ik dus een veld een kleur geven.
Op een hoofdformulier lukt het wel, maar op de subform niet.
Heb nu dit, maar zonder succes:

Naam Hoofdformulier: HoofdForm
Naam Subform : subfrmtel
,, checkbox: Gereed
veld voor de kleur: Omschrijving

Private Sub Gereed_BeforeUpdate(Cancel As Integer)
If subfrmtel.Gereed = True Then
Me.omschrijving.BackColor = RGB(0, 255, 0)
Else
Me.omschrijving.BackColor = RGB(255, 0, 0)
End If

End Sub

 

[ALVERPOS]

Ninnie,

Ervan uitgaande dat je checkbox op het hoofdformulier staat en het veld omschrijving op het subformulier, zou volgende code moeten werken.

Private Sub chkGereed_AfterUpdate()


If Gereed = True Then
subfrmtel!omschrijving.BackColor = RGB(255, 0, 0)
Else
subfrmtel!omschrijving.BackColor = RGB(0, 255, 0)
End If

End Sub

mvg Alverpos