Boa tarde pessoal
Surgiu-me um erro ao qual eu não consigo dar solução. Ora eu pretendo abrir um aplicativo através de um botão dentro de outro aplicativo, e estou a utilizar o seguinte código,
Private Sub Comando0_Click()
Dim strcmd As String
Dim objaccess As Access.Application
strcmd = SysCmd(acSysCmdAccessDir) & "\msaccess.exe " & "C:\Users\Rui Maciel\MEOCloud\Rui.accdb"
Call Shell(strcmd, vbNormalFocus)
DoEvents:
Set objaccess = GetObject("C:\Users\Rui Maciel\MEOCloud\Nogueira_Paroquia\Direitos_Paroquiais.accdb")
DoCmd.Quit
End Sub
"a linha de comando que utilizou para iniciar o Microsoft access contém uma opção que o microsof access mão reconhece. Saia e reinicie o Microsoft access utilizando opções de linha de comandos válidas."
Tenho o office 2010
Alguém me pode ajudar, não consigo ultrapassar. Obrigado.
Abraço,
Rui Maciel
Surgiu-me um erro ao qual eu não consigo dar solução. Ora eu pretendo abrir um aplicativo através de um botão dentro de outro aplicativo, e estou a utilizar o seguinte código,
Private Sub Comando0_Click()
Dim strcmd As String
Dim objaccess As Access.Application
strcmd = SysCmd(acSysCmdAccessDir) & "\msaccess.exe " & "C:\Users\Rui Maciel\MEOCloud\Rui.accdb"
Call Shell(strcmd, vbNormalFocus)
DoEvents:
Set objaccess = GetObject("C:\Users\Rui Maciel\MEOCloud\Nogueira_Paroquia\Direitos_Paroquiais.accdb")
DoCmd.Quit
End Sub
"a linha de comando que utilizou para iniciar o Microsoft access contém uma opção que o microsof access mão reconhece. Saia e reinicie o Microsoft access utilizando opções de linha de comandos válidas."
Tenho o office 2010
Alguém me pode ajudar, não consigo ultrapassar. Obrigado.
Abraço,
Rui Maciel