access2003启动窗体问题。
我承认我手贱,刚学会启动窗体,手贱了一下,随便指定了一个窗体,然后更贱的是把所有显示的勾全挂了。然后我就悲剧了,怎么也回不到编辑的界面了,神啊,谁比我惨呀。高人救命。噢噢...
我承认我手贱,刚学会启动窗体,手贱了一下,随便指定了一个窗体,然后更贱的是把所有显示的勾全挂了。然后我就悲剧了,怎么也回不到编辑的界面了,神啊,谁比我惨呀。
高人救命。
噢噢噢,我已经会了,谢谢……自己吧,运气不差。
顺便改改问题,请问怎么才能屏敝这种情况。就是不让我的启动窗体被别人跳过。
仍然想知道。 展开
高人救命。
噢噢噢,我已经会了,谢谢……自己吧,运气不差。
顺便改改问题,请问怎么才能屏敝这种情况。就是不让我的启动窗体被别人跳过。
仍然想知道。 展开
1个回答
展开全部
利用DAO对象,为数据库添加一个忽略Shift键的Boolean型属性.通用过程如下:
Sub AddAppProperty(strName As String, varPorpType As Integer, varPorpValue As Variant) '改变系统属性
Dim dbs As Object, prp As Property
Set dbs = CurrentDb()
On Error GoTo addProp_err
dbs.Properties(strName) = varPorpValue
AddProp_Bye:
Exit Sub
addProp_err:
If DBEngine.Errors(0).Number = 3270 Then
Set prp = dbs.CreateProperty(strName, varPorpType, varPorpValue)
dbs.Properties.Append prp
Resume
Else
MsgBox DBEngine.Errors(0).Description
Resume AddProp_Bye
End If
End Sub
上述过程,放在任意一个模块中即可.当然,工程引用,必须要有Dao3.6;
在启动窗体中写如下代码是忽略Shift键:
AddAppProperty "AllowBypassKey", dbBoolean, False '禁止用户使用Shift键
当然,要慎用.一定要在程序编好后再启用它.因为,一旦启用后,自身是无法改回的.只能通过其它调用修改.
还有一点:编写好的程序,一定要编译成.mde再进行发放.这样才更安全.
Sub AddAppProperty(strName As String, varPorpType As Integer, varPorpValue As Variant) '改变系统属性
Dim dbs As Object, prp As Property
Set dbs = CurrentDb()
On Error GoTo addProp_err
dbs.Properties(strName) = varPorpValue
AddProp_Bye:
Exit Sub
addProp_err:
If DBEngine.Errors(0).Number = 3270 Then
Set prp = dbs.CreateProperty(strName, varPorpType, varPorpValue)
dbs.Properties.Append prp
Resume
Else
MsgBox DBEngine.Errors(0).Description
Resume AddProp_Bye
End If
End Sub
上述过程,放在任意一个模块中即可.当然,工程引用,必须要有Dao3.6;
在启动窗体中写如下代码是忽略Shift键:
AddAppProperty "AllowBypassKey", dbBoolean, False '禁止用户使用Shift键
当然,要慎用.一定要在程序编好后再启用它.因为,一旦启用后,自身是无法改回的.只能通过其它调用修改.
还有一点:编写好的程序,一定要编译成.mde再进行发放.这样才更安全.
追问
你就是传说中的神啊,大神给你个分高点的,一起搞定它吧。我给分。
http://zhidao.baidu.com/question/250885863.html
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询