Access: Fehler bei VBA

[apocan42]

Hallo,

ich kriege bei einer Ereignissprozedur eines Formulars folgende Fehlermeldung

Sie können diesen Objekt kein Wert zuweisen

Code:
Private Sub Form_Open(Cancel As Integer)
If Me.Anrede = "Firma" Then
Me.Bk_Nr = 2

ElseIf Year(Now) - Me.Schulungsjahr <= 2 And Me.Schulform = "Tagesform" Then
Me.Bk_Nr = 3

ElseIf Year(Now) - Me.Schulungsjahr > 2 And Year(Now) - Me.Schulungsjahr <= 4 And Me.Schulform = "Tagesform" Then
Me.Bk_Nr = 5

ElseIf Year(Now) - Me.Schulungsjahr <= 4 And Me.Schulform = "Abendform" Then
Me.Bk_Nr = 4

ElseIf Year(Now) - Me.Schulungsjahr > 4 And Year(Now) - Me.Schulungsjahr <= 6 And Me.Schulform = "Abendform" Then
Me.Bk_Nr = 5

Else
Me.Bk_Nr = 1


End If
End Sub

Problem zeigt es bei:
Else
Me.Bk_Nr = 1

Wenn ich das selbe Code für Fokuserhalt "Private Sub Eintrittsdatum_GotFocus()"
schreibe funktioniert es ohne Probleme.
Aber ich wollte halt die Datenfeld ändern, bei öffnen des Formulars

Was ist dabei eventuell falsch oder was sollte ich ändern damit es funktioniert.

Danke im voraus für eure Antworten