Office: (Office 2003) Ein Feld soll gesperrt sein bis Bedingung erfüllt ist.

Mit VBA kenne ich mich nicht gut aus, darum bitte ich um Hilfe.
Das Feld "TrackSLJN" soll in einer neuen Zeile gesperrt sein bis, das Feld "SongLiedBezeichnung" Daten hat.
Das Formular beinhaltet ein Unterformular, das bereits gesperrt ist bis die selbe Bedingung erfüllt ist.
Dazu drei Code die dafür in Frage kommen.

Code:

Private Sub ActivateDeactivateOriginators()
On Error GoTo fehler

    If Nz(Me!SongLiedBezeichnung) = "" Then
        Me![205 – Interpret Name - Uf].Enabled = False
    Else
        Me![205 – Interpret Name - Uf].Enabled = True
        If Nz(Me!VorfilterInterpret_205_Select) <> "" Then
            If Nz(Me![205 – Interpret Name - Uf].Form.InterpretName205) = "" Then Me![205 – Interpret Name - Uf].Form.InterpretName205 = Me!VorfilterInterpret_205_Select
        End If
    End If

Exit Sub
fehler: MsgBox "Fehler " & Err.Number & ": " & Err.Description, , "Bitte Fehlernummer und Beschreibung an den Administrator melden"
End Sub

Code:

Private Sub Form_Current()
On Error GoTo fehler

    ActivateDeactivateOriginators

Exit Sub
fehler: MsgBox "Fehler " & Err.Number & ": " & Err.Description, , "Bitte Fehlernummer und Beschreibung an den Administrator melden"
End Sub

Code:

Private Sub SongLiedBezeichnung_AfterUpdate()
On Error GoTo fehler

    ActivateDeactivateOriginators

Exit Sub
fehler: MsgBox "Fehler " & Err.Number & ": " & Err.Description, , "Bitte Fehlernummer und Beschreibung an den Administrator melden"
End Sub

Den Ablauf dieser drei Prozeduren kenne ich nicht.
Ich vermute die Zeile "Me!TrackSLJN.Enabled = True" muß nach "Else" eingefügt werden. Nur wie genau das aussehen soll, ist mir unbekannt.
"Private Sub ActivateDeactivateOriginators()

On Error GoTo fehler

If Nz(Me!SongLiedBezeichnung) = "" Then
Me![205 – Interpret Name - Uf].Enabled = False
Else
Me!TrackSLJN.Enabled = True
Me![205 – Interpret Name - Uf].Enabled = True
If Nz(Me!VorfilterInterpret_205_Select) <> "" Then
If Nz(Me![205 – Interpret Name - Uf].Form.InterpretName205) = "" Then Me![205 – Interpret Name - Uf].Form.InterpretName205 = Me!VorfilterInterpret_205_Select
End If
End If

Exit Sub
fehler: MsgBox "Fehler " & Err.Number & ": " & Err.Description, , "Bitte Fehlernummer und Beschreibung an den Administrator melden"
End Sub"