Set een achtergrondkleur in recordset veld

[gcjvanbeek]

Ik vergelijk twee recordsets. De een heet "jaar " en de ander "rst".
Ik vergelijk het veld "jaar.dag" met het veld "rst.datum".
Als de waardes gelijk zijn update ik het veld "jaar.opmerkingen"
Wat ik ook zou willen doen, maar niet weet hoe, is het veranderen van de achtergrondkleur van "jaar.dag".
De routine wordt gestart door het openen van een form, afhankelijk van de recordset "jaar".

Zie hieronder de code.

Private Sub Form_Open(Cancel As Integer)
Dim jaar As Recordset, strSQL As String, rst As Recordset
strSQL = "SELECT * FROM Jaar"
Set jaar = CurrentDb.OpenRecordset(strSQL)
strSQL = "SELECT * FROM Datum"
Set rst = CurrentDb.OpenRecordset(strSQL)
rst.MoveFirst

Do While Not rst.EOF

jaar.FindFirst "Dag = #" & Format(rst!Datum, "mm-dd-yyyy") & "#"

jaar.Edit
jaar!Opmerkingen = "Cursus gepland"
'jaar!Dag.colorindex = 5 or something like this?????????
jaar.Update
rst.MoveNext
Loop

Set rst = Nothing
Set jaar = Nothing
End Sub

Wie heeft hier een oplossing voor?
nb. Ik heb gekeken naar een voorwaardelijke format, maar de volgorde van events zit me in de weg.
Als voorwaarde genomen ="cursus gepland", maar dat werkte niet, kennelijk nog niet aanwezig op mement van openen.
mvg,
Gerard van Beek

 

[snb]

Een tekstvak in een form bijvoorbeeld

Me("TextBox1").Backcolor=&H0

een combobox

Me("ComboBox1").Backcolor= &H0

als je een tekstvak heb met de naam 'jaar':

Me("jaar").Backcolor=&H0