Felder sperren/freigeben

Computer: Software & Programmierung Datenbanken allgemein
1

Guten Morgen an alle.

Ich möchte in einem Formular einige Felder
(Feld1, Feld2,…) je nach Auswahl in einer 3er Optionsgruppe (Genehmigung erteilt, Genehmigung offen, Genehmigung verweigert) für die Erfassung sperren (bei Genehmigung verweigert und Genehmigung offen) bzw. freigeben (bei Genehmigung erteilt).
Wie muß ich’s anstellen?
Vielen Dank im voraus,
Bernd Olbrich

2

Hallo BErd,
mit der Optionsgruppe kannst du eine Variable verküpfen und dann mittels VBA-Code die betreffenden Felder sperren:
Variable: g
if g = 1 then
Me![DeinFeld1].enabled = false
else
Me![DeinFeld2].enabled = false
.
.
.

Es würde auch mit der Eigenschaft visible gehen, dann sine die Felder einfach nicht vorhanden

Mfg
Klaus

3

Am besten verwendest du die Tag(Marke)-Eigenschaft, um die betroffenen Felder zu kennzeichnen, z.B. eine Marke, in der der Buchstabe „E“ vorkommt, und wertest die Optionsgruppe im AfterUpdate (und FormCurrent)-Ereignis aus:

Private Sub MeineOptionsGruppe\_AfterUpdate()
Dim Ctl as Control
For Each Ctl In Me.Controls
 If Instr(Ctl.Tag,"E") \> 0 then
 Ctl.Enabled = Me!MeineOptionsgruppe 1
 end if
Next Ctl
End Sub

Und noch:

Private Sub Form\_Current()
 MeineOptionsGruppe\_AfterUpdate
End Sub

Reinhard

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]