[AccessD] (A97) Advancing through a tabbed form automatically

Andy

I sort of found the problem. In the actual control properties, I already 
have "=cbfLostFocus()" because I use two public functions to change the 
control backcolor during the Got/Lost Focus events for user visibility. 
Therefore, the CBF code for txtJobTelephoneCell_GotFocus() event is 
ignored. I have to figure out another way to do this.

Thanks!
Bob

On Friday, March 14, 2003 12:44 PM, Andy Lacey 
[SMTP:andy at minstersystems.co.uk] wrote:
> Bob
> I use your 3rd method (just tabxxx.setfocus) and it works fine. Have you
> tried putting up a Msgbox in that LostFocus to make sure it's even going
> through there?
>
> Andy Lacey
> http://www.minstersystems.co.uk
>
>
>
> > -----Original Message-----
> > From: accessd-admin at databaseadvisors.com
> > [mailto:accessd-admin at databaseadvisors.com] On Behalf Of Bob Gajewski
> > Sent: 14 March 2003 15:35
> > To: 'accessd at databaseadvisors.com'
> > Subject: [AccessD] (A97) Advancing through a tabbed form automatically
> >
> >
> > I know that this thread was previously discussed, but I
> > cannot find any of
> > the older archives, so I am asking for assistance from the group
> >
> > I have a bound form (frmJobs) that contains numerous controls
> > on the main
> > form, and four tabs (tabMain, tabJobDetails, tabJobArea and
> > tabJobComments). Each tab (of course) has several controls
> >
> > What I am trying to do is automatically advance from the last field
> > (txtJobTelephoneCell) on the first tab (tabMain) to the first field
> > (lngJobBaseColorID) on the second tab (tabDetails). I have
> > tried the three
> > code examples below; none do anything. As usual, I'm
> > searching for some
> > ideas or direction
> >
> > TIA,
> >
> > Bob Gajewski
> >
> >
> > *********************************
> > Private Sub txtJobTelephoneCell_LostFocus()
> > tabJobDetails.SetFocus lngJobBaseColorID.SetFocus End Sub
> > *********************************
> > Private Sub txtJobTelephoneCell_LostFocus()
> > lngJobBaseColorID.SetFocus End Sub
> > *********************************
> > Private Sub txtJobTelephoneCell_LostFocus()
> > tabJobDetails.SetFocus End Sub
> > *********************************
> >
> >
> > _______________________________________________
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/a> ccessd
> > Website:
> > http://www.databaseadvisors.com
> >
>
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> .