Office中国论坛/Access中国论坛

标题: [求助]连续窗体文本框控件锁定问题 [打印本页]

作者: xuwenning 时间: 2010-8-16 20:57
标题: [求助]连续窗体文本框控件锁定问题
本帖最后由 xuwenning 于 2010-8-16 20:58 编辑

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

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

作者: t小宝 时间: 2010-8-16 21:55
文本框更新后即锁定，也不能再添加记录了，即窗体上的记录只能更改一次

作者: xuwenning 时间: 2010-8-16 23:17
谢谢t小宝关注
我的意思就是在文本框添加了记录后马上锁定这个文本框

作者: todaynew 时间: 2010-8-17 06:52

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

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

作者: xuwenning 时间: 2010-8-17 08:06

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

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

作者: xuwenning 时间: 2010-8-17 08:08
本帖最后由 todaynew 于 2010-8-17 08:12 编辑

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

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

作者: todaynew 时间: 2010-8-17 08:12

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

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

作者: xuwenning 时间: 2010-8-17 08:46

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

好的这就上传附件
[attach]43137[/attach]

作者: todaynew 时间: 2010-8-17 09:22
[attach]43141[/attach]

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 时间: 2010-8-17 14:36

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

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

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