我的界面有好多需要输入的数据，想设置一个提示语句，如果有其中一个没有输入，提示，请输入数据，怎么编写呢？

for循环

能具体点吗？

Dim t As Control
For Each t In Me.Controls
If TypeOf t Is TextBox Then
If t.Text = "" Then
MsgBox "请输入数据！", vbExclamation, "信息"
t.SetFocus
Exit Sub
End If
End If
Next t
'如果文本框都不为空，那么循环会正常结束，执行到这里
'因此这里写后续代码处理数据

如果文本框是数组控件 for循环更简单

装B下
一：控件是数组举例
private....()
dim i%
　　for i = 0 to 3
　　　　if len(text1(i)) = 0 then msgbox label1(i) & "无数据！": exit sub
　　next
end sub
二：非控件数组但连续名举例
private....()
dim i%
　　for i = 1 to 4
　　　　if len(me("text" & i)) = 0 then msgbox me("label" & i) & "无数据！": exit sub
　　next
end sub