Hi there,

I am using INSERT INTO query in order to add records to the access db using VBA. My code is as follows:

rivate Sub cmd_OK_Click()
    Dim wrkJet As DAO.Workspace
    Dim db As DAO.Database
    Dim dbname As String
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim Q As DAO.QueryDef

    dbname = "C:\Documents and Settings\sanju\Desktop\Project\Commcare.mdb"
    Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
    Set db = wrkJet.OpenDatabase(dbname, , True, "Microsoft.Jet.OLEDB.3.51")
    strSQL = "INSERT INTO MasterAccountDetails VALUES (txt_AccName.text, txt_Desc.text, CB_Period.Value, txt_Template.text, txt_Midstarttime.text, txt_Midendtime.text );"
    Set Q = db.CreateQueryDef("")
    Q.Sql = strSQL
    Q.Execute
    Q.Close
    db.Close
    wrkJet.Close

But unfortunately my code generates a run time error stating "Too few parameters.Expected 6."
Does anyone know how to solve this prob?
Thanks a lot for u r help in advance.
Sanjna...

It seems you are inserting less values in the table.

If you want to insert less columns in the table then use the following syntax..

insert into tablename (column_1,column_2) values ('value_1','value_2')

Om Prakash

That's the problem. I am inserting values for all the fields in the table. But i am getting the same error msg.

Do you have an autonumber field in your table? If so, use the procedure from Om Prakash

I don't have auto number field in my table.

Please check the data is coming in the fields:

txt_AccName.text,
txt_Desc.text,
CB_Period.Value,
txt_Template.text,
txt_Midstarttime.text,
txt_Midendtime.text

Other reason could be:
One of the column names specified in a select statement does not exist in the table being queried.


Om Prakash