Ik ben voor het eerst een VBS script aan het schrijven en loop tegen het volgende aan.
De eerste 3 access bestanden gaan goed alleen loopt het script vast bij het 4e bestand.
De melding die ik krijg in access is "Kan bestand niet gebruiken. Het bestand is al in gebruik".
Bestand 4 wordt namelijk gevuld door bestand 3.
Is het mogelijk om te wachten tot dat het bestand volledig is afgesloten?
mvg
Kasper
De eerste 3 access bestanden gaan goed alleen loopt het script vast bij het 4e bestand.
De melding die ik krijg in access is "Kan bestand niet gebruiken. Het bestand is al in gebruik".
Bestand 4 wordt namelijk gevuld door bestand 3.
Is het mogelijk om te wachten tot dat het bestand volledig is afgesloten?
Code:
dim accessApp
set accessApp = createObject("Access.Application")
accessApp.visible = False
accessApp.UserControl = False
accessApp.OpenCurrentDataBase("C:\Temp\Bestand1.accdb")
accessApp.Run "Refresh"
accessApp.Quit
set accessApp = nothing
set accessApp = createObject("Access.Application")
accessApp.visible = Fasle
accessApp.UserControl = False
accessApp.OpenCurrentDataBase("C:\Temp\Bestand2.accdb")
accessApp.Run "Refresh"
accessApp.Quit
set accessApp = nothing
set accessApp = createObject("Access.Application")
accessApp.visible = False
accessApp.UserControl = False
accessApp.OpenCurrentDataBase("C:\Temp\Bestand3.accdb")
accessApp.Run "Refresh"
accessApp.Quit
set accessApp = nothing
set accessApp = createObject("Access.Application")
accessApp.visible = Fasle
accessApp.UserControl = False
accessApp.OpenCurrentDataBase("C:\Temp\Bestand4.accdb")
accessApp.Run "Refresh"
accessApp.Quit
set accessApp = nothing
set accessApp = createObject("Access.Application")
accessApp.visible = Fasle
accessApp.UserControl = False
accessApp.OpenCurrentDataBase("C:\Temp\Bestand5.accdb")
accessApp.Run "Refresh"
accessApp.Quit
set accessApp = nothing
mvg
Kasper