请高手指导，怎么样在窗体里锁定字段的问题。

fjchan

比如第(1)条记录里的某几个字段锁定，而(1)条记录里的别的字段却能编辑，但是第(2)条记录里被第(1)条锁定的字段又不受第(1)条已锁定的影响，可以编辑，想锁定时再锁定。第(3)也一样。应该怎么做啊！

friendship

高水平！

fjchan

太谢谢了

tmtony

好人做到底

Henry D. Sy

帮你写成过程，使另一个按钮也可以调用

1. Private Sub Form_Current()
   
2.     LockCtl False
   
3. End Sub
   
4. 
   
5. Private Sub 命令168_Click()
   
6.     LockCtl True, "08"
   
7. End Sub
   
8. 
   
9. Sub LockCtl(bln As Boolean, Optional str As String)
   
10.     Dim ctl As Control
    
11.     For Each ctl In Me.Controls
    
12.         If ctl.ControlType = acTextBox Then
    
13.             If Len(str) <> 0 Then
    
14.                 If Left(ctl.ControlSource, 2) = str Then
    
15.                     ctl.Locked = bln
    
16.                 End If
    
17.             Else
    
18.                 ctl.Locked = bln
    
19.             End If
    
20.         End If
    
21.     Next
    
22. End Sub

复制代码

[ 本帖最后由 Henry D. Sy 于 2008-12-8 23:03 编辑 ]

fjchan

果然可以，真是谢谢了。

fjchan

原来是乱码，要刷新下才行

fjchan

高手，Private Sub ÃüÁî168_Click() 是什么字符

Henry D. Sy

所以说你要考虑周全，帮你的人并不知道您的真正用途，只知道你要锁定。

1. Dim ctl As Control
   
2. Private Sub Form_Current()
   
3.     For Each ctl In Me.Controls
   
4.         If ctl.ControlType = acTextBox Then
   
5.             If Left(ctl.ControlSource, 2) = "08" Then
   
6.                 ctl.Locked = False
   
7.             End If
   
8.         End If
   
9.     Next
   
10. End Sub
    
11. Private Sub 命令168_Click()
    
12.     For Each ctl In Me.Controls
    
13.         If ctl.ControlType = acTextBox Then
    
14.             If Left(ctl.ControlSource, 2) = "08" Then
    
15.                 ctl.Locked = True
    
16.             End If
    
17.         End If
    
18.     Next
    
19. End Sub

复制代码

fjchan

谢谢回答，可是这样的话如果一个选项卡里的数据编辑完了之后点了打印之后，同一个选项卡的下一条记录也不能编辑了。还有我退出来之后再进去，又能再编辑了，没锁住。能再指教下吗？

[ 本帖最后由 fjchan 于 2008-12-8 22:28 编辑 ]