Private Sub AmtA_Enter()
If Not IsNull(Me.AmtB) Then
Me.AmtB.Enabled = True
Me.AmtB.SetFocus 'pls.set focus to next object like tab. to
Me.AmtA.Enabled = False
End If
End Sub
Private Sub AmtB_Enter()
If Not IsNull(Me.AmtA) Then
Me.AmtA.Enabled = True
Me.AmtA.SetFocus 'pls.set focus to next object like tab. to
Me.AmtB.Enabled = False
End If