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

fjchan

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

Henry D. Sy

请参阅locked属性

tmtony

如果 是数据表窗体
可以 Enabled和Locked属性一起来用

fjchan

看不懂，我把这个附件上传下，麻烦高手们看看，要用什么方法。

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

Henry D. Sy

把窗体的原代码删掉，把窗体的可编辑属性设为是
然后

1. Private Sub 命令168_Click()
   
2.     Dim ctl As Control
   
3.     For Each ctl In Me.Controls
   
4.         If ctl.ControlType = acTextBox Then
   
5.             If Left(ctl.ControlSource, 2) = "08" Then
   
6.                 ctl.Locked = True
   
7.             End If
   
8.         End If
   
9.     Next
   
10. End Sub

复制代码

另一个按钮，你照着这个方法自己做做看。

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

fjchan

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

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

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

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

fjchan

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

fjchan

果然可以，真是谢谢了。