关于向数据库中添加日期记录的问题，请帮忙。

Question

我用一个textbox来输入日期，设置好dataformat属性之后如果正确的按照格式比如我输入"2003/5/17"就可以正常的添加到数据库(access)里去，但是如果我只写了"2003"，在添加到数据库的时候就会出问题，怎样才能检查到这种问题？
    或者我用三个textbox分别表示年月日，但是这样的话怎么样才能把他变成数据库里的日期呢？
    谢谢。

Answer 1

一个textbox控件就足够了，你在textbox的lostfocus事件中写上：
Private Sub text1_LostFocus()
    if trim(text1.text)="" then
        msgbox "请输入日期！",48,"提示"
        text1.setfocus
    else    
        If not IsDate(text1.Text) Then
            msgbox "请输入日期型格式！",48,"提示"
            text1.setfocus
        else
            text1.text=format(text1.text,"yyyy-mm-dd")
        end if
    end if
End Sub