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
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?
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
Hallo,
für den Button, im Ereignis "Nach Aktualisierung" des Textfeldes:
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?
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
Hallo,
das geht auch kürzer, ohne die If Bedingung:
Private Sub Form_Current()
Me.AllowEdits = Not Me!AenderungSperren = True
End Sub
Hallo,
noch kürzer: ;) ;D
Private Sub Form_Current()
Me.AllowEdits = Not Me!AenderungSperren
End Sub