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

andymark

1. Private Sub Form_Current()
   
2. '求当前窗体字段Routing 等于 "CQC"时，当前窗体为锁定，不可编辑。
   
3. If Me.Routing = "CQC" Then
   
4.   Me.AllowEdits = False
   
5. End If
   
6. 
   
7. '求当前窗体字段Routing 等于 "Rel"时，当前窗体不锁定，可以编辑。
   
8. If Me.Routing = "Rel" Then
   
9. Me.AllowEdits = True
   
10. 
    
11. End If
    
12. 
    
13. End Sub

复制代码