waarde toekennen bij openen form

[youri81]

Ik heb een fomulier gebaseerd op een query. Eén veld in de tabel/query heet bezet (boolean) en wordt in het formulier als vinkje weergegeven (wordt later verborgen).
Nu wil ik dat bij het openen van het formulier bezet = true.
De query filtert namelijk alle record waar bezet = true, en zo voorkom ik dat 2 gebruikers tegelijkertijd in 1 record werken.

Nu heb ik dit:

Private Sub Form_Open(Cancel As Integer)
bezet = true
DoCmd.Save
End Sub

Maar als ik uitvoer, krijg ik een melding dat ik geen waarde aan dit object kan toevoegen.
ik kan de code bezet=true bijvoorbeeld wel aan een knop toekennen, maar dan moet dus eerst op een knop worden gedrukt, ik wil juist dat er direct een 'lock' op het record komt.

Suggesties?

 

[tyrope]

misschien deze sub laten draaien als de form ingeladen word?

handles Me.load

dus dit word dan:

Private Sub Form_Open(Cancel As Integer) handles Me.load
    bezet = true
    DoCmd.Save
End Sub

 

[SuperABC]

Als je een Public bezet boolean maakt, kun je je form openen en bezet op de gewenste waarde plaatsen. b.v.:

Dim new_form As mijn_form
new_form.bezet = true
new_form.show()