Office中国论坛/Access中国论坛

标题: 【求助】VBA代码锁定和解锁前窗体 [打印本页]

作者: huanghyd 时间: 2012-11-12 21:57
标题: 【求助】VBA代码锁定和解锁前窗体
【求助】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
我觉得这是比较憋扭的方法.希望有更好的方法!

作者: andymark 时间: 2012-11-13 08:52

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
原来楼上的就行了.

作者: huanghyd 时间: 2012-11-13 18:37
谢谢两位，

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