I have this module in the DB ACCESS.
Expand|Select|Wrap|Line Numbers
- Function estrai()
- Dim dbs As Database
- Set dbs = CurrentDb
- g_HostSettleTime = 15
- Dim Sessions As Object
- Dim System As Object
- Set System = CreateObject("EX.System")
- If (System Is Nothing) Then
- MsgBox "Errore."
- Stop
- End If
- Set Sessions = System.Sessions
- If (Sessions Is Nothing) Then
- MsgBox "Errore."
- Stop
- End If
- Dim sess0 As Object
- Set sess0 = System.ActiveSession
- If (sess0 Is Nothing) Then GoTo init
- System.Quit
- init:
- Shell ("c:\programmi\ex\session.exe")
- ...
- Application.Quit
- End Function
Expand|Select|Wrap|Line Numbers
- @echo off
- "C:\Programmi\Microsoft Office\OFFICE11\msaccess.exe"
- "D:\Inetpub\wwwroot\mdb-database\database.mdb"
- /cmd Estrai()
No error but the function Estrai() not start, why?
Can you help me?
kind regards
viki