【求助】VBA代码锁定和解锁前窗体

huanghyd · 发表于 2012-11-12 21:57:22

【求助】VBA代码锁定和解锁前窗体。我的代码打开后第一条记录可以控制，转到第二条记录又无效。请高手帮忙，，谢谢！

Private Sub Form_Current()
'求当前窗体字段Routing 等于 "CQC"时，当前窗体为锁定，不可编辑。
If Me.Routing = "CQC" Then
Me.AllowEdits = False

'求当前窗体字段Routing 等于 "Rel"时，当前窗体不锁定，可以编辑。
If Me.Routing = "Rel" Then
Me.AllowEdits = True

End If
End If
End Sub

Agent · 发表于 2012-11-12 23:45:07

我觉得这是比较憋扭的方法.希望有更好的方法!

andymark · 发表于 2012-11-13 08:52:03

Private Sub Form_Current()
'求当前窗体字段Routing 等于 "CQC"时，当前窗体为锁定，不可编辑。
If Me.Routing = "CQC" Then
Me.AllowEdits = False
End If
'求当前窗体字段Routing 等于 "Rel"时，当前窗体不锁定，可以编辑。
If Me.Routing = "Rel" Then
Me.AllowEdits = True
End If
End Sub

复制代码

Agent · 发表于 2012-11-13 09:26:22

原来楼上的就行了.

huanghyd · 发表于 2012-11-13 18:37:34

谢谢两位，

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[窗体] 【求助】VBA代码锁定和解锁前窗体

本帖子中包含更多资源

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)