Solved Parametrised query: "type conversion failure" when inserting dates, e.g. Now()

Notiophilus

Registered User.
Local time
Today, 08:19
Joined
Jan 18, 2015
Messages
42
Trying to insert a date with a parametrised query, but it always fails: "Microsoft Access set 1 field(s) to Null due a type conversion failure..." I've tried inserting Now() - which is what I want - CDate(01/02/2003), 01/02/2003... nothing. I'm sure the answer is really obvious, but googling has failed and dates always do my head in.

See the attached database for a very simple test table and query.

(Possibly relevant: my system uses the usual DD/MM/YY formatting and I know Access (or just VBA)? uses the United States MM/DD/YY formatting, which can cause trouble.)
 

Attachments

Code:
INSERT INTO tblTEST ( DateTest )
Values ([SomeDate])

Code:
Public Sub TestParameterQuery()
    With CurrentDb.QueryDefs("qryTest")
        .Parameters(0) = Now()
    End With

End Sub
 
think there is a bit more to it, the sql you have you cannot set parameters in vba - at least the parameters option on the ribbon is greyed out in the sql window

try

Code:
INSERT INTO tblTEST ( DateTest )
SELECT [Somedate]

and your code

Code:
Public Sub TestParameterQuery()
'On Error GoTo ErrHandler


    With CurrentDb.QueryDefs("qryTest")
        .Parameters(0) = Now()
        .Execute
    End With
    
End Sub

If you want to use parameters for a values type append, create the query in design view and set the parameter, then go to the sql view and change the select line to values

Code:
PARAMETERS somedate DateTime;
INSERT INTO tblTEST ( DateTest )
VALUES ([Somedate]);

Or just include the parameters line when writing your sql
 
Yes, I missed off the execute, sorry. :(
Also added the parameters to the query

Code:
PARAMETERS SomeDate DateTime;
INSERT INTO tblTEST ( DateTest )
VALUES ([SomeDate]);

If you want to name the parameters
Code:
Public Sub TestParameterQuery()
    With CurrentDb.QueryDefs("qryTest")
        .Parameters("SomeDate") = Now() + 1
        .Execute
    End With
   
End Sub
 
YEP, I'd forgotten the .Execute. Like an eejit.
Many thanks!
 
I've tried inserting Now() - which is what I want
You don't actually want Now(). You want Date().

Now() includes time of day and will not be very satisfactory when used as criteria.

This is what happens if you use Now() in the append query.

1697320709296.png
 
Thanks! I didn't say, but I'm actually using this in a LogError function, so time of day is quite helpful.
 

Users who are viewing this thread

Back
Top Bottom