J
Jason
Hi, Ive been following a way to make the tab selectors colorful, found here:
http://www.fontstuff.com/access/acctut12.htm . Its been very easy and
helpful. However, instead of having text fields that switch visability, I
used subforms. Its turned out looking very nice. However, I am having
difficulties with the set focus code. It suggests using
Me.txtField1.SetFocus . However, I guess I need to point out the subform and
Date field within that subform to switch focus. Can someone help me? Here
is the code that I attempted:
Private Sub Label58_Click()
Me.Progress_Notes.Visible = True
Me.[Forms]![Progress_Notes]![Date].SetFocus
Me.Child_Study_Team.Visible = False
Me.IEP1.Visible = False
Me.Office_Referral1.Visible = False
Me.boxPatch1.Visible = True
Me.boxPatch2.Visible = False
Me.boxPatch3.Visible = False
Me.boxPatch4.Visible = False
Me.boxMain.BackColor = 16776960
End Sub
Thank you!!!!!!
Jason
http://www.fontstuff.com/access/acctut12.htm . Its been very easy and
helpful. However, instead of having text fields that switch visability, I
used subforms. Its turned out looking very nice. However, I am having
difficulties with the set focus code. It suggests using
Me.txtField1.SetFocus . However, I guess I need to point out the subform and
Date field within that subform to switch focus. Can someone help me? Here
is the code that I attempted:
Private Sub Label58_Click()
Me.Progress_Notes.Visible = True
Me.[Forms]![Progress_Notes]![Date].SetFocus
Me.Child_Study_Team.Visible = False
Me.IEP1.Visible = False
Me.Office_Referral1.Visible = False
Me.boxPatch1.Visible = True
Me.boxPatch2.Visible = False
Me.boxPatch3.Visible = False
Me.boxPatch4.Visible = False
Me.boxMain.BackColor = 16776960
End Sub
Thank you!!!!!!
Jason