Displaying 1 result from an estimated 1 matches for "caminoalservidor".
2005 Nov 17
0
problem with shell and acccess 97
...ject, 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(str...