Run-time Error '-2147352571 (80020005)': Type mismatch

[g8rbroker]

Hi All,

I am having an issue while trying to write to an Access database using VBA. I receive the error on the line below.

.Fields("BILL CALC DONE") = varVF_BillCalcDone

The field in Access where this is trying to write to is listed as a Yes/No field. Is there a conversion function or something else that I should be using? Please help.

Thanks.

 

[RoryA]

try:

.Fields("BILL CALC DONE") = CBool(varVF_BillCalcDone)

 

[g8rbroker]

.Fields("BILL CALC DONE") = CBool(varVF_BillCalcDone) didn't work. I now get a Run-time error ' 13': Type mismatch.

 

[RoryA]

That would suggest that the value of varVF_BillCalcDone cannot be converted to a True/False value. What is its value?

 

[g8rbroker]

The cell in Excel is always either Yes or No. Therefore, I am trying to write either the word "Yes" or "No" to the database.

 

[RoryA]

Fields("BILL CALC DONE") = (varVF_BillCalcDone = "Yes")

should work I think.

 

[NateO]

You can't pass a String to Access like this, Yes/No in Access is a clever guise for a Boolean, it needs to be True or False, or any number = True (-1 is your best bet) and 0 = False.

So create an If Statement in your code, If X = Yes then pass True, Else, False.

Edit: Rory's way is better, that creates your Boolean.

 

[g8rbroker]

Thanks Much!

The True or False if statement worked.