求助:窗体的TAB键或ENTER移动次序的问题

kangking

Option Compare Database
Option Explicit
'设置一个公共变量来标明是不是录入的最后一个文本框。
Dim isLastText As Boolean


Private Sub Command0_Click()
'这个命令按钮设计在页眉。
MsgBox "你已经单击了命令按钮。"
'使录入的第一个文本框得到焦点。
Me.Text1.SetFocus

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
'如果不是按下的回车键则退出。
If KeyAscii <> 13 Then Exit Sub
'如果按下的是回车键并且 isLastText 为真，则让命令按钮得到焦点。
If isLastText Then
    Me.Command0.SetFocus
    isLastText = False
End If

End Sub


Private Sub Form_Load()
'加载窗体设置窗体的键预览为真。
Me.KeyPreview = True

End Sub


Private Sub Text15_LostFocus()
'这是录入时最后一个文本框的失去焦点事件。
'控件失去焦点出使变量 isLastText 为真。
isLastText = True

End Sub