如何屏蔽shift键呢?

yaoiii

请问如何屏蔽shift键呢?

xurui

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 10:45:14编辑过]

xurui

哈哈！我有而是从其他地方看的！！

yaoiii

请问2楼:这段代码放在哪呢?

paul16

可以将代码放在通用模块中！建议用工具软件就很好用了！自己写代码又麻烦，下载一个ACCESS设置工具就解决了！

yaoiii

哦

bnujunbo_li

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

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

yaoiii

回答第8楼:点选你的组合框的属性.并将组合框 属性的 数据源 改为你要显示的 表中的字段名 即可.无须代码

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

zhanguoru

回答8樓的,我看了您的代碼后略有啟發,引用了君的代碼,沒有問題!!謝謝您的代碼!!