G
Guest
hi,
the code below's got an issue of some sort:
Private Sub Frame1_AfterUpdate()
Select Case Frame1.Value
Case 1
Me.Date_on_List.Value.SetFocus
Case 2
Me.RegisteredDate.SetFocus
Case 3
Me.TXBegunDate.Value.SetFocus
Case 4
Me.TXEndedDate.SetFocus
Case 5
Me.OffStudyDate.SetFocus
Case 6
Me.LTFUDate.SetFocus
Case 7
Me.DateDth.SetFocus
Case Else
End Select
End Sub
as you can see, i want to conditionally move the cursor to a date field. if
i don't include the 'value' part of the code in the 1st and 3rd isntances, it
won't get past the vba compiler. the code above 'compiled' but won't run.
what's going on here?
thanks for your bandwidth in advance,
ted
the code below's got an issue of some sort:
Private Sub Frame1_AfterUpdate()
Select Case Frame1.Value
Case 1
Me.Date_on_List.Value.SetFocus
Case 2
Me.RegisteredDate.SetFocus
Case 3
Me.TXBegunDate.Value.SetFocus
Case 4
Me.TXEndedDate.SetFocus
Case 5
Me.OffStudyDate.SetFocus
Case 6
Me.LTFUDate.SetFocus
Case 7
Me.DateDth.SetFocus
Case Else
End Select
End Sub
as you can see, i want to conditionally move the cursor to a date field. if
i don't include the 'value' part of the code in the 1st and 3rd isntances, it
won't get past the vba compiler. the code above 'compiled' but won't run.
what's going on here?
thanks for your bandwidth in advance,
ted