Hi guys,
Im getting a compile error for the following code:
Code:
Private Sub AddToSheet_Click()
Dim sActivity As String
Dim sDepartment As String
Dim sProject As String
Dim sHours As Integer
Dim sUser As String
Dim Msql As String
sActivity = Me.Activity
sDepartment = Me.Department
sProject = Me.Project
sHours = Me.Hours
sUser = Me.User
sDescription = Me.Description
Mysql = "INSERT INTO TimesheetTable ( Activity, Department, Project, Hours, User ) SELECT '" & sActivity & "' AS Activity, '" & sDepartment & "' AS Deptartment, '" & sProject & "' AS Project, '" & sHours & "' AS Hours, '" & sUser & "' AS User,'" & sDescription & "' AS Description"
DoCmd.SetWarnings False
DoCmd.RunSQL Mysql
DoCmd.SetWarnings True
End Sub
It flags up method or data member not found - can anyone shed some light on this for me please?
Thanks