jwcolby
jwcolby at colbyconsulting.com
Fri Jun 11 09:13:29 CDT 2004
Have you tested the "always the first" thing? If I delete the label, then
append it back in, does Access move the existing controls still in the
collection so that the label is first?
John W. Colby
www.ColbyConsulting.com
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Friday, June 11, 2004 9:47 AM
To: 'Access Developers discussion and problem solving'
Cc: 'd.dick at uws.edu.au'
Subject: RE: [AccessD] A2K: Get Control's Label Name
There's a much simpler way:
If a control (any control) has a label bound to it (the label moves when you
move the control) the this function does the job
Function ControlCaption(c As Control) As String
If c.Controls.Count = 0 Then
' the control does not have a label bound to it
' just return the control's data source
ControlCaption = Nz(c.ControlSource,"")
Else
' The control has a label, and it's always the first
' in the Control's collection for the control we're looking at
ControlCaption = c.Controls(0).Caption
End If
End Function
No need to reference the containing form object, no need for any naming
convention, no need to use the tag property, no need to iterate anything.
Just go get the caption.
Lambert
> -----Original Message-----
> From: Darren DICK [SMTP:d.dick at uws.edu.au]
> Sent: Friday, June 11, 2004 2:52 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] A2K: Get Control's Label Name
>
> Thanks Rocky
> I'm gonna use a bit of each
>
> Private Sub ps_SetVisibles(intListItem As Integer)
> Dim ctl As Control
> Dim strLabelCaption As String
> For Each ctl In Me.Controls
> If Mid(ctl.Tag, 3, 1) = intListItem Then
> ctl.Enabled = True
> strLabelCaption = Me("lbl" & Mid(ctl.Name, 4,
> Len(ctl.Name))).Caption
> MsgBox strLabelCaption
> End If
> Next
>
> End Sub
>
>
> ----- Original Message -----
> From: "Rocky Smolin - Beach Access Software" <bchacc at san.rr.com>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Sent: Friday, June 11, 2004 4:31 PM
> Subject: Re: [AccessD] A2K: Get Control's Label Name
>
>
> > Darren:
> >
> > Off the top of my head. Don't know if this'll do but, how about:
> >
> > dim txt as Control
> > dim lbl as Control
> >
> > set txt=(text box control name)
> > set lbl="lbl" & txt.Name
> >
> > Now you've got lbl as the label object and all its properties are
> available.
> >
> > HTH
> >
> > Rocky Smolin
> > Beach Access Software
> > http://www.e-z-mrp.com
> >
> >
> > ----- Original Message -----
> > From: "Darren DICK" <d.dick at uws.edu.au>
> > To: "Access Developers discussion and problem solving"
> > <accessd at databaseadvisors.com>
> > Sent: Thursday, June 10, 2004 11:18 PM
> > Subject: Re: [AccessD] A2K: Get Control's Label Name
> >
> >
> > > Thanks Bob
> > > The naming convention I am using is different to that
> > > We are using "lbl" and then the control name
> > > I am not even directly referring to the 'Parent control' either. I
> > > am using TAGs that meet a criteria. I was hoping it was an exposed
> > > property of some kind
> > >
> > > DD
> > >
> > > ----- Original Message -----
> > > From: "Bob Gajewski" <rbgajewski at adelphia.net>
> > > To: "Access Developers discussion and problem solving"
> > <accessd at databaseadvisors.com>
> > > Sent: Friday, June 11, 2004 3:51 PM
> > > Subject: RE: [AccessD] A2K: Get Control's Label Name
> > >
> > >
> > > > Darren
> > > >
> > > > I believe that the default label name is FieldName_Label, so you
> > > > can
> > always
> > > > just append the _Label to your field names for handling (eg: if
> > > > the
> > field
> > > > name is txtMyTextBox then the label's caption should be
> > > > Me.txtMyTextBox_Label.caption).
> > > >
> > > > Regards,
> > > >
> > > > Bob Gajewski
> > > >
> > > >
> > > > -----Original Message-----
> > > > From: accessd-bounces at databaseadvisors.com
> > > > [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Darren
> DICK
> > > > Sent: Friday, June 11, 2004 01:37
> > > > To: Access Developers discussion and problem solving
> > > > Subject: Re: [AccessD] A2K: Get Control's Label Name
> > > >
> > > >
> > > > Yeah I do that too
> > > > but in this case I can't because things are being done
> > > > differently using tags
> > > >
> > > > Many thanks
> > > >
> > > > DD
> > > >
> > > >
> > > > ----- Original Message -----
> > > > From: "Christopher Hawkins" <clh at christopherhawkins.com>
> > > > To: <accessd at databaseadvisors.com>
> > > > Sent: Friday, June 11, 2004 2:27 PM
> > > > Subject: RE: [AccessD] A2K: Get Control's Label Name
> > > >
> > > >
> > > > > I may be doing it the hard way, but I've always named my
> > > > > labels
> 'lbl'
> > > > > & ControlName.
> > > > >
> > > > > -C-
> > > > >
> > > > > ---- Original Message ----
> > > > > From: d.dick at uws.edu.au
> > > > > To: AccessD at databaseadvisors.com,
> > > > > Subject: RE: [AccessD] A2K: Get Control's Label Name
> > > > > Date: Fri, 11 Jun 2004 14:16:57 +1000
> > > > >
> > > > > >Hello all
> > > > > >When I drop a control onto a form (say a text Box) The system
> > > > > >usually it something like Text0 or text1 etc and it
> also
> > > > > >creates its very own label with similar names.
> > > > > >
> > > > > >If I know the name of a control can I get it's label name and
> > > > > >or caption or any such properties?
> > > > > >
> > > > > >eg Me.txtMyTextBox.ChildLabel.caption
> > > > > >
> > > > > >Many thanks in advance
> > > > > >
> > > > > >Darren
> > > > > >
> > > > > >--
> > > > > >_______________________________________________
> > > > > >AccessD mailing list
> > > > > >AccessD at databaseadvisors.com
> > > > > >http://databaseadvisors.com/mailman/listinfo/accessd
> > > > > >Website: http://www.databaseadvisors.com
> > > > > >
> > > > >
> > > > >
> > > > > --
> > > > > _______________________________________________
> > > > > AccessD mailing list
> > > > > AccessD at databaseadvisors.com
> > > > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > > > Website: http://www.databaseadvisors.com
> > > > --
> > > > _______________________________________________
> > > > AccessD mailing list
> > > > AccessD at databaseadvisors.com
> > > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > > Website: http://www.databaseadvisors.com
> > > >
> > > >
> > > > --
> > > > _______________________________________________
> > > > AccessD mailing list
> > > > AccessD at databaseadvisors.com
> > > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > > Website: http://www.databaseadvisors.com
> > > --
> > > _______________________________________________
> > > AccessD mailing list
> > > AccessD at databaseadvisors.com
> > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > Website: http://www.databaseadvisors.com
> >
> > --
> > _______________________________________________
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> --
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
--
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com