如何通过判断文本框是否为空来控制组合框内容的改变？

43644169by

我想要通过判读窗体上的一个文本框是否为空，为空则不允许更改同窗体上的另一个组合框（下拉框）的内容。我在这个下拉框的更新前事件中写了如下代码：（下拉框名为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

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

红尘如烟

最好的办法是在文本框更新后，根据是否为空来决定启用/禁用组合框：

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

复制代码

43644169by

谢谢楼上的帮助！

hope678

学习了