Boa noite pessoal,
Estava tentando fazer um aplicativo abrir o outro quando me deparei com algo que eu não entendi.
Usei meu próprio exemplo postado em:
Exemplo usado
O que fiz foi colocar o mesmo BD com outro nome (Reciclagemexemplo - abre.accdb) e fazer com que, ao fechar o Reciclagemexemplo.accdb pudesse abre o Reciclagemexemplo - abre.accdb com o código abaixo:
Private Sub Form_Unload(Cancel As Integer)
Cancel = True
On Error GoTo Err_BtnExcluir_Click
Dim msg, Estilo, título, resposta, minhasequência
msg = "Deseja fazer o back up agora? "
Estilo = vbYesNo + vbQuestion + vbDefaultButton2 'Define os botões
título = "Reciclagem" 'Define o título
resposta = MsgBox(msg, Estilo, título)
If resposta = vbYes Then 'O usuário escolheu sim.
Dim strCminho As String
strCaminho = "C:\Users\marcelo\Documents\Teste fundo access\ReciclagemExemplo - abre.accdb"
Application.FollowHyperlink strCaminho
DoCmd.Quit
minhasequência = "Sim" 'Executa alguma ação.
Else 'O usuário escolheu não.
If resposta = vbNo Then
DoCmd.Quit acQuitSaveAll
minhasequência = "Não" 'Executa alguma ação
DoCmd.Close
End If
End If
Exit_BtnExcluir_Click:
Exit Sub
Err_BtnExcluir_Click:
'MsgBox Err.Description
Resume Exit_BtnExcluir_Click
End Sub
Ocorre que abre porém a função de esconder o fundo access deixa de funcionar a contento. Individualmente o arquivo se abre com o fundo escondido mas usando o código acima fica um fundo esquisito com a barra de títudo aparecendo em um quadrado azul.
Então pergunto:
Esta forma de abrir outro BD interfere em outras funções ? (Esconder o fundo, retirar os botões minimizar, fechar e restaurar).
Alguém fez este teste?
Grato
Estava tentando fazer um aplicativo abrir o outro quando me deparei com algo que eu não entendi.
Usei meu próprio exemplo postado em:
Exemplo usado
O que fiz foi colocar o mesmo BD com outro nome (Reciclagemexemplo - abre.accdb) e fazer com que, ao fechar o Reciclagemexemplo.accdb pudesse abre o Reciclagemexemplo - abre.accdb com o código abaixo:
Private Sub Form_Unload(Cancel As Integer)
Cancel = True
On Error GoTo Err_BtnExcluir_Click
Dim msg, Estilo, título, resposta, minhasequência
msg = "Deseja fazer o back up agora? "
Estilo = vbYesNo + vbQuestion + vbDefaultButton2 'Define os botões
título = "Reciclagem" 'Define o título
resposta = MsgBox(msg, Estilo, título)
If resposta = vbYes Then 'O usuário escolheu sim.
Dim strCminho As String
strCaminho = "C:\Users\marcelo\Documents\Teste fundo access\ReciclagemExemplo - abre.accdb"
Application.FollowHyperlink strCaminho
DoCmd.Quit
minhasequência = "Sim" 'Executa alguma ação.
Else 'O usuário escolheu não.
If resposta = vbNo Then
DoCmd.Quit acQuitSaveAll
minhasequência = "Não" 'Executa alguma ação
DoCmd.Close
End If
End If
Exit_BtnExcluir_Click:
Exit Sub
Err_BtnExcluir_Click:
'MsgBox Err.Description
Resume Exit_BtnExcluir_Click
End Sub
Ocorre que abre porém a função de esconder o fundo access deixa de funcionar a contento. Individualmente o arquivo se abre com o fundo escondido mas usando o código acima fica um fundo esquisito com a barra de títudo aparecendo em um quadrado azul.
Então pergunto:
Esta forma de abrir outro BD interfere em outras funções ? (Esconder o fundo, retirar os botões minimizar, fechar e restaurar).
Alguém fez este teste?
Grato
Última edição por Buscador em 17/5/2014, 23:00, editado 1 vez(es)