I am trying to update the date field in a table (with the current date as the invoice date). When I run the VBA code I get a data validation error. I checked the talbe and the field is a date format. i even set it to short date and still get the error. Here's the update code
InvDt = Date
DoCmd.RunSQL "UPDATE CompanyInformation " _
& "LEFT JOIN tblCompanyExtras ON CompanyInformation.CompanyAccountNo = tblCompanyExtras.CompanyId " _
& "SET tblCompanyExtras.DateBilled = #" & InvDt & "# " _
& "WHERE (((CompanyInformation.CompanyBillingDate) = " & BillDt & ") AND ((tblCompanyExtras.DateBilled) Is Null));"