L
Larry Kahm
I normally like the sunken mode of text controls to indicate data entry and
the flat mode to indicate display.
I have used the following code to format the controls on a form for "browse"
mode - only it does not (yet) handle the controls on a subform.
Function FormatControls()
' Set all text, checkbox, and list controls to Flat during browse - the
default is Sunken for data entry
Dim ctl As Control ' form controls
For Each ctl In Me.Section(acDetail).Controls ' only modify
the Detail section
With ctl
Select Case .ControlType
Case acTextBox, acListBox, acComboBox, acCheckBox
.SpecialEffect = 0 ' Flat
Case acSubform
' modify sub-form boxes...
Case Else
' Do nothing
End Select
End With
Next ctl
Set ctl = Nothing
End Function
I'm stumped as to how to refer to the collection on the subform's detail
section to manipulate those controls.
Any help would be greately appreciated.
Thanks in advance.
Larry
the flat mode to indicate display.
I have used the following code to format the controls on a form for "browse"
mode - only it does not (yet) handle the controls on a subform.
Function FormatControls()
' Set all text, checkbox, and list controls to Flat during browse - the
default is Sunken for data entry
Dim ctl As Control ' form controls
For Each ctl In Me.Section(acDetail).Controls ' only modify
the Detail section
With ctl
Select Case .ControlType
Case acTextBox, acListBox, acComboBox, acCheckBox
.SpecialEffect = 0 ' Flat
Case acSubform
' modify sub-form boxes...
Case Else
' Do nothing
End Select
End With
Next ctl
Set ctl = Nothing
End Function
I'm stumped as to how to refer to the collection on the subform's detail
section to manipulate those controls.
Any help would be greately appreciated.
Thanks in advance.
Larry