Kombifeld mit Textfeld bedingt verknüpfen

[Paulemeister]

Hallo zusammen,

Ich wähle in einem Kombinationsfeld drei Typen aus. Typ1, Typ2 oder Sonder. Für den Typ1 und 2 müssen keine Preise hinterlegt werden, da sie universell sind. Lediglich beim Typ Sonder muss in einem Textfeld ein Sonderpreis eingetragen werden. Wie kann ich es bewerkstelligen, dass bei der Auswahl von Typ1 oder 2 das Textfeld inaktiv bzw. nicht ansteuerbar ist und bei Typ Sonder der Nutzer einen von ihn individuell gewählten Preis eintragen kann?

Ich hoffe ich habe mich umständlich ausverdrückt  .

Grüße

Der Paulemeister

[DF6GL]

Hallo,

etwa nach diesem Schema:

Code [Auswählen] Erweitern

Sub cmbTypen_Afterupdate()

Select Case Me!cmbTypen
Case "Typ1", "Typ2"
     Me!Sonderpreis.Enabled=False
     Me!Sonderpreis.Locked =True

Case "Sonder"
     Me!Sonderpreis.Enabled=True
     Me!Sonderpreis.Locked =False
     Me!Sonderpreis.Setfocus

Case Else
     Me!Sonderpreis.Visible =False

End Select

End Sub


Evtl. ist weiterhin erforderlich:

Code [Auswählen] Erweitern

Sub Form_Current()
cmbTypen_Afterupdate
End Sub

[Paulemeister]

Danke,

Hat funktionukkelt