13: Type Mismatch Error

[alexkeel79]

Hello,

I'm having an issue with a piece of my Access VBA Module. The Module imports data from a Microsoft Word form into the Access DB. In one part of the module I am trying to set a variable = a date field on the form:

CrsDivApprvDt2 = IIf(IsDate(doc.FormFields("CrsDivApprv2Dt").Result), doc.FormFields("CrsDivApprv2Dt").Result, "")

If the field is populated the module runs fine but if it is empty I get a "13: Type Mismatch Error". I use a similar line later on when importing the data field into the database and it works fine. Any suggestions?

 

[PHV]

How is dimmed CrsDivApprvDt2 ?
If Variant:
CrsDivApprvDt2 = IIf(..., Null)
If Date:
CrsDivApprvDt2 = IIf(..., 0)

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886