Data Type Mismatch

[MHamid]

Hello,

I am getting a data type mismatch in my code below.

CurrentDb.Execute "INSERT INTO QAMaster([Cycle Month],[Report Type],[Date Reviewed],[Reviewer Type],[Reviewer],[Reviewer Report Area],[Main Section],[Topic Section],[Ownership],[Count],[Priority],[QA Update],[L1],[L2],[L3],[Exception],[Notes],[Outliers])" & _
    "VALUES ('" & Me.CycleMonth & "', '" & Me.ReportType & "', '" & Me.DateReviewed & "', '" & Me.ReviewerType & "', '" & Me.Reviewer & "', '" & Me.ReviewerReportArea & "', '" & Me.MainSection & "', '" & Me.TopicSection & "', '" & Me.Ownership & "', '" & Me.Count & "', '" & Me.Priority & "', '" & Me.QAUpdate & "', '" & Me.L1 & "', '" & Me.L2 & "', '" & Me.L3 & "', '" & Me.Exceptions & "', '" & Me.Notes & "', '" & Me.Outliers & "');", dbFailOnError

All values except for Date Reviewed, Count, Notes, QA Update and Exceptions are combo boxes. Date Reviewed is a date option ... count and notes is a text box, and QA Update and Exceptions are check boxes.

What am I missing in my code?

Thank you

 

[welshgasman]

Are L1,L2 & l3 numeric?. If not they will need the single quotes that you have used for the other fields like Me.Exceptions

Edit:
So you are putting quotes around numbers? Me.Exceptions and not text like Me.L1 ??

 

[MHamid]

Hello,

L1, L2 and L3 are not numeric.

I am not sure exactly what I did, but the code works now.

Private Sub Add_Record_Click()
CurrentDb.Execute "INSERT INTO QAMaster([Cycle Month], [Report Type], [Date Reviewed], [Reviewer Type], [Reviewer], [Reviewer Report Area], [Main Section], [Topic Section], [Ownership], [Count], [Priority], [QA Update], [L1], [L2], [L3], [Exception], [Notes], [Outliers])" & _
    "VALUES ('" & Me.CycleMonth & "', '" & Me.ReportType & "', '" & Me.DateReviewed & "', '" & Me.ReviewerType & "', '" & Me.Reviewer & "', '" & Me.ReviewerReportArea & "', '" & Me.MainSection & "', '" & Me.TopicSection & "', '" & Me.Ownership & "', '" & Me.txtCount & "', '" & Me.PriorityLevel & "', '" & Me.QAUpdate & "', '" & Me.L1 & "', '" & Me.L2 & "', '" & Me.L3 & "', '" & Me.Exception & "', '" & Me.Notes & "', '" & Me.Outliers & "');", dbFailOnError
MsgBox "Record Added Successfully", vbInformation, "SUCCESS!"
End Sub

I think I ended up putting single quotes around everything. It looks like L3 was pulling data from the L2 column.

Now the next issue I have to figure out is getting the check boxes to be entered into the table as a check mark instead of a number.

Thank you

 

[welshgasman]

I believe leaving them as a number will set the checkmark.
For strings you need to surround them with quotes, normally single quotes when you are constructing SQL like you are doing here. For numbers leave quotes out of it, so me.Exceptions would be

& Me.Exceptions

and for L1 etc it would be

& "'" & Me.L1 & "'"

 

[Micron]

0, False and No are the same. 1, True and Yes are the same. Doesn't matter which way the table is formatted, the checkbox will behave accordingly.
FWIW, the issue of quotes around text was raised early on.

 

[Joe4]

Looking back at post 10 and 12, I think you need a space before the word "VALUES" in all those lines.

 

[MHamid]

Hello,

The code that I posted in post#12 does what I need it to do. I was also able to get my check boxes to be added to the table as check boxes instead of numbers.

Thank you all for your help.

I'm on to another task in my form.