Keep getting run time error '3134' for my insert statement in MS Access VBA (1 Viewer)

[luzz]

Hello everyone,

I have written a insert statement to insert my data into my Access table and i keep getting error when i click on save to insert into my table.
Below is my code:

If Me.txtCompanyCode.Tag & "" = "" Then
CurrentDb.Execute "INSERT INTO mxdPONumber(CompanyCode)" & _
" VALUE('" & Me.txtCompanyCode & "')"

End If

Thank you.

 

[sneuberg]

Suggest using Paul's Debugging SQL in VBA method to find out what is causing it.

 

[luzz]

Suggest using Paul's Debugging SQL in VBA method to find out what is causing it.

I have solve the problem, thankyou. Now another issue is that i have error "Too few parameter, expected 1."

 

[JHB]

.. Now another issue is that i have error "Too few parameter, expected 1."

Is CompanyCode a number or a text field type?
If number remove both '.

" VALUE([B][COLOR=Red]'[/COLOR][/B]" & Me.txtCompanyCode & "[B][COLOR=Red]'[/COLOR][/B])"

 

[luzz]

Is CompanyCode a number or a text field type?
If number remove both '.

" VALUE([B][COLOR=Red]'[/COLOR][/B]" & Me.txtCompanyCode & "[B][COLOR=Red]'[/COLOR][/B])"

Hi, is a text
Below is my code:
txtCode -> text
txtYearCode-> Number
txtPONumber - > Number

If Me.txtCode.Tag & "" = "" Then

CurrentDb.Execute "INSERT INTO RunningNo(CompanyCode,YearCode,PONumber)" & _
" Values (" & Me.txtCode & ",'" & Me.txtYearCode & " & Me.txtPONumber & " ')"

End If

 

[JHB]

Hi, is a text
Below is my code:
txtCode -> text
txtYearCode-> Number
txtPONumber - > Number

If Me.txtCode.Tag & "" = "" Then

CurrentDb.Execute "INSERT INTO RunningNo(CompanyCode,YearCode,PONumber)" & _
" Values (" & Me.txtCode & ",'" & Me.txtYearCode & " & Me.txtPONumber & " ')"

End If

You've the ' in wrong places + missing a ,:

CurrentDb.Execute "INSERT INTO RunningNo(CompanyCode,YearCode,PONumber)" & _
         " Values ([B][COLOR=Red]'[/COLOR][/B]" & Me.txtCode & "[B][COLOR=Red]'[/COLOR][/B]," & Me.txtYearCode & [B][COLOR=Red]","[/COLOR][/B] & Me.txtPONumber & ")"

 

[luzz]

You've the ' in wrong places + missing a ,:

CurrentDb.Execute "INSERT INTO RunningNo(CompanyCode,YearCode,PONumber)" & _
         " Values ([B][COLOR=Red]'[/COLOR][/B]" & Me.txtCode & "[B][COLOR=Red]'[/COLOR][/B]," & Me.txtYearCode & [B][COLOR=Red]","[/COLOR][/B] & Me.txtPONumber & ")"

Hi i have added in the ' now i am getting syntax error.
I have attached a copy of my error above.

 

[JHB]

Could you post your database with some sample data + name of the form in which the error is.

Ps. I can't see you've attached anything!

 

[luzz]

Could you post your database with some sample data + name of the form in which the error is.

Ps. I can't see you've attached anything!

Ohhh, never mind! I have solved my error already! Thankyou!

 

[JHB]

And the problem/solution was?

 

[luzz]

And the problem/solution was?

It was just the quotation marks between the string and integer