Private Sub Field3_KeyDown(KeyCode As Integer, Shift As Integer)
ShiftDown = (Shift And SHIFT_MASK) > 0
If OnOff Then
If KeyCode = Key_Tab Then
If ShiftDown = 0 Then
KeyCode = 0
Me!Sub1.SetFocus
DoCmd.GoToControl "Field0"
End If
ElseIf KeyCode = Key_Return Then
KeyCode = 0
Me!Sub1.SetFocus
DoCmd.GoToControl "Field0"
Else: Exit Sub
End If
End If
End Sub作者: ccczzz 时间: 2003-12-30 15:26
把选项控键删除后,tab键就不能从子窗体退出进入主窗体,选项控键的作用在哪里?请指点,谢谢