Feldwerte leeren, wenn MachtRequired ...
30.11.2022 13:13:00
Simon
ich nutze unten beschriebenen Code um die Felder in einer Eingabemaske zu löschen/leeren.
Einige Felder sind ComboBox Felder und hier habe ich "MachtRequired True" gesetzt.
Bei der ersten Eingabe funktioniert es wunderbar mit "MachtRequired True".
Wenn ich aber unten aufgeführten Code ausführe, um die Feldinhalte zu leeren, bekomme ich beim erneuten Befüllen immer wieder die Fehlermeldung "Ungültiger Eigenschaftswert".
Ich war aber im erneuten Durchgang noch gar nicht bei dem Feld (das Feld war im ersten Durchgang befüllt). Welches der Felder den Fehler wirft kann ich vorab auch nicht sagen und nachvollziehen. Danach sehe ich i.d.R. auch keinen Cursor blinken, was es nochmal schwieriger macht.
Habt ihr hierzu Ideen oder Vorschläge?
Private Sub buFeldinhalteLoeschen_Click()
Dim objControl As Control
For Each objControl In Controls
Select Case TypeName(objControl)
Case "TextBox"
objControl.Text = ""
Case "ComboBox"
objControl.ListIndex = -1
Case "ListBox"
Dim i As Long
For i = 0 To objControl.ListCount - 1
objControl.Selected(i) = False
Next i
Case "CheckBox"
objControl.Value = False
Case "OptionButton"
objControl.Value = False
End Select
Next
End Sub
Beste Grüße S.H.