Feld zur Eingabe freigeben

[Kutsche]

Hallo,

beim Aufruf eines Formulars sperre ich die Eingabe, da es eigentlich bis auf ein Feld nur der Ansicht dient.

Code [Auswählen] Erweitern

Forms!frm_FlaschenDaten.AllowEdits = False 'Eingabe für ganzes Formular sperren
Forms!frm_FlaschenDaten.SpeichernSchliessen.Visible = False 'Schalter ausblenden
Forms!frm_FlaschenDaten.SpeichernWeiter.Visible = False 'Schalter ausblenden
Forms!frm_FlaschenDaten.Rueckgaengig.Visible = False 'Schalter ausblenden

Ich möchte aber das Feld TUEV zur Eingabe zulasse. Wie lautet dafür der Code? Alles was ich ausprobiert habe, war leider erfolglos.

LG Jens

[PhilS]

Wenn du AllowEdits=False setzt, dann sind alle Felder gesperrt und es ist nicht möglich einzelne Felder auszunehmen.

Stattdessen musst du für jedes einzelne Steuerelement die Eigenschaften Locked=True und/oder Enabled=False setzten, ausser für das eine Feld, in dem Änderungen möglich sein sollen.

[Kutsche]

Hey,

das geht so leider nicht. Ich benutze das dieses Formular auch für die Eingabe aller Werte, aber ohne Anzeige, was in der entsprechenden Tabelle schon steht.

Wie kann man denn beim Aufruf per VBA einzelne Felder sperren. Dann würde ich meinen Code umbauen.

LG Jens

[PhilS]

Wie kann man denn beim Aufruf per VBA einzelne Felder sperren. Dann würde ich meinen Code umbauen.

In dem man die Locked- und/oder Enabled-Eigenschaften entsprechend setzt, so wie oben geschrieben.

[Kutsche]

Ich habe den Code jetzt so umgebaut

Code [Auswählen] Erweitern

'einzelne Felder Sperren
Forms!frm_FlaschenDaten.Flaschennummer.Locked = True
Forms!frm_FlaschenDaten.Beschreibung.Locked = True
Forms!frm_FlaschenDaten.InhaltLiter.Locked = True
Forms!frm_FlaschenDaten.InhaltBar.Locked = True
Forms!frm_FlaschenDaten.InhaltMenge.Locked = True
Forms!frm_FlaschenDaten.TUEV.Locked = False
Forms!frm_FlaschenDaten.Liste18.Locked = True
'Schalter ausblenden
Forms!frm_FlaschenDaten.SpeichernSchliessen.Visible = False
Forms!frm_FlaschenDaten.SpeichernWeiter.Visible = False
Forms!frm_FlaschenDaten.Rueckgaengig.Visible = False

Leider etwas aufwendiger, aber so funktionier es, wie ich es haben möchte.

Danke dir
Jens