Insert Data Mismatch Error

[burrina]

Not sure what I'm missing here!

Dim strSQL As String    'Add Absence Data to tblHour.
                
strSQL = "INSERT INTO tblHour (WorkDate,EmployeeID,Hours) "
strSQL = strSQL & "VALUES (#" & Me.AbsenceDteTo & "#, '" & Me.EmployeeID & "', '" & Me.txtAbsHrs & "')"
        CurrentDb.Execute strSQL, dbFailOnError

tblEmployeeTime
Hours  is a Number		 Double
WorkDate  is a Date/Time	 ShortDate
EmployeeID is a Number/FakeKey   LongInteger


tblHour
EmployeeID	Number		LongInteger
Hours		Number		Double
WorkDate	Date/Time	ShortDate

DataType Mismatch Error

 

[pbaldy]

You don't want single quotes around the second or third values.

 

[burrina]

Thank You, I appreciate it,

 

[pbaldy]

No problem.