jaspence
asked on
Inserting records in Access database using Excel VBA
I am trying to use a form created in Excel to populate data in an Access database when a button is clicked. Here is an example of my code thus far.
I get an error "Run-Time error '2147217900 (80040e14)': Syntax error in FROM clause on line:
rs.Open "Work Request Tracker", cn, adOpenKeyset, adLockOptimistic, adCmdTable
Private Sub MCLApproved_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=U:\MCL\datasources\MCL Work Request Tracker.accdb;"
' open a recordset
Set rs = New ADODB.Recordset
rs.Open "Work Request Tracker", cn, adOpenKeyset, adLockOptimistic, adCmdTable
rs.AddNew
rs.Fields("DATE SUBMITTED") = ActiveSheet.Range("P4").Value
rs.Fields("COMMITTED DUE DATE") = ActiveSheet.Range("P6").Value
rs.Close
db.Close
Application.ScreenUpdating = True
End Sub
I get an error "Run-Time error '2147217900 (80040e14)': Syntax error in FROM clause on line:
rs.Open "Work Request Tracker", cn, adOpenKeyset, adLockOptimistic, adCmdTable
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Works now, thanks!
ASKER