Dim objAccess As Access.Application
objAccess.OpenCurrentDatabase strCaminhoBD & "\" & strNomeBD, False, strPwd
objAccess.DoCmd......o céu é o limite hahahah
Progredindo nos estudos cheguei ao comando para funcionar tb no runtime, nesse caso sendo necessário trabalhar com a api shellexecute
Call ShellExecute(0, "open", strCaminhoBD & "\" & strNomeBD, "", strCaminhoBD, 3)
Sleep 3000
Set objAccess = GetObject(strCaminhoBD & "\" & strNomeBD)
Mas aí precisei colocar senha criptografada no banco sem grupo, aquela generica. Quando fui ver estava precisando efetuar todas essas instruções
Call ShellExecute(0, "open", strCaminhoBD & "\temp.accdb", "", strCaminhoBD, 3)
Sleep 3000
Set objAccess = GetObject(strCaminhoBD & "\temp.accdb")
objAccess.CloseCurrentDatabase
objAccess.OpenCurrentDatabase strCaminhoBD & "\" & strNomeBD, False, strPwd
Perguntas existe alguma maneira desse comando
Código: Selecionar todos
objAccess.OpenCurrentDatabase strCaminhoBD & "\" & strNomeBD, False, strPwd
ser reconhecido numa maquina só com o runtime instalado sem necessidade de executar o shellexecute? Se não, existe alguma maneira executra o shellexecute informando já os parametros de logon? obs já tentei o comando shellexecute como os parametros /user admin /PWD aabbccZ2 ele tenta logar com grupo de usuário não é isso o que eu quero.