When I open a form fAccepted should under some conditions another form fChanges open. With access 2000 I use this code.
Private Sub Form_Open(Cancel As Integer)
DoCmd.MoveSize 0, 0, 15300, 10000
If DMax("RevDate", "tVersion"
>= DLookup("LastAccess", "tUsers", "User='" & Forms!fInloggning!tbUser & "'"
Then
DoCmd.OpenForm "fChanges"
End If
End Sub
If the condititon is meet, fChanges opens but behind fAccepted. I have tried Forms!fChanges!btOk.SetFocus after DoCmd.OpenForm... without any difference.
I have done things like this before without any problems.
Private Sub Form_Open(Cancel As Integer)
DoCmd.MoveSize 0, 0, 15300, 10000
If DMax("RevDate", "tVersion"
DoCmd.OpenForm "fChanges"
End If
End Sub
If the condititon is meet, fChanges opens but behind fAccepted. I have tried Forms!fChanges!btOk.SetFocus after DoCmd.OpenForm... without any difference.
I have done things like this before without any problems.