Syntax Needed

SerranoG · February 5th, 2004, 05:53 PM

I'm not getting some syntax correct that should be relatively straightforward. Here it is in English. This code goes in the On Format Event of the detail section. I want to loop through each control in the detail section only.:

Code:

   Dim ctlMyControl as Control

   For Each ctlMyControl In ONLY THE DETAIL SECTION OF THE REPORT
      Blah, blah...
   Next

I tried Me.Detail in that red part, but that won't work. I don't want Me because I want the other sections to be skipped. What am I missing?

Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

BethMoffitt · February 5th, 2004, 05:58 PM

I think what you'll need to do is actually omit the controls you don't want to evaluate. Like

   For Each ctlMyControl AND NOT ctlMyControl.name = "firsttoomit" AND NOT ctlMyControl.name = "secondtoomit" then
      Blah, blah...
   Next

HTH,

Beth M

Braxis · February 6th, 2004, 06:05 AM

Code:

Me.Section(acDetail)

is what you're looking for!

Brian Skelton
Braxis Computer Services Ltd.

SerranoG · February 6th, 2004, 09:16 AM

Quote:

quote:Originally posted by Braxis

Code:

Me.Section(acDetail)

Brian, that didn't work. I got an error #438, "Object doesn't support this property or method".

What did ending up working is a variation of Beth's answer. I didn't want to have to specify each unwanted control, however. So I got around that by doing this. I compared ctlMyControl.Section to Me.txtAnotherControl.Section where Me.txtAnotherControl is definitely in the detail section. If ctlMyControl.Section didn't equal Me.txtAnotherControl.Section, I skipped it.

Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

Braxis · February 6th, 2004, 06:41 PM

Hi Greg

I think I missed out the

Code:

.controls

bit. Here's how I use it:

Code:

Function SetControlsBlank(objTarget As Object) As Boolean
' Comments  : Set the contents to blank of all the controls in the given section
' Parameters: objTarget - A form section
'           
' Returns   : Boolean - TRUE If successful
' Modified  :
'
' --------------------------------------------------
Dim ctlCtrlCount As Control
On Error GoTo errSetControlsBlank

    For Each ctlCtrlCount In objTarget.Controls
        On Error Resume Next
        'Set check boxes to FALSE all others to NULL
        Select Case ctlCtrlCount.ControlType
            Case acTextBox, acListBox, acComboBox
                ctlCtrlCount.Value = Null
                Err = 0
            Case acCheckBox
                ctlCtrlCount.Value = False
        End Select
    Next ctlCtrlCount

    SetControlsBlank = True

exitSetControlsBlank:
    Exit Function

errSetControlsBlank:
    MsgBox Err.Description & " " & "mdlForms" & ":" & "SetControlsBlank"
    SetControlsBlank = False
    Resume exitSetControlsBlank

End Function

This function is called with

Code:

bolResult = SetControlsBlank(Me.Section(acDetail))

Brian Skelton
Braxis Computer Services Ltd.