MS-Access避免从窗体字段文档导入空字段

问题描述：

我想从我已创建到MS-Access表格中的表单字段文档导入字段。导入工作正常，除非其中一个日期字段为空，然后它会引发类型不匹配错误。我如何避免这个错误？MS-Access避免从窗体字段文档导入空字段

Dim rst As New ADODB.Recordset 
With rst 
    .AddNew 
    !BPRid = doc.FormFields("frmBPRid").Result 
    If Not IsNull(doc.FormFields("frmReceiptDate").Result) Then 
    !ReceiptDate = doc.FormFields("frmReceiptDate").Result 
    End If  
    .Update 
    .Close 
End With

我试图将它包装在if语句中，如上所示，但它似乎无法将字段识别为null。任何帮助，将不胜感激。提前致谢。

答

我怀疑它可能是一个零长度的字符串（“”）。

您可能想使用IsDate。

If IsDate(doc.FormFields("frmReceiptDate").Result) Then 
    !ReceiptDate = doc.FormFields("frmReceiptDate").Result 
End If

对于其它数据类型，您可以检查一个零长度字符串和空间，像这样充满领域：

If Trim(doc.FormFields("frmReceiptDate").Result & "") <> vbNullString

是的，这做到了。谢谢。 – talbright 2012-07-23 15:25:32

这可能需要另一个问题，但是有什么方法可以确定表单中是否存在字段？ – talbright 2012-07-23 15:28:50

你当然可以检查表单域。让我看看是否有更快的方法。 – Fionnuala 2012-07-23 15:30:32

MS-Access避免从窗体字段文档导入空字段

相关推荐