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

chuanxi58

大家好,我现在做一个新增窗体.
请问怎样让TAB键或ENTER键从窗体的主体控件部分移到窗体的页眉的保存按钮上,意思就是当TAB或ENTER到窗体主体的最后一个控件时下一个就到窗体页眉的保存按钮上.谢谢

Henry D. Sy

应该可以调整tab次序的，在窗体设计视图中

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

chuanxi58

谢谢kangking