关于将日期型字段更改成空的问题？

Question

这是字段值不充许为空，要明确为每一记录赋值，你试试如下函数：
Function NoDate(zd As Variant) As Variant
    If IsDate(zd) Then            '字段是日期型数值
          NoDate = zd
    Else
          NoDate = Empty          '非日期型数据，赋空值
    End If
End Function更新时，设置字段值为 NoDate(text1.text)

Answer 1

我将字段绑定在TEXTBOX，不知有没有办法实现？