[已解决]求助，如何这个代码

fjmxwrs

三个文本框textbox1  textbox2  textbox3 一个按钮commandbutton1

要求，三个文本框不能为空值

textbox1.suPrivate Sub CommandButton1_Click()

If textBox1 = "" Then
MsgBox "不能为空！"
textbox1.SetFocus
End If

If textBox2 = "" Then
MsgBox "不能为空！"
textbox2.SetFocus
End If

If TextBox3 = "" Then
MsgBox "不能为空！"
TextBox3.SetFocus
End If

end sub

这段代码会三个弹窗一个接一个出现，如何可以实现弹出一个，确定后，返回文本框而不是下一个弹出提示窗？谢谢指点一下

最佳答案

月排行榜 / 总排行榜

枯禅

2010-3-7 12:35

加exit sub即可或者用遍历文本框,条件达到时exit for

跳转到最佳答案楼层

枯禅

加exit sub即可或者用遍历文本框,条件达到时exit for

fjmxwrs

遍历文本框是什么意思，如何设置条件？

枯禅

回楼上的:

8ZeX6MC0.zip (6.55 KB, 下载次数: 1)

2010-3-7 12:53 上传

点击文件名下载附件
[已解决]求助，如何这个代码

linyaya

Private Sub CommandButton1_Click()
If TextBox1.Value = "" And TextBox2.Value = "" And TextBox3.Value = "" Then
MsgBox "数值不能为空"
TextBox1.SetFocus
End If

End Sub

linyaya

QUOTE:

以下是引用枯禅在2010-3-7 12:35:00的发言：

加exit sub即可或者用遍历文本框,条件达到时exit for

又学了一招，

枯禅

楼上的虽然简单,但不能分别设置获得焦点.

Private Sub CommandButton1_Click()
Dim i%
For i = 1 To 3
    If Me.Controls("textbox" & i) = "" Then
        MsgBox "µÚ" & i & "¸öÎı¾¿òÊÇ¿ÕµÄ,ÏÖÔÚÍ˳ö³ÌÐò!"
        Controls("textbox" & i).SetFocus
        Exit For
    End If
Next
End Sub

fjmxwrs

"µÚ" & i & "¸öÎı¾¿òÊÇ¿ÕµÄ,ÏÖÔÚÍ˳ö³ÌÐò!"

这是怎么打出来的？什么意思？