Tekst weergeven op basis van veldwaarde

[BT13]

Ik heb in Access een database gemaakt met uitleenregistratie.
Nu wil ik bij een bepaalde veldwaarde tekst weergeven en verbergen.
In VBA heb ik de volgende code gemaakt:

Private Sub Aantal_Change(Cancel As Integer)

If (Me![Aantal]) = "1" Then
Ingeboekt.Visible = True
Afgeboekt.Visible = False
Else
Ingeboekt.Visible = False
Afgeboekt.Visible = True
End If

End Sub

Vrij simpel, dus het zal wel een domme fout zijn, maar ik kom er ff niet uit. Op de één of andere manier krijg ik een foutmelding voor het uitvoeren van de code.
Kan iemand mij helpen, wat zit hier fout ?

Edit: De foutmelding is overigens: " De proceduredeclaratie komt niet overeen met de beschrijving van de gebeurtenis of procedure met dezelfde naam"
Ik kan me in Access redelijk redden, maar als het op code uitkomt is het meteen helemaal over.

 

[snb]

Dit is voldoende (verondersteld) dat Ingeboekt en Afgeboekt elementen van de form zijn.

Private Sub Aantal_Change(Cancel As Integer)
  Ingeboekt.Visible = aantal.value=1
  Afgeboekt.Visible = not Ingeboekt.visible
End Sub

 

[BT13]

Ja, dit werkt en is gelijk weer wat minder code. Bedankt !