＋设为首页 ＋添加到收藏夹
我的毕业设计中，有一项是用VB做界面，向ACCESS库存储信息。由于ACCESS库中有几项内容是必须添的，这样，就要在界面上控制，当不能为空的项在导入数据库时为空的话，要提示用户，该项不能为空，直到该项有值时才能存储。该怎样编写代码实现呢？
请各位高手指教！
if trim(text1.text)="" then
msgbox "该项不能为空，请重新输入"
end if
为方便用户，还可以此时把光标放到textbox中。
Private Sub Text1_LostFocus()
If Len(Trim(Text1.Text)) = 0 Then
MsgBox "不能为空"
Text1.SetFocus
End If
End Sub
If Len(Trim(Text1.Text)) = 0 Then
MsgBox "不能为空"
End If
if text1="" then
msgbox "请输入数据"
endif
Private Sub Text1_LostFocus()
If Trim(Text1.Text) ="" Then
MsgBox "不能为空,请输入"
Text1.SetFocus
End If
End Sub
If Len(Trim(Text1.Text)) = 0 Then
MsgBox "不能为空"
Text1.SetFocus
end if
