Office中国论坛/Access中国论坛

标题: 如何屏蔽shift键呢? [打印本页]

作者: yaoiii 时间: 2004-3-13 16:32
标题: 如何屏蔽shift键呢?
请问如何屏蔽shift键呢?

作者: xurui 时间: 2004-3-13 16:45

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropvalue As Variant) As Integer
　　Dim dbs As Object, prp As Variant
　　Const conPropNotFoundError = 3270

　　Set dbs = CurrentDb
　　On Error GoTo Change_Err
　　dbs.Properties(strPropName) = varPropvalue
　　ChangeProperty = True

Change_Bye:
　　Exit Function

Change_Err:
　　If Err = conPropNotFoundError Then　　' Property not found.
　　　　Set prp = dbs.CreateProperty(strPropName, _
　　　　　　varPropType, varPropvalue)
　　　　dbs.Properties.Append prp
　　　　Resume Next
　　Else
　　　　' Unknown error.
　　　　ChangeProperty = False
　　　　Resume Change_Bye
　　End If
End Function

调用方法：
ChangeProperty "AllowBypassKey", 1, False　'false为禁止SHIFT键，TRUE为恢复

作者: zhanguoru 时间: 2004-3-13 18:42
标题: 樓上方法很好!!
樓上方法很好!!

[此贴子已经被作者于2004-3-13 10:45:14编辑过]

作者: xurui 时间: 2004-3-13 18:48
哈哈！我有而是从其他地方看的！！

作者: yaoiii 时间: 2004-3-13 20:23
请问2楼:这段代码放在哪呢?

作者: paul16 时间: 2004-3-13 20:52
可以将代码放在通用模块中！建议用工具软件就很好用了！自己写代码又麻烦，下载一个ACCESS设置工具就解决了！

作者: yaoiii 时间: 2004-3-13 20:58
哦

作者: bnujunbo_li 时间: 2004-3-13 23:22
帮我一下,多谢!
我是新手
我将一个表中的字段值通过单击事件动态显示在了一个组合框中,代码如下:
Dim strSQL As String
strSQL = "Select Distinct name From message"
With Comboo1
      .Value = Null
      .Requery
      .RowSource = strSQL
      .Value = .ItemData(0)
  End With

当我选择组合框列表中的其它值时,怎么才能让它进入到组合框中进行显示呢?

作者: yaoiii 时间: 2004-3-14 02:38
回答第8楼:点选你的组合框的属性.并将组合框属性的数据源改为你要显示的表中的字段名即可.无须代码

[此贴子已经被作者于2004-3-13 18:38:39编辑过]

作者: zhanguoru 时间: 2004-3-18 18:35
回答8樓的,我看了您的代碼后略有啟發,引用了君的代碼,沒有問題!!謝謝您的代碼!!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)