Thanks for the debug tip, that helped a bit more. Now I'm hitting a snag on the line
CurrentDb.Execute strSQL, dbFailOnError
It will run up to this point and give me an error saying the ODBC call failed. Unfortunately this database is for the company I work for so I don't think it would be a good idea for me to post it, however I can give you my current lines of code plus the debug output (I'll be replacing some of the text with substitute)
Code:
Code:
Dim strSQL As String
strSQL = "INSERT INTO dbo_tblEmpTime(DetDBID, EmpNum, EmpName, JobNum, WorkDate, ActivityType, SAPLoc, SAPCostCtr, WBSElem, Hours, Segment, Comments) " & _
"VALUES('" & strDetDBID & "', " & Me.txtEmpNum & ", '" & Me.txtEmpName & "', '" & Me.txtJobNum & "', #" & Me.txtWorkDate & "#, '" & Me.txtActivityType & "', '" & Me.txtSAPLoc & "', " & Me.txtSAPCostCtr & ", '" & Me.txtWBSElem & "', " & Me.txtHours & ", '" & Me.txtSegment & "', '" & Me.txtComments & "')"
Debug.Print strSQL
dbCMC.Execute strSQL, dbFailOnError
Debug:
Code:
INSERT INTO dbo_tblEmpTime(DetDBID, EmpNum, EmpName, JobNum, WorkDate, ActivityType, SAPLoc, SAPCostCtr, WBSElem, Hours, Segment, Comments) VALUES('CTX', 55555, 'Eric', '1123705000', #2/16/2011#, 'DETLB1', 'Company', 100000, '11237050000300000002', 2, 'Foundation', 'blah')