设计：
两个TEXT文本框，用于输入文本
一个COMMAND按钮，用于判断这两个文本是否有输入内容
其他忽略


代码如下：
Private Sub Command1_Click()
if text1.text = "" then
msgbox "请输入内容"
text1.setfocus
end if

if text2.text = "" then
msgbox "请输入内容"
text2.setfocus
end if

其他代码忽略..

end sub


运行后：
如果我两个文本框都不输入内容
按下COMMAND1
会弹出“两次”提示框 《请输入内容》，然后光标停在TEXT2中。


疑问：
如果我两个文本框都不输入内容
按下COMMAND1时
当检测到TEXT1内容为空，弹出一个提示窗口，然后光标停在TEXT1中，不检测TEXT2文本框
直到我再按下COMMAND1，重新检测两个文本框


我想实现：
执行
if text1.text = "" then
msgbox "请输入内容"
text1.setfocus
end if
会弹出一次提示窗口，程序停止，光标在TEXT1中闪烁
不要继续执行
if text2.text = "" then
msgbox "请输入内容"
text2.setfocus
end if
这段代码

看看这样行不行
if text1.text="" then
msgbox "请输入内容"
text1.setfocus
else if text2.text="" then
msgbox "请输入内容"
text2.setfocus
end if

Private Sub Command1_Click()
if text1.text = "" then
msgbox "请输入内容"
text1.setfocus
exit sub
end if

if text2.text = "" then
msgbox "请输入内容"
text2.setfocus
exit sub
end if

其他代码忽略..

end sub

应该这样：
Private Sub Command1_Click()
if text1.text = "" and text2.text = "" then
msgbox "请在text1和text2中输入内容"
text1.setfocus
exit sub

elseif text1="" then
msgbox "请在text1中输入内容"
text1.setfocus
exit sub

elseif text2="" then
msgbox "请在text2中输入内容"
text2.setfocus
exit sub

end if

其他代码忽略..

end sub
显然，经过判断后，text1和text2不会为空，程序将继续往后面的代码执行。

[此贴子已经被作者于2006-5-25 12:59:52编辑过]

楼上老乡，我老家离你很近！

我觉着你的代码有一点点复杂！
下面一段是不需要的（当然要了更完善）

if text1.text = "" and text2.text = "" then
msgbox "请在text1和text2中输入内容"
text1.setfocus
exit sub
因为楼主的要求只要有一个为空就跳出来，而且不要再判断第二个了！可以说两个条件事或的关系！

Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Then
a = IIf(Text1.Text = "", "text1不能为空!", "text2不能为空!")
MsgBox a
End If
End Sub

如果两个同时为空，那么msgbox 的提示就显得不完美了。所以我觉得还是应该用if text1="" and text2="" then来判断，从而能给出正确的提示信息，以便用户操作。

dragonfly，你老家在哪里？

Private Sub Command1_Click()
If Text1.Text = "" And Text2.Text = "" Then
a = "text1和text2不能为空!"
Else
a = IIf(Text1.Text = "", "text1不能为空!", "text2不能为空!")
End If
MsgBox a
End Sub

传说中芙蓉姐姐的故乡呵呵