[求助]连续窗体文本框控件锁定问题

xuwenning

求一个通用文本框自行锁定模块
要求文本框控件更新后自行锁定不能修改
我现在用的方法是窗体跟新后事件锁定文本框，窗体更新后添加新记录就受到影响！

窗体上有20个文本框控件，每个控件更新后，一个一个单独编写控件更新后自行锁定代码太繁琐了，能不能有通用的模块在件更新后自行锁定，又不影响其他文本框控件？

t小宝

文本框更新后即锁定，也不能再添加记录了，即窗体上的记录只能更改一次

xuwenning

谢谢t小宝 关注
我的意思就是在文本框添加了记录后马上锁定这个文本框

todaynew

求一个通用文本框自行锁定模块
要求文本框控件更新后自行锁定不能修改
我现在用的方法是窗体跟新后事件锁 ...
xuwenning 发表于 2010-8-16 20:57

在窗体加载事件中写更新后的事件即可。

xuwenning

在窗体加载事件中写更新后的事件即可。
todaynew 发表于 2010-8-17 06:52

如何做给点指点
如：
.......................
txt1.Locked = false
...
txt20.Locked = false
....................................

xuwenning

在窗体加载事件中写更新后的事件即可。
todaynew 发表于 2010-8-17 06:52

发表于 1 小时前!!
老汉起床早啊！

todaynew

发表于 1 小时前!!
老汉起床早啊！
xuwenning 发表于 2010-8-17 08:08

一两句说不清楚，请上传实例吧。

xuwenning

一两句说不清楚，请上传实例吧。
todaynew 发表于 2010-8-17 08:12

好的这就上传附件

todaynew

Private Sub Form_Load()
Dim ctls As Controls
Dim ctl As Control
Set ctls = Me.Controls
For Each ctl In ctls
    If ctl.ControlType <> acLabel Then
        ctl.OnGotFocus = "=AllOnGotFocus('" & ctl.Name & "')"
    End If
Next ctl
End Sub

Function AllOnGotFocus(ctlname As String)
Dim ctls As Controls
Set ctls = Me.Controls
If IsNull(ctls(ctlname).Value) = True Then
    ctls(ctlname).Locked = False
Else
    ctls(ctlname).Locked = True
End If
End Function

xuwenning

Private Sub Form_Load()
Dim ctls As Controls
Dim ctl As Control
Set ctls = Me.Controls
For E ...
todaynew 发表于 2010-8-17 09:22

谢谢老汉
现在才上网看到老汉早已回答了