Originally Posted by
Philip Brown
It looks to me like .RunSQL is not an Excel VBA method. It is an Access VBA method. When I try to run the code in Excel, I get a 438 error indicating that the .RunSQL method is not supported.
What is the equivalent to .RunSQL in Excel?
Thanks.
Philip
Doh!
Should have been:
[VBA] Sub DoItInAccess()
Dim acApp As Object
Set acApp = CreateObject("Access.Application")
With AcApp
.OpenCurrentDatabase "c:\yourfolder\subfolder\file.mdb"
.DoCmd.SetWarnings False
.DoCmd.RunSQL "UPDATE WTMData SET WTMData.HALOT = " & _
"""myvariable"", WTMData.BDB = ""myvariable"", " & _
"WTMData.AlternateGloss = ""myvariable"", " & _
"WTMData.GlosserInitials = ""apb"", " & _
"WTMData.GlossDate = Date() & "" "" & Time(), " & _
"WTMData.Parsing = ""myvariable"" " & _
"WHERE (((WTMData.HALOT) Is Null) AND " & _
"((WTMData.BDB) Is Null) AND " & _
"((WTMData.AlternateGloss) Is Null) AND " & _
"((WTMData.GlosserInitials) Is Null) AND " & _
"((WTMData.GlossDate) Is Null) AND " & _
"((WTMData.Parsing)=""myvariable"") AND " & _
"((WTMData.Lemma)=""myvariable"") AND " & _
"((WTMData.WTMOccurrences)<100) AND " & _
"((WTMData.WTMParsing) Not Like ""myvariable"" " & _
"And (WTMData.WTMParsing) Like ""myvariable"") " & _
"AND ((WTMData.[H/A])=""myvariable""));"
.DoCmd.SetWarnings True
.CurrentDB.Close
.Quit
End With
Set acApp = Nothing
End Sub
[/VBA]