Supportnet / Forum / Datenbanken
mehrere Steuerelemente auf einmal sperren
Frage
Hallo an Alle,
ich möchte in einem Formular alle vorhandenen Steuerelemente auf einmal mit .enabled = flase sperren.
Wie funktioniert das ??
Kann mir jemand helfen ??
Danke
Frank
Antwort 1 von Mick
Hallo Frank, anbei eine kleine Routine, die alle Textfelder, Comboboxen und Listfelder in einem Formular sperrt.
Aufruf aus dem entspr. Formular: Call SperreFelder(Me)
Sub SperreFelder(zForm)
Dim ctl As Control
For Each ctl In zForm
Select Case ctl.ControlType
Case acTextBox, acComboBox, acCheckBox
ctl.Locked = True
Case Else
End Select
Next
End Sub
Du kannst die case-Bedingung Deinen Ansprüchen entspr. ändern. Gruss Mick
Aufruf aus dem entspr. Formular: Call SperreFelder(Me)
Sub SperreFelder(zForm)
Dim ctl As Control
For Each ctl In zForm
Select Case ctl.ControlType
Case acTextBox, acComboBox, acCheckBox
ctl.Locked = True
Case Else
End Select
Next
End Sub
Du kannst die case-Bedingung Deinen Ansprüchen entspr. ändern. Gruss Mick