MS-Access Избегайте импорта пустых полей из поля формы Word документа

Question

MS-Access Избегайте импорта пустых полей из поля формы Word документа

Я пытаюсь импортировать поля из документа Word поля формы, который я создал, в таблицу 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, как показано выше, но, похоже, он не распознает поле как нулевое. Любая помощь будет оценена. Заранее спасибо.

2

vba ms-access import ms-word form-fields

Источник

user1417676 23 июл '12 в 15:21

1 ответ

Решение

Другие вопросы по тегам vba ms-access import ms-word form-fields

user2548 23 июл '12 в 15:23 2012-07-23 15:23 · Accepted Answer · 2012-07-23 15:23

Я подозреваю, что это, вероятно, строка нулевой длины ("").

Вы можете использовать IsDate.

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

Для других типов данных вы можете проверить строку нулевой длины и заполненные пробелом поля, например:

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