各位高手本人是菜鸟，我做的是客房管理的系统，我想输入姓名，性别等一些信息时，如果信息为空，就提示错误，一直到填入信息为止，然后录入到数据表中，这是我的代码，请问需要怎么改，先谢谢了
Data1.Recordset.AddNew
If bh.Text <> "" Then Data1.Recordset.Fields("凭证号码") = bh.Text
If ZSDJ(0).Text <> "" Then Data1.Recordset.Fields("姓名") = ZSDJ(0).Text
If Combo1.Text <> "" Then Data1.Recordset.Fields("证件名称") = Combo1.Text
If ZSDJ(1).Text <> "" Then Data1.Recordset.Fields("证件号码") = ZSDJ(1).Text
If ZSDJ(2).Text <> "" Then Data1.Recordset.Fields("详细地址") = ZSDJ(2).Text
If ZSDJ(3).Text <> "" Then Data1.Recordset.Fields("出差事由") = ZSDJ(3).Text
If DBCombo1.Text <> "" Then Data1.Recordset.Fields("房间号") = Val(DBCombo1.Text)
If ZSDJ(4).Text <> "" Then Data1.Recordset.Fields("客房类型") = ZSDJ(4).Text
If DTP1.Value <> "" Then Data1.Recordset.Fields("住宿日期") = DTP1.Value
If tim1.Value <> "" Then Data1.Recordset.Fields("住宿时间") = tim1.Value
If ZSDJ(5).Text <> "" Then Data1.Recordset.Fields("客房价格") = Val(ZSDJ(5).Text)
If ZSDJ(6).Text <> "" Then Data1.Recordset.Fields("住宿天数") = ZSDJ(6).Text
If ZSDJ(8).Text <> "" Then Data1.Recordset.Fields("折扣") = ZSDJ(8).Text
If ZSDJ(7).Text <> "" Then Data1.Recordset.Fields("宿费") = ZSDJ(7).Text
If Combo2.Text <> "" Then Data1.Recordset.Fields("结款方式") = Combo2.Text
If ZSDJ(9).Text <> "" Then Data1.Recordset.Fields("应收宿费") = ZSDJ(9).Text
If ZSDJ(10).Text <> "" Then Data1.Recordset.Fields("预收金额") = Val(ZSDJ(10).Text)
If DTP2.Value <> "" Then Data1.Recordset.Fields("提醒日期") = DTP2.Value
If tim2.Value <> "" Then Data1.Recordset.Fields("提醒时间") = tim2.Value
If DTP3.Value <> "" Then Data1.Recordset.Fields("退宿日期") = DTP3.Value
If tim3.Value <> "" Then Data1.Recordset.Fields("退宿时间") = tim3.Value
If ZSDJ(11).Text <> "" Then Data1.Recordset.Fields("备注") = ZSDJ(11).Text
If ZSDJ(12).Text <> "" Then Data1.Recordset.Fields("性别") = ZSDJ(12).Text
Data1.Recordset.Fields("日期") = Date
Data1.Recordset.Fields("时间") = Time
Data1.Recordset.Fields("BZ") = Format(Now, "YYYYMMDDHHMM")
Data1.Recordset.Fields("标志") = "1"

你没有用msgbox()函数提示呀！

msgbox()提示和ZSDJ(1).setfocus我都会用，重要的是怎么样才能让代码再运行一边IF语句吖，如果只有msgbox()提示和ZSDJ(1).setfocus点了确定以后尽管会提醒并且焦点也在改对话框，但是信息已经录入数据表中了，不行的吖

有没有高手指点下吖

If ZSDJ(0).Text <> "" Then
Data1.Recordset.Fields("姓名") = ZSDJ(0).Text
else
msgbox(”提示语“)

end if
这样应该就可以吧！！你试下，不行再的话就有嵌入if...else if 这样的语句啦！！这样就会每执行一句它就会判断一次。但代码不简洁！！

If Text1.Text <> "" Then
If Text2.Text <> "" Then
If Text3.Text <> "" Then
If checkclass Then
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("课程号").Value = Text1.Text
Adodc1.Recordset.Fields("课程名称").Value = Text2.Text
Adodc1.Recordset.Fields("授课老师").Value = Text3.Text
Adodc1.Recordset.Update
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
MsgBox "添加成功!"
'Adodc1.Refresh
Else
MsgBox "课程重复,请另外输入一门课程!"
Text1.SetFocus
End If
Else
MsgBox "该项不能为空,请输入授课老师姓名!"
End If
Else
MsgBox "该项不能为空,请输入课程名称!"
End If
Else
MsgBox "该项不能为空,请输入课程号!"
End If

Exit Sub
像这样吧，你试下！！

用cancel不可以吗?
其实用控件做控制起来就不如用代码灵活

在你的保存数据代码前先判断各个数据是否填写完,再执行保存代码.
如:
If bh.Text <> "" or ZSDJ(0).Text <> ""or Combo1.Text<> "" ...then msgbox "必顺填写完整"
Exit sub
end if
Data1.Recordset.AddNew
Data1.Recordset.Fields("凭证号码") = bh.Text
Data1.Recordset.Fields("姓名") = ZSDJ(0).Text

...