... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Verificar se o BD está disponível na rede

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

Envie seu comentário: