Alan2 ve Alan3'ün tab stop'unu kaldırdım.
Aslında alanın değişip değişmediğini .oldvalue ile yapmıştım ama
if de false oluyor nedense, "Ok" ile kontrol ettim mecburen.
Kod:
Private Sub ALAN1_AfterUpdate()
If Me.ALAN1.Value <> "Ok" Then
Me.ALAN2.SetFocus
End If
End Sub
Private Sub ALAN2_AfterUpdate()
If Me.ALAN2.Value <> "Ok" Then
Me.ALAN3.SetFocus
End If
End Sub
Private Sub Form_Current()
If Me.NewRecord Then
Me.ALAN1 = "Ok"
Me.ALAN2 = "Ok"
Me.ALAN3 = "Ok"
End If
End Sub