Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
if Shift=1 and KeyCode=VbKeyM then
msgbox "您按下了Shift+M键"
end if
end sub

如果要让程序响应三个键的组合键就要麻烦一点，比如现在要用shift+b+m打开"部门"窗体。
首先要声明两个窗体级变量mSta/bSta保存M及B键的按键状态，然后在窗体的Load事件里设置KeyPreview(键预览)为True，以便窗体先于控件接收键盘事件。
在KeyDown事件里判断按键，如果按下M或B，就把mSta或bSta置为True。
在KeyUp事件里判断按键，如果放开M或B，就把mSta或bSta置为false。
做完这些事后就可以在KeyDown事件里判断是否按下了Shift+M+B键了，代玛如下：
Dim mSta As Boolean
Dim bSta As Boolean

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyM Then
mSta = True
End If
If KeyCode = vbKeyb Then
bSta = True
End If
If Shift = 1 And mSta = True And bSta = True Then
DoCmd.OpenForm "部门"
mSta = False
bSta = False
End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyM Then
mSta = False
End If
If KeyCode = vbKeyB Then
bSta = False
End If
End Sub

(责任编辑：admin)

• ·提高access的启动速度【译文技巧】
• ·浅谈断号重续的利弊和方法
• ·分析使用Len函数判断字符串为空的原理
• ·mdb快捷方式拖到桌面，打开会出现“不
• ·Access设计表字段是的注意事项
• ·学习别人示例的技巧方法
• ·SQL中获取两日期之间的值
• ·成为伟大开发者的“九步曲”
• ·面向初学者的窗体功能设计集成
• ·WINRAR打包视频演示全过程
• ·《VB函数参考手册》电子书
• ·ACCESS数据表中数据类型“是/否”转为S
• ·Application与Docmd对象Quit方法区别探
• ·获取ACCESS安装路径的二法(分享)
• ·JAVA+ACCESS编程体会
• ·Access 2003开发者扩展工具集概述