I have an application with acces97, after some weeks trying to execute it, i got it! but now when the i try to do some function it crashes.
i think that the problem comes when the application try to call shell, but im not sure.
the code when i click on the button is: Public Sub EjecutaAccessOLD(ByRef MiAccess As Object, vista As Integer, Informe, CondiciónWhere As String)
Dim strDB As String
Dim strCmd As String
If Not MiAccess Is Nothing Then
MiAccess.Quit
Set MiAccess = Nothing
End If
Set MiAccess = GetObject(, "Access.Application")
strDB = CaminoAlServidor & "\informes.mdb"
strCmd = SysCmd(acSysCmdAccessDir) & "\MSAccess.exe " _
& Chr(34) & strDB & Chr(34) & " /wrkgrp " & Chr(34) & DBEngine.SystemDB & Chr(34) _
& " /Runtime"
Call Shell(strCmd, vbNormalFocus)
DoEvents: DoEvents: DoEvents
Err.Clear ' Borra el objeto Err si se produce un error.
' Establece la variable de objeto para hacer referencia al archivo que desea ver.
Set MiAccess = GetObject(CaminoAlServidor & "\Informes.mdb")
MiAccess.CommandBars("BarraInformes").Visible = True
MiAccess.DoCmd.OpenReport Informe, vista, , CondiciónWhere
If vista = acPreview Then
If Not IsZoomed(MiAccess.Application.hWndAccessApp) Then
'Maximiza la aplicación abierta
ShowWindow& MiAccess.Application.hWndAccessApp, 3
End If
MiAccess.DoCmd.Maximize 'maximiza el informe
Else
MiAccess.Quit
Set MiAccess = Nothing
End If
SetForegroundWindow MiAccess.Application.hWndAccessApp
End Sub
and the trace is:
trace:loaddll:load_builtin_dll Loaded module L"kernel32.dll" : builtin trace:loaddll:load_builtin_dll Loaded module L"c:\windows\system\advapi32.dll" : builtin trace:loaddll:load_builtin_dll Loaded module L"c:\windows\system\gdi32.dll" : builtin trace:loaddll:load_builtin_dll Loaded module L"c:\windows\system\user32.dll" : builtin trace:loaddll:load_native_dll Loaded module L"C:\windows\system\ole32.dll" : native trace:loaddll:load_native_dll Loaded module L"C:\windows\system\OLEAUT32.dll" : native trace:loaddll:load_native_dll Loaded module L"C:\windows\system\msjet35.dll" : native trace:loaddll:MODULE_LoadModule16 Loaded module "krnl386.exe" : builtin trace:loaddll:MODULE_LoadModule16 Loaded module "system.drv" : builtin trace:loaddll:MODULE_LoadModule16 Loaded module "gdi.exe" : builtin trace:loaddll:MODULE_LoadModule16 Loaded module "user.exe" : builtin trace:loaddll:MODULE_LoadModule16 Loaded module "keyboard.drv" : builtin trace:loaddll:load_builtin_dll Loaded module L"c:\windows\system\winex11.drv" : builtin trace:loaddll:load_builtin_dll Loaded module L"c:\windows\system\imm32.dll" : builtin trace:loaddll:load_builtin_dll Loaded module L"c:\windows\system\msvcrt.dll" : builtin trace:loaddll:load_builtin_dll Loaded module L"c:\windows\system\msvcrt40.dll" : builtin trace:loaddll:load_native_dll Loaded module L"C:\Access 97 Runtime\MSAIN800.DLL" : native trace:loaddll:load_native_dll Loaded module L"C:\Archivos de programa\Archivos comunes\Microsoft Shared\VBA\mso97rt.dll" : native trace:loaddll:load_native_dll Loaded module L"C:\Archivos de programa\Archivos comunes\Microsoft Shared\VBA\VBA332.DLL" : native fixme:font:SetMapperFlags (0x224, 0x00000001): stub - harmless trace:loaddll:load_native_dll Loaded module L"C:\Archivos de programa\Archivos comunes\Microsoft Shared\VBA\VBA3ES.DLL" : native trace:loaddll:load_native_dll Loaded module L"C:\windows\system\RPCRT4.DLL" : native wine: Unhandled exception (thread 0013), starting debugger... WineDbg starting on pid 0x12 Unhandled exception: page fault on read access to 0x5a5ea6ec in 32-bit code (0x009d830f). In 32 bit mode. err:dbghelp:pe_load_dbg_file -Unable to peruse .DBG file ole32.dbg ("ole32.dbg") Register dump: CS:0073 SS:007b DS:007b ES:007b FS:1007 GS:0033 EIP:009d830f ESP:7fcafb3c EBP:7fcafb8c EFLAGS:00010286( - 00 -RISP1) EAX:5a5ea6e0 EBX:009d8377 ECX:80002d30 EDX:00000008 ESI:80002e08 EDI:80001190
............................................... .............................................. .............................................
WineDbg terminated on pid 0x12 trace:loaddll:load_builtin_dll Loaded module L"c:\windows\system\winspool.drv" : builtin trace:loaddll:load_builtin_dll Loaded module L"c:\windows\system\comdlg32.dll" : builtin trace:loaddll:load_builtin_dll Loaded module L"c:\windows\system\wineps.drv" : builtin wine: Unhandled exception (thread 0009), starting debugger... WineDbg starting on pid 0x8 Unhandled exception: page fault on read access to 0x009ea6ec in 32-bit code (0x5a5e8d05). In 32 bit mode. err:dbghelp:pe_load_dbg_file -Unable to peruse .DBG file ole32.dbg ("ole32.dbg") Register dump: CS:0073 SS:007b DS:007b ES:007b FS:1007 GS:0033 EIP:5a5e8d05 ESP:7fcbf480 EBP:00000000 EFLAGS:00010246( - 00 -RIZP1) EAX:009ea6e0 EBX:80002198 ECX:80002dc0 EDX:7fcbf4b0 ESI:00000000 EDI:80002dc0 Stack dump: .............. ........... .....................
Any hint? thanks a lot