Set een achtergrondkleur in recordset veld

Status
Niet open voor verdere reacties.

gcjvanbeek

Gebruiker
Lid geworden
27 nov 2006
Berichten
164
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.
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
 
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan