A
Anne
I found this post from 08/28/09 in which FredG supplied this code, I replaced
ID with my MyTransID which is my autonumberfield and primaryID key for this
query from tbltransactions.
Private Sub cmdRefresh_Click()
Dim MyId As Long
MyId = Me.MyTransID
Me.Requery
Me.MyTransID.SetFocus
DoCmd.FindRecord MyId, acEntire, , acSearchAll, , acCurrent
End Sub
I get an error and highlighted is SetFocus.
ID with my MyTransID which is my autonumberfield and primaryID key for this
query from tbltransactions.
Private Sub cmdRefresh_Click()
Dim MyId As Long
MyId = Me.MyTransID
Me.Requery
Me.MyTransID.SetFocus
DoCmd.FindRecord MyId, acEntire, , acSearchAll, , acCurrent
End Sub
I get an error and highlighted is SetFocus.