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"

 

Hallo,

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
   Me!TrackSLJN.Enabled = Nz(Me!SongLiedBezeichnung, "") <> ""

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

Übrigens bevorzuge ich Postings, die mit „Hallo” beginnen und mit einer Abschiedsformel enden. Da fühle ich mich nicht so wie ein entmenschlichter Tippgeber...

Gruß
Doming

 

Hallo Doming,
Bitte entschuldige mein etwas zu trockenes Verhalten.
Deine Vorgabe fällt anders aus als von mir erwartet, aber es funktioniert. Habe ich in einer alten Kopie probiert. Geht sehr gut.
Vielen Dank!

 

Ohne VBA geht so etwas einfach mit der bedingten Formatierung. Als Ausdruck dann so etwas wie:

Code:

Länge(Nz([MyField];""))=0

Übrigens sind Feldnamen wie "205 – Interpret Name - Uf" ein NoGo und in Access nicht zu gebrauchen!!!

 

Hallo ...,
Bedingte Formatierung ist in meiner Accessversion für das Feld (JaNein) nicht aktiv.
Ich muß meine Formulare erkennen und die Sortierung soll stimmen.
Als Feldname verstehe ich die Bezeichnung im Entwurf einer Tabelle. Diese Bezeichnung "205 – Interpret Name - Uf" als Feldnamen gibt es bei mir nicht.

 

Den Feldtyp hast du nicht dokumentiert und eine FC kann es nur für ein Steuerelement geben, nicht für ein Feld.

Richtig, aber als Bezeichner für ein Steuerelement ebenso ungeeignet. Das solltest du unbedingt ändern!

Klar solltest du deine Formularnamen kennen, aber eine Sortierung ist eigentlich irrelevant. Der Formularname hat nichts mit der Benennung des Unterformuar-Steuerelements zu tun. Access vergibt hier einen Default-Namen für das Steuerelement, welcher anschließend im Designer geändert werden sollte, damit es später keine Probleme damit gibt. Das war schon immer ein Grund für schwer zu lokalisierende Fehler.