J
Jacky
Dim strSQL As String
strSQL = "SELECT [Company Name],[Vendor Name],[Account],[Statement
Number],[Amount] from [Statements] "
Dim cat As New ADOX.Catalog
Dim cmd As New ADODB.Command
Dim qry As ADOX.view
cat.ActiveConnection = CurrentProject.Connection
Set cmd = cat.Views("Statement Informations").Command
cmd.CommandText = strSQL
Set cat.Views("Statement Informations").Command = cmd
Set cat = Nothing
DoCmd.OpenQuery "Statement Informations"
I used the above code to modify the existing query, "Statement Informations".
When I run it, it give out the error message:
Run-time error '3218':
Could not update; currently locked.
And then, I went to queries section, and open the query "Statement
Informations" directly, close the query, and then run the code again.
Then, it works.
I don't know why.
If I run it on next machine on other day, then it give out same error.
How can I solve it?
Please let me know, thanks.
strSQL = "SELECT [Company Name],[Vendor Name],[Account],[Statement
Number],[Amount] from [Statements] "
Dim cat As New ADOX.Catalog
Dim cmd As New ADODB.Command
Dim qry As ADOX.view
cat.ActiveConnection = CurrentProject.Connection
Set cmd = cat.Views("Statement Informations").Command
cmd.CommandText = strSQL
Set cat.Views("Statement Informations").Command = cmd
Set cat = Nothing
DoCmd.OpenQuery "Statement Informations"
I used the above code to modify the existing query, "Statement Informations".
When I run it, it give out the error message:
Run-time error '3218':
Could not update; currently locked.
And then, I went to queries section, and open the query "Statement
Informations" directly, close the query, and then run the code again.
Then, it works.
I don't know why.
If I run it on next machine on other day, then it give out same error.
How can I solve it?
Please let me know, thanks.