I am running this code unsuccesfully I might add:
Public Sub Updates()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim wb As Workbook
Dim tblName As String
Dim sDate As String
Dim sql1 As String
Dim sOpen As String
Dim dbName() As Variant
Dim q As Variant
sDate = Format(Date, "ddd")
tblName = "number_processed"
dbName = Array("Jose", "Richard", "Mark")
Set cn = New ADODB.Connection
cn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=R\Test1\" & dbName(q) & "\\" & dbName(q) & ".mdb;"
For q = LBound(dbName) To UBound(dbName)
sOpen = "Driver={Microsoft Access Driver (*.mdb)};Dbq=R:\Test1\" & dbName(q) & "\\" & dbName(q) & "t.mdb;"
Call UpdateCode(tblName, CStr(dbName(q)), cn)
Next q
End Sub
Public Sub UpdateCode(tblName As String, dbName As String, cn)
sql1 = "Update " & dbName & "_yesterday INNER JOIN tbl)_Master ON " & dbName & "_yesterday.status_name = tbl_Master.statuscheck INNER JOIN " & tblName & " ON " & dbName & "_yesterday.ID = " & tblName & " ID"
sql1 = sql1 & " SET " & tblName & " checked = 'yes'," & tblName & "checkedDate = Date() "
cn.Execute sql1
It doesn't like my update statment for some reason...can someone poitn out my errors?
Bookmarks