Hi, Burt. You can cycle through the members of the Me.Controls collection:
On Error Resume Next
Dim ctl As Control
For Each ctl In Me.Controls
ctl.ShortcutMenuBar = False
Next ctl
The previous code will not crash if the control, such as a label, does not
have the ShortcutMenuBar property, but it will change the value of other
controls, such as combo boxes. If you wish to limit the changes to textboxes
only, use the ControlType property:
On Error Resume Next
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
ctl.ShortcutMenuBar = False
End If
Next ctl
Hope that helps.
Sprinks