How do I find the sytax error in line 13 character 35 in the code below

Question

1.00/5 (2 votes)

See more:

'''' Define the file full name.
strDBFullName = "C:\Users\Charles\Documents\Weather\Weather.accdb"

'''' Check whether the file exists.
If Not CreateObject("Scripting.FileSystemObject").FileExists(strDBFullName) Then
  MsgBox "File """ & strDBFullName & """ does not exist or is not available.", vbCritical, "File Not Found"
  WScript.Quit
End If

'''' Create a new Access-instance, display it and open the file.
Set oAC = CreateObject("Access.Application")
oAC.Visible = True
Set oDB = oAC.OpenCurrentDataBase strDBFullName

'	oDB.Run "Update"

'''' Opens and Runs The Auto open Macro

'''' Save the workbook and clean up.
oDB.Save
oDB.Close
oAC.Quit
Set oAC = Nothing

What I have tried:

I have tried fully retyping the code line, and entering the the file path and name in quotes and parentheses. All the on line information I have found seems to suggest that this code is valid

Posted 25-Oct-17 7:21am

Member 13485326

Updated 25-Oct-17 8:38am

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Richard Deeming · Answer 1 · 2017-10-25T07:37:00

Solution 1

Line 13, character 35 is:

Set oDB = oAC.OpenCurrentDataBase strDBFullName
----------------------------------^

You almost certainly need to enclose the parameter in parentheses:

Set oDB = oAC.OpenCurrentDataBase(strDBFullName)

Posted 25-Oct-17 7:37am

Richard Deeming

Comments

Member 13485326 25-Oct-17 15:43pm

If I do that it does load the database but get another error line 13 Chr 1, Object required; 'oAC.opencurrentdatabase(...)'

Dave Kreskowiak 25-Oct-17 16:33pm

Remove the "Set oDB =" part. The function "OpenCurrentDatabase" doesn't return anything.

Member 13485326 26-Oct-17 0:51am

Thanks that resolves the issue on line 13. However i now get an error for line 20, chr 1, object required: oDB

Richard Deeming 26-Oct-17 7:31am

Because that's not how the Access object model works. OpenCurrentDatabase doesn't return an object, so oDB is not set to an object.

You need to review how Access works, and correct your script:
Access VBA reference[^]

Member 13485326 26-Oct-17 11:26am

I think I now have the script working, (It runs manually OK) so I'll set up the SChedule to run it tonight and check the result tomorrow. The Code is shown below:

'''' Define the file full name.
strDBFullName = "C:\Users\Charles\Documents\Weather\Weather.accdb"

'''' Check whether the file exists.
If Not CreateObject("Scripting.FileSystemObject").FileExists(strDBFullName) Then
MsgBox "File """ & strDBFullName & """ does not exist or is not available.", vbCritical, "File Not Found"
WScript.Quit
End If

'''' Create a new Access-instance, display it and open the file.
Set oAC = CreateObject("Access.Application")
oAC.Visible = True
oDB = oAC.OpenCurrentDataBase(strDBFullName)
oAC.UserControl = True

'''' Opens and Runs The Update Macro
oDB = oAC.DoCmd.RunMacro("Update", , "")

'''' Save the workbook and clean up.

CloseDB = oAC.CloseCurrentDatabase
CloseAP = oAC.Application.Quit
Set oAC = Nothing

Member 13485326 27-Oct-17 11:56am

The Script runs perfectly when I initiate it manually, but times out when called by the task scheduler.

I will initiate a new question to cover this and another scheduler issue