error on inserting value

[dada]

anyone can tell me what's wrong with this code? it keeps on giving me error "Number of query values and destination fields are not the same".. please help..

btw, cTime and ccDate are Textbox

Dim sql, in_sql, out_sql As String
sql = "INSERT INTO Transaction(TimeIn , EntryDate) VALUES ('"
sql = sql & cTime & "," & ccDate & "')"
DoCmd.RunSQL (sql)

[pbaldy]

As answered elsewhere:

Rather than surrounding each value with the single quote delimiter, you've got one before the first value and one after the last. Also the date/time delimiter is # rather than '.

cross posters

[maximus]

I have a table Table2 with a time field tm and a date Field dt. On my form there are two text boxes Text0 and Text2 from which I will populate tm and dt.

Dim strSQL As String
strSQL = "Insert into Table2(tm,dt)Values(#" & Me.Text0 & "#,#" & Me.Text2 & "#);"
DoCmd.RunSQL strSQL

this is how my strSQL will look like. Dates and Time needs to be enclosed with #

Instead of using Docmd.RunSQL you can also use CurrentDb.Execute this is a better option.

CurrentDb.Execute strSQL, dbFailOnError

You can also use a RecordSet to insert data into the table like I have done here.

Set rs = CurrentDb.OpenRecordset("table2")
rs.AddNew
rs!tm = Me.Text0
rs!dt = Me.Text2
rs.Update
rs.Close
Set rs = Nothing

[dada]

awesomeness! thanks to the both of you.. works like charm!