open another database from with in current database

[murray83]

this is the code which works just great

'to open the Inbound Scheduler
Private Sub cmdGIS_Click()

Dim accapp As Access.Application
 
Set accapp = New Access.Application
 
accapp.OpenCurrentDatabase ("G:\GENERAL\Databases\GIS\App\Inbound Scheduler v1.05.accdb")
accapp.Visible = True

End Sub

but there is one thing. When the release a new update the file gets incremented so we have a script which then makes the file location look like this

G:\GENERAL\Databases\LDS\open LDS-LIVE.wsf

this how ever does not open the database, is this due to it being a script ??? or do i need to change the last line

 

[Cronk]

A windows script file is executed. Try

intX =Shell("G:\GENERAL\Databases\LDS\LDS-LIVE.wsf")

where intX is declared an integer

 

[murray83]

so would it look like this

'to open the Inbound Scheduler
Private Sub cmdGIS_Click()

Dim intX As integer

Dim accapp As Access.Application
 
Set accapp = New Access.Application
 
accapp.OpenCurrentDatabase intX =Shell("G:\GENERAL\Databases\LDS\LDS-LIVE.wsf")

accapp.Visible = True

End Sub

 

[Cronk]

That would give a compile error placing two statements on one line.

I assume the script file replaces the the old with the updated version. The line below (by itself) runs the script
intX =Shell("G:\GENERAL\Databases\LDS\open LDS-LIVE.wsf")

Then you open the database on the next line with
accapp.OpenCurrentDatabase ..........

 

[murray83]

That would give a compile error placing two statements on one line.

I assume the script file replaces the the old with the updated version. The line below (by itself) runs the script
intX =Shell("G:\GENERAL\Databases\LDS\open LDS-LIVE.wsf")

Then you open the database on the next line with
accapp.OpenCurrentDatabase ..........

yeah the script does exact which you assumed, i shall try that later and let you know the outcome

 

[murray83]

tried as suggested but perhaps missing something as have got the attached error

 

[Gasman]

You are missing the Dim statement.

Dim intX as Integer

 

[Cronk]

Dim was there in #3

Gone AWOL

 

[murray83]

Dim was there in #3

Gone AWOL

yeah sorry my fault, but have put it back and see attached ???

 

[Cronk]

If your script file is only updating the database file, why not just use vba commands

Kill "G:\GENERAL\Databases\GIS\App\Inbound Scheduler v1.05.accdb" ' Delete old file

FileCopy strPathNameSourceFile, "G:\GENERAL\Databases\GIS\App\Inbound Scheduler v1.05.accdb" 'copy in new file

 

[murray83]

ok think i may have confused the issue slightly

the script is used to open the database, as the back end and the UI have been split it doesnt update the database, when a new release is launched the script text is changed for the new version i.e from 1.1 to 1.2 thats all