excel vba导入到access 无法输入空白日期

it113are

日期输入可以但是输入空白日期就会出错
怎么办呢？
可以请那位大侠帮我解决一下这个问题？？？
有试著加一个判断
if Me.TextBox14.Text <> "" then
错误讯息是消失了！
但是数据一样无法输入到access数据库
怎么办

Dim RS5 As Recordset
    Dim DB5 As Database
   
  Set DB5 = OpenDatabase(ThisWorkbook.Path & "\" & "Amanufactory1.mdb")
  Set RS5 = DB5.OpenRecordset(Name:="ahrlist1", Type:=dbOpenDynaset)
  
       RS5.FindFirst "ahr_id=" & TextBox19
         With RS5
           If RS5.NoMatch = True Then
            MsgBox "杅擂祥湔婓,&#63537;彆剒猁崝樓杅擂&#63384;萸僻怀&#63541;", 1 + 64, "炵苀枑尨"
           Else
          .Edit
          .Fields("unit_name").Value = ComboBox3
          .Fields("class_name").Value = TextBox2
          .Fields("state_name").Value = ComboBox2
          .Fields("card_num").Value = TextBox3
          .Fields("list_name").Value = TextBox4
          .Fields("level").Value = TextBox5
          .Fields("job").Value = TextBox6
          .Fields("m_name").Value = TextBox7
          .Fields("pm_num1").Value = TextBox8
          .Fields("pm_num2").Value = TextBox9
          .Fields("pm_num3").Value = TextBox10
          .Fields("um_num1").Value = TextBox11
          .Fields("um_num2").Value = TextBox12
          .Fields("um_num3").Value = TextBox13
          .Fields("into_fist_date") = CDate(Me.TextBox14.Text)   不能输入空白日期怎么办？
          .Fields("va_date").Value = CDate(TextBox18.Text)
          .Fields("b_date").Value = TextBox15.Value
          .Fields("leave_date").Value = TextBox16.Value
          .Fields("note").Value = TextBox17
        .Update
        MsgBox "党蜊傖髡!", 1 + 64, "炵苀枑尨"
        
   ListView1.SelectedItem.SubItems(20) = TextBox17
   ListView1.SelectedItem.SubItems(19) = TextBox16
   ListView1.SelectedItem.SubItems(18) = TextBox15
   ListView1.SelectedItem.SubItems(17) = TextBox18
   ListView1.SelectedItem.SubItems(16) = TextBox14
   ListView1.SelectedItem.SubItems(15) = TextBox13
   ListView1.SelectedItem.SubItems(14) = TextBox12
   ListView1.SelectedItem.SubItems(13) = TextBox11
   ListView1.SelectedItem.SubItems(12) = TextBox10
   ListView1.SelectedItem.SubItems(11) = TextBox9
   ListView1.SelectedItem.SubItems(10) = TextBox8
   ListView1.SelectedItem.SubItems(9) = TextBox7
   ListView1.SelectedItem.SubItems(8) = TextBox6
   ListView1.SelectedItem.SubItems(7) = TextBox5
   ListView1.SelectedItem.SubItems(6) = TextBox4
   ListView1.SelectedItem.SubItems(5) = TextBox3
   ListView1.SelectedItem.SubItems(4) = ComboBox2
   ListView1.SelectedItem.SubItems(3) = TextBox2
   ListView1.SelectedItem.SubItems(2) = ComboBox3
   ListView1.SelectedItem.SubItems(1) = TextBox19
           End If
           
        End With
   RS5.Close
   DB5.Close
   
   
   End If

zez

没有附件，不好调试，楼主可和、试一下：
.Fields("into_fist_date") = CDate(Me.TextBox14.Text)  改为：
if Me.TextBox14.Text <> "" then   .Fields("into_fist_date") = CDate(Me.TextBox14.Text)

it113are

textbox14 日期是可以输入到access
但是如果要在用excel vba输入空白的日期进去就无法把原本的textbox14的日期移除变成空白日期！！
请问有其他方法嘛

it113are

zez 发表于 2012-3-25 20:06
没有附件，不好调试，楼主可和、试一下：
.Fields("into_fist_date") = CDate(Me.TextBox14.Text)  改为： ...

可以帮帮我嘛？ 还是有问题

ASLXT

把TextBox14的格式设为日期，设置控件的默认值为date()。
实在不行还可以用0代替空白，以后的数据分析就把0当成空白就行了，
...
.Fields("into_fist_date") = CDate(nz(Me.TextBox14.Text,0))
...

it113are

ASLXT 发表于 2012-3-25 22:41
把TextBox14的格式设为日期，设置控件的默认值为date()。
实在不行还可以用0代替空白，以后的数据分析就把 ...

.Fields("into_fist_date") = CDate(nz(Me.TextBox14.Text,0))


设置后 nz  出现错误.....

ASLXT

我测试没有问题，把你的实例上传看看？

zez

it113are 发表于 2012-3-26 07:44
.Fields("into_fist_date") = CDate(nz(Me.TextBox14.Text,0))

nz好象是ACCESS的函数，EXCEL中无此函数。楼主不上传附件。只能是猜着答复。估计这样很难解决问题。

ASLXT

{:soso_e113:}对了，nz是access的，可是用if来判断也可以啊

if Me.TextBox14.Text=“” then

.Fields("into_fist_date") = 0else
else
.Fields("into_fist_date") = CDate(Me.TextBox14.Text,0)

end if