再次请教各位大虾,我用了这个宏的方法试了,只是,我的宏名用了%{ENTER}之后,在保存时报错,报错的内容如下:
AUTOKEYS中的键或组合键%{ENTER}有语法错误,或不被允许, 请使用SENDKEYS语法以指定该键或该组合键.有关允许的键或组合键,请先择帮助按钮.
请各位看看我目前哪里弄错了,是不是方法不对,是否还有其它的解决这个问题的方法呀?
等待答案中.
窗体属性中：事件－>键预览 设为：是
Dim AltIsTrue As Boolean
Dim EnterIsTrue As Boolean
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 18 Then '18是ALT键
AltIsTrue = True
End If
If KeyCode = 13 Then '13是Enter键
EnterIsTrue = True
End If
If AltIsTrue = True And EnterIsTrue Then
SendKeys "%{F4}" '将打开的属性窗口关闭
AltIsTrue = False
EnterIsTrue = False
End If
End Sub
Private Sub Form_Load()
AltIsTrue = False
EnterIsTrue = False
End Sub
感谢您的帮助.基本上是解决了这个问题.
只是目前还有点小问题,也就是当我连续多次按下ALT+ENTER组合键时,比如达到三次或者是四次时,就会因为出错而将属性窗体自动打开,当手工关闭后,再次按下ALT键时,ACCESS的程序会马上自动退出.
不知是何原因,会不会是设置上或者是哪里还有问题.
碰到同样的问题困饶了，1.AutoKeys 宏组无法设置alt+enter键。2.上面的示例出错，无法解决问题！
总记录：8篇 页次：1/1 9 1 :
点击下载此附件