Vise belægning på et kursus i formular

Koden er lavetr "on the flying" og ikke afprøvet:

Dim VARa As Byte, VARb as Byte
intsearch = Me!COMBO med kursus
VARa = DLookup("[FELT MED MAX DELTAGERE]", "kursusnavn", "[ID]=" & intsearch)

VARb = Me!COMBO med kursus
VARb = DCount("*", "Kursusdeltagere", "[COMBO med kursus] =" & VARb)

If VARb > VARa then
Me.feltnavn.ForeColor = 255
end if

Private Sub Kursusnavn_Enter()
Dim VARa As Byte, VARb As Byte
intsearch = Me!Kursusnavn
VARa = DLookup("[DELTAGERANTAL]", "kursusnavn", "[ID]=" & intsearch)

VARb = Me!Kursusnavn
VARb = DCount("*", "Kursusdeltagere", "[kursusnavn] =" & VARb)

If VARb > VARa Then
Me.Kursusnavn.ForeColor = 255
End If
End Sub


giver en syntaxfejl:
runtime error '3075'
syntax error (missing operator) in query expression '[ID]='

Hvis det er helt galt får du point og jeg opgir stille og roligt, for jeg er ikke stærk til programmering:-)

det skulle jo have været en kommentar, men det går vel nok:-)

Prøv denne:

Dim VARa As Byte, VARb as Byte
Stringsearch = Me!COMBO MED KURSUSNAVN
VARa = DLookup("[MAX DELTAGERE]", "KURSUSNAVN", "[ID]='" & Stringsearch & "'")
VARb = Me!COMBO med kursus
VARb = DCount("*", "Kursusdeltagere", "[COMBO med kursus] =" & VARb)

If VARb > VARa then
Me.feltnavn.ForeColor = 255
end if