[Resolvido]Verificar se a Rede local esta conectada

Olá, estou tentando fazer um procedimento que não deixa o mesmo usuario se logar, só que se a rede cair irei ter problemas, pois a tabela em que fica os usuarios logados fica no back end, então tem alguma forma de verificar em tempo real se a rede local caiu? Tipo penso em colocar 2 rotulos um Rede conectada outro Rede desconectada, isso no evento ao mover mouse, caso conectada o rotulo correto fica visivel, Mas como verificar isso?

abs.

Veja na sala e Repositorio de Codigos

Nome do Codigo:
Verifica se sua Internet está Conetada

Esse da internet eu tenho, mas falo da rede local entende? Ou tambem pode ser usado?

Se não testar ficará sempre na duvida.

A Lan tem coneção tal como ir à Net.

Mas minha questão seria se o vinculo fosse perdido em razão da queda da rede, pois as veses a conexão com a Internet esta ok, mas a rede não, entende? Então seria assim se ao conectar o back end não haver resposta pois a esta sem rede, avise tente + tarde etc.

Ou estou falando besteira?

Amigo
Não estou com meus exemplos aqui, porem atraves de ajuda dos amigos fiz isso da seguinte maneira:
No tratamento do erro descubra qual o err.number resultante da perca de acesso a tabela e la (no tratamento) coloque a mensagem que caiu a rede.

Abraços

Valeu, irei tentar isso, abraço.

pode testar com apenas o nome de uma (1) tabela

Function VerficaRedeLocal()
Dim db As Database
Dim Rst As Recordset

Set db = CurrentDb()
On Error GoTo 1:
Set Rst = db.OpenRecordset("nomedatabelavinculada")
Exit Function

1:
MsgBox "Não se encontra ligado à rede local... Verifique.", vbCritical, "Erro"

Set Rst = Nothing
Set db = Nothing
End Function

este método que o convidado colocou testei, quebrei a cabeça e não deu certo... então eu tentei e outro modo que deu certo.
na tela inicial deixei um campo Status para informar se está Online ou OffLine
valor padrão do campo "Online"
e no evento do Timer a cada 1 segundo eu fiz esse código...

Private Sub Form_Timer()
On Error GoTo Caminho_Err
Caminho = DLookup("qualquercampo", "emqualquertabela") 'do back-end que estiver na rede
Caminho_Err:
Select Case err.Number
Case 3024, 3043, 3044, 3265 ' são os códigos de erro quando não há conexão com o banco de dados
status = "OffLine"
Case 0 ' coloquei case 0 e o comando em baixo pra ele sempre fazer essa rotina
On Error Resume Next ' colocando Exit Sub, ele para a rotina e não informa caso a perca a rede
Case Else
Call InformaErro ' Caso aconteça outro erro ele te informa qual é
End Select
End Sub



em um módulo global coloque esse código para informar os outros erros caso hocorram
Function InformaErro()
MsgBox "Erro nº " & err.Number & ": " & vbCrLf _
& err.Description, vbExclamation, "Erro!"
End Function

só complementando pois essa dica me ajudou em um projeto

Dim caminho As String
On Error GoTo Caminho_Err
caminho = DLookup("SeuCampo", "SuaTabela") 'do back-end que estiver na rede
Caminho_Err:
Select Case err.Number
Case 3024, 3043, 3044, 3265 ' são os códigos de erro quando não há conexão com o banco de dados
MsgBox "Rede Desligada - OffLine", vbExclamation, "Aviso"
docmd.quit
Case 0 ' coloquei case 0 e o comando em baixo pra ele sempre fazer essa rotina
On Error Resume Next ' colocando Exit Sub, ele para a rotina e não informa caso a perca a rede
Case Else
Call InformaErro ' Caso aconteça outro erro ele te informa qual é
End Select