access2003启动窗体问题。

我承认我手贱,刚学会启动窗体,手贱了一下,随便指定了一个窗体,然后更贱的是把所有显示的勾全挂了。然后我就悲剧了,怎么也回不到编辑的界面了,神啊,谁比我惨呀。高人救命。噢噢... 我承认我手贱,刚学会启动窗体,手贱了一下,随便指定了一个窗体,然后更贱的是把所有显示的勾全挂了。然后我就悲剧了,怎么也回不到编辑的界面了,神啊,谁比我惨呀。
高人救命。
噢噢噢,我已经会了,谢谢……自己吧,运气不差。
顺便改改问题,请问怎么才能屏敝这种情况。就是不让我的启动窗体被别人跳过。
仍然想知道。
展开
 我来答
羽扇子君
2011-04-11 · TA获得超过935个赞
知道小有建树答主
回答量:294
采纳率:0%
帮助的人:393万
展开全部
利用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再进行发放.这样才更安全.
追问
你就是传说中的神啊,大神给你个分高点的,一起搞定它吧。我给分。
http://zhidao.baidu.com/question/250885863.html
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式