Formular blockieren/freigeben über Ja/Nein Feld

[ShakyMUC]

Hallo Forum,

ich möchte in einem Formular die die Möglichkiet der Eingabe/Änderung von Daten blockieren, wenn ein bestimmtes Auswahlfeld darin auf "Ja" steht.
(Konkret: Die Änderung bei alten und bereits weiter verarbeiteten Vorgängen unmöglich machen, das Ansehen aber zulassen)

Ich komm nicht drauf wie - kann mir mal jemand helfen den Knoten aus dem Kopf zu bekommen...

Danke & Grüße
Ralph

[MzKlMu]

Hallo,
steht da wirklich Ja drin, oder ist das ein Ja/Nein Feld?

Wie hast Du Dir das gedacht, wenn durch einen Eingabefehler doch etwas geändert werden muss, wenn das Feld auf Ja (?) steht?

[ShakyMUC]

Sorry, hab mich unklar ausgedrückt: Es ist ein Ja/Nein-Feld.
Und nachträgliche Änderungen gibt´s dann nicht mehr - bzw. darf es eben nicht geben. Das ist quasi "Sinn der Übung"
Aber ich bin einen Schritt weiter gekommen: Der Knoten im Kopf war schon beim googeln da. Ich hab nach "Formular blockieren" statt nach "Formular sperren" gesucht. Ich hab glaube ich ne Lösung gefunden...

ABER: Das Problem geht weiter 
In einem anderen Formular muss ich einen Button (der ein Makro anschubst) sperren, wenn in einem Feld im Formular eine Bedingung erfüllt ist (= dort angezeigter Wert = 0,00)

Da wäre ich auch um Hilfe dankbar.

Viele Grüße
Ralph

[MzKlMu]

Hallo,
für den Button, im Ereignis "Nach Aktualisierung" des Textfeldes:

Code [Auswählen] Erweitern

Me!Button.Enabled = Me!Feldname > 0
Geht aber nur wenn das Feld kein berechntes Feld ist. Wenn berechnet, muss der Code in das gleiche Ereignis in jedem der an der Berechnung beteilgten Felder.

Wie hast Du denn das mit dem Formular sperren gelöst?

[ShakyMUC]

Das mit dem ganzen Formular war kein Problem - und auch als Beispiel in der Nordwind vorhanden. AenderungSperren ist das Ja/Nei-Feld:

Private Sub Form_Current()

    If Me.AenderungSperren = True Then

        Me.AllowEdits = False

    Else

        Me.AllowEdits = True

    End If

End Sub

Das mit dem Button (sollte gehen, der zugrunde liegende Feldinhalt kommt aus einer Abfrage) probier ich morgen/übermorgen & sag Bescheid.

Grüße
Ralph

[MzKlMu]

Hallo,
das geht auch kürzer, ohne die If Bedingung:

Code [Auswählen] Erweitern

Private Sub Form_Current()
    Me.AllowEdits = Not Me!AenderungSperren = True
End Sub

[DF6GL]

Hallo,

noch kürzer:   

Private Sub Form_Current()
    Me.AllowEdits = Not Me!AenderungSperren
End Sub