想实现判断窗口1个以上的文本框内容是否为空,只要任何一个文本框内容为空就弹出对话框,有没有精简的代码,我编的代码如下,请大神们指导一下!
With Forms("入库单").Controls("ComboBox6")
If .Value Is Nothing Then
Messagebox.Show("入库单无内容,无法打印","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
With Forms("入库单").Controls("ComboBox5")
If .Value Is Nothing Then
Messagebox.Show("入库单无内容,无法打印!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
With Forms("入库单").Controls("ComboBox1")
If .Value Is Nothing Then
Messagebox.Show("入库单无内容,无法打印","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
With Forms("入库单").Controls("TextBox4")
If .Value Is Nothing Then
Messagebox.Show("入库单无内容,无法打印","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)