如何控制TEXT的日期格式?

Question

如题!

Answer 1

楼上的意思大概是 ,控制text中输入的内容吧,如果是就参考:
Private Sub Text1_LostFocus()
 If Text1.Text <> "" Then
        If Not IsDate(Text1.Text) Then
        MsgBox "请输入日期型数据:YYYY-M-D！", 48, "提示"
            Text1.SetFocus
            Exit Sub
        Else
           Text1.Text = Format(Text1.Text, "YYYY-MM-DD")
        End If
    End IfEnd Sub

Answer 2

顶!!!!!
我想输入后 把TEXT中的日期内容提交给ACCESS数据库!
已经用ADO打连接了

Answer 3

RS.ADDNEW
RS.FIELDS(INDEX)=TEXT1.TEXT
...
RE.UPDATE

Answer 4

RS.OPEN "TABLENAME" ,ADO ,adOpenKeyset, adLockOptimistic
RS.FIELDS(INDEX)=TEXT1.TEXT
...
Rs.UPDATE

Answer 5

RS.OPEN "TABLENAME" ,ADO ,adOpenKeyset, adLockOptimistic
if text1.text<>"" then RS.FIELDS(INDEX)=TEXT1.TEXT 
...
Rs.UPDATE