Access - Аутоматско штампање извештаја у задато време

Вероватно вам никада на памет није пала идеја повезивања Access-a и Windows Scripting Host-а (о WSH-у смо писали у једном од пређашњих прилога). Повезивањем WSH-а са извршним vbScript фајлом (кога покреће WSH), у комбинацији са Windows Task Scheduler-ом, можете подесити да се ваши Access извештаји аутоматски штампају у одређено време. Да би ово било могуће, потребно је да креирамо vbscript (или Jscript фајл, који такође подржава WSH) и покренемо га користећи скрипт енџин cscript.exe, из Task Scheduler-а.

Да бисте покренули скрипт из Task scheduler-а, селектујте само cscript.exe када иницијално подешавате нови задатак (task). Затим, када подесите нови task, модификујте га и додајте путању до скрипт фајла, тако што ћете путању до vbscript фајла сместити унутар наводника. Као на пример:

  cscript.exe "c:\mоji skriptovi\
  
stampa_izvestaja.vbs"

Након овог подешавања, потребно је још само креирати скрипт фајл. Следећи програмски код преко било ког текст едитора сместите у нови фајл и снимите га под називом stampa_izvestaja.vbs:

'-------------------Pocetak skript koda-------
'Windows Scripting Host Script, za Win 95/98/NT/2000
'Kompatibilno sa WSH-om  verzije 1 i 2
'Moze se pokrenuti i iz komandne linije

 koriscenjem cscript.exe endzina
'Pozovite cscript.exe iz Windows Scheduler-a
'-------------------------------------------
On error resume next
call RunReport("c:\moji skriptovi\baza.mdb",
"Izvestaji1")

Function RunReport
            (strPutanjaDoBaze, strImeIzvestaja)
    On Error Resume Next
     Dim objDb
     Set objDb = CreateObject
                ("Access.Application")
     objDb.Visible = True 
     objDb.OpenCurrentDatabase (strPutanjaDoBaze)
    objDb.Docmd.OpenReport strImeIzvestaja, 0 
    DoEvents
    objDb.CloseCurrentDatabase
    objDb.Quit
End Function