ACCESS FEED: [MS_AccessPros] Re: Clearing all controls in the header with an exception

Rabu, 21 Desember 2011

[MS_AccessPros] Re: Clearing all controls in the header with an exception

Thanks much, Duane! So simple! Connie

--- In MS_Access_Professionals@yahoogroups.com, "Duane" <duanehookom@...> wrote:
>
> 'Clear all the controls in the Form Header section.
> For Each ctl In Me.Section(acHeader).Controls
> Select Case ctl.ControlType
> Case acTextBox, acComboBox
> If ctl.Name <> "name of control here" Then
> ctl.Value = Null
> End If
>
> I will also use the Tag property to choose which controls to act on.
>
>
> Duane Hookom
> MS Access MVP
>
> --- In MS_Access_Professionals@yahoogroups.com, mrsgoudge <no_reply@> wrote:
> >
> > I have code to clear all controls in the Form's header without naming each one. Problem is that one of them (Nmbr) has = Count(*) in its control source. How would I insert to skip Nmbr?
> >
> > Here's the code for the relevant portion:
> >
> > 'Clear all the controls in the Form Header section.
> > For Each ctl In Me.Section(acHeader).Controls
> > Select Case ctl.ControlType
> > Case acTextBox, acComboBox
> > ctl.Value = Null
> >
> > Thanks much!
> > Connie
> >
>