Office中国论坛/Access中国论坛

标题: 如何通过判断文本框是否为空来控制组合框内容的改变？ [打印本页]

作者: 43644169by 时间: 2011-3-19 14:06
标题: 如何通过判断文本框是否为空来控制组合框内容的改变？
我想要通过判读窗体上的一个文本框是否为空，为空则不允许更改同窗体上的另一个组合框（下拉框）的内容。我在这个下拉框的更新前事件中写了如下代码：（下拉框名为shopstate，文本框名为shopnametxt）

Private Sub shopstate_BeforeUpdate(Cancel As Integer)
Dim var
'取得下拉框的内容
var = Me.shopstate.Value
If (IsNull(Me.shopnametxt.Value)) Or (Me.shopnametxt.Value = "") Then

MsgBox ("信息填写完全后才能更新门店装修状态！请填写门店简称。")

'?如何才能在此处控制下拉框shopstate 的内容不变(不改)?

End If
End Sub

如上我打了？的那行，应该如何编写才能达到文本框为空时，下拉框内容不改的效果呢？请各位帮帮忙！！

作者: todaynew 时间: 2011-3-19 16:39
本帖最后由 todaynew 于 2011-3-19 16:40 编辑

If IsNull(Me.shopnametxt.Value)=True Or IsNull(Me.shopnametxt.Value) =True Then

作者: 红尘如烟 时间: 2011-3-19 19:13
最好的办法是在文本框更新后，根据是否为空来决定启用/禁用组合框：

Private Sub shopnametxt_AfterUpdate()
Me.shopstate.Enabled(=Nz(Me.shopnametxt)<>"")
End Sub

复制代码

作者: 43644169by 时间: 2011-3-21 11:05
谢谢楼上的帮助！

作者: hope678 时间: 2011-6-27 11:04
学习了

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