Hello,
I would like to update a table in access using a sql statement in Excel. I am not overly familiar with SQL and am getting a syntax error when trying to update. Any feedback is appreciated. The full SQL statement is as follows: UPDATE tbl_RETRO_EFF_76_PREV_WK AS t1 INNERJOIN tablec AS t2 ON t1.NUMBER = t2.NUMBER set COMPLETED =True, DATE =3/17/2014, NTID =Mike;
Option Explicit
Sub test()
Dim acApp As Object
Dim sqlString As String
Dim dbs As Database
Dim ws As Worksheet
Dim wsn As String
Dim c As Range
Dim tn As String
Dim rng As Range
wsn = Range("wsName").Value
tn = Range("tblName").Value
Set acApp = CreateObject("Access.Application")
Set rng = Application.Range(tn & "[completed]")
Worksheets(wsn).Activate
For Each c In rng
If c.Value = True Then
sqlString = "UPDATE tbl_RETRO_EFF_76_PREV_WK AS t1 INNERJOIN tablec AS t2 ON t1.NUMBER = t2.NUMBER set"
sqlString = sqlString & " COMPLETED =" & c.Value & ","
sqlString = sqlString & " DATE =" & c.Offset(0, -1).Value & ","
sqlString = sqlString & " NTID =" & c.Offset(0, -2).Value & ";"
Debug.Print sqlString
With acApp
Set dbs = OpenDatabase("mylocation")
With dbs
.Execute sqlString, dbFailOnError
.Close
End With
Set dbs = Nothing
End With
Else
End If
Next
End Sub
Bookmarks