Verificar se o BD está disponível na rede
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 10x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
Usuário Percoski:
Olá, estou tendo problemas ao iniciar o Frontend, pois se o BD não está disponível na rede, ocasiona um erro e acaba corrompendo.
Já vi em algum lugar um código que checava se o BD está disponível na rede, porém não consigo encontrar.
Minha ideia é checar a disponibilidade da rede. Se OK, proceder a abertura do sistema, caso contrário, avisar ao usuário e encerrar o Frontend.
Suporte:
Percoski, experimente usar esta função:
Public Function fncFalhaConexaoBE() As Boolean
Dim bd As DAO.Database
Dim strLocalBe$
On Error Resume Next
strLocalBe = "\\Servidor\SuaPasta\SeuBe.accdb"
Set bd = OpenDatabase(strLocalBe, False, False, ";PWD=SenhaBe")
If Err Then
Err.Clear
fncFalhaConexaoBE = True
Else
bd.Close
fncFalhaConexaoBE = False
End If
Set bd = Nothing
End Function
Use a função na macro Autoexec:
se fncFalhaConexaoBe() = true então fecha banco de dados para todas as macros
Usuário Percoski:
Muito tranqüilo, funcionou ....
| Não há comentário |
