I am still trying to get the select statement to work in one of the form events. I read another post on this forum that I think will straighten me out, but until then I will use this code. Once I switched: RD = Screen.ActiveForm.RDate to this line: RD = Me.RDate.Value
Code:
Private Sub MSort_Enter()
Dim RD As String
Dim MS As Long
If (Me.MSort) = 0 Then
'finds the RDate for the MSORT field
RD = Me.RDate.Value
MS = Format(RD, "yymm")
'Places the above NRec into the GSort Control
Me.MSort = MS
DoCmd.GoToControl "VSort"
Else
Me.VSort.SetFocus
End If
End Sub
Thanks Itsme for all your help and time! It is greatly appreciated!!
aquabp