击键转移控件代码

西西弗斯

版主

Rank: 7 Rank: 7 Rank: 7

1^# 大中小发表于 2004-2-26 18:09 只看该作者

击键转移控件代码

Private Sub text0_KeyUp(KeyCode As Integer, Shift As Integer) 'text0是当前控件
Select Case KeyCode '判断击键
Case 48 To 57 '数字键盘

DoCmd.GoToControl "TEXT5" 'TEXT5 是要转移到的控件名
Case 96 To 105 '大键盘上的数字键
DoCmd.GoToControl "TEXT5"

End Select
End Sub

你们走进来的，把一切希望抛在后头吧！

TOP

网球爱好者之家努力方向！

西西弗斯

版主

Rank: 7 Rank: 7 Rank: 7

2^# 大中小发表于 2004-2-26 18:20 只看该作者

Select Case KeyCode '判断击键
Case 48 To 57 '数字键盘
SendKeys "{ENTER}"

Case 96 To 105 '大键盘上的数字键
SendKeys "{ENTER}"

End Select

你们走进来的，把一切希望抛在后头吧！

TOP

加深沟通与联系，让球痴们在这里都能成为好朋友！

西西弗斯

版主

Rank: 7 Rank: 7 Rank: 7

3^# 大中小发表于 2004-2-26 18:26 只看该作者

Private Sub text0_KeyUp(KeyCode As Integer, Shift As Integer) 'text0是当前控件
call SUB转移控件 KeyCode
End Sub
'这是一个子程序在每个控件的keyup事件中调用即可
Public Sub SUB转移控件(键码 As Integer)
Select Case 键码 '判断击键
Case 48 To 57 '数字键盘
SendKeys "{ENTER}"

Case 96 To 105 '大键盘上的数字键
SendKeys "{ENTER}"

End Select
End Sub

你们走进来的，把一切希望抛在后头吧！