Insert Query Problem

[nicktred]

I have an insert statement that doesnt quite work right

**************
Dim strSQL As String
Dim antpost As Double


strSQL = "INSERT INTO shiftcalculations VALUES (1111, " & Me.Ant_PostShift & ", " & Me.sup_infShift & "," & Me.right_leftShift & ")"
CurrentDb.Execute strSQL
***************

It gets the value but rounds it of to the nearest whole number for example if the value is 6.4 it adds it to db as 6.0

I have set decimal places to 1 and this brings up the .0 but seems to be rounding off values before insert

any ideas

cheers

Nick

 

[mndrlion]

Try to narrow down the problem by setting a break point on the statement

CurrentDb.Execute strSQL

Then examine the value of strSQL.

 

[nicktred]

I put a breakpoint in before the insert is done to display the contents on strSQL and it contains the data in the right format without any rounding but still rounds it when it inserts it into the db. #

Nick

 

[mndrlion]

Check the destination field in the table. Is the field size set to single or double? Is the decimal places property set to something other than zero?

 

[nicktred]

Thanks for the help was beign really stupid hadnt set it to double. Thats the prob after working for 8 odd hours straight seem to miss stupid things

thanks again

nick