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
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
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]