Gostaria de ao iniciar meus sistema verificar se a conexão com as tabelas vinculadas está ok. Como posso fazer isso?
2 participantes
Verificar conexão de Rede
Gilson40- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 81
Registrado : 18/07/2011
- Mensagem nº1
Verificar conexão de Rede
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
- Mensagem nº2
Re: Verificar conexão de Rede
Para a duvida do titulo deste tópico, já postei aqui uma vez;
'Num modulo
Private Declare Function InternetGetConnectedState Lib "wininet" _
(ByRef dwFlags As Long, _
ByVal dwReserved As Long) As Long
Public Function VerificaInternet() As Long
Dim strResultado As Long
VerificaInternet = InternetGetConnectedState(strResultado, 0)
End Function
'No evento ao pressionar de um botão
Private Sub SeuBotão_Click()
If VerificaInternet = 1 Then
MsgBox "Sua Internet está Conetada..."
Else
MsgBox "Sua Internet está Desconetada..."
End If
End Sub
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum...
102 Códigos VBA Gratuitos...
Instruções SQL como utilizar...
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
- Mensagem nº3
Re: Verificar conexão de Rede
Este cheka a tabela vinculada;
Public Function VerificaTabelaVinculada()
'By JPaulo ® Maximo Access 2009
On Error GoTo Err_VerificaTabelaVinculada
Const conTabela As String = "NomeDaSuaTabela"
'A tabela vinculada terá um string de ligação cujo comprimento tem de ser > 0
If Len(CurrentDb.TableDefs(conTabela).Connect) > 0 Then
'Sabemos que conTabela é uma tabela vinculada, mas será o vinculo é válido?
'A próxima linha de código irá gerar erros 3011 ou 3024, se não for valido"
CurrentDb.TableDefs(conTabela).RefreshLink
'Se você chegar a este ponto, é porque você tem a tabela válida e vinculada.
Else
'Se o comprimento da string de ligação for zero (0) então devolve a mensagem.
MsgBox "*" & conTabela & "* é uma tabela normal, sem vinculo.", vbCritical, "Erro"
End If
Exit_VerificaTabelaVinculada:
Exit Function
Err_VerificaTabelaVinculada:
Select Case Err.Number
Case 3265
MsgBox "*" & conTabela & "* não existe.", vbCritical, "Erro"
Case 3011, 3024 'Tabela ligada não existe neste diretorio.
MsgBox "*" & conTabela & "* tabela ligada não é valida.", vbCritical, "Erro"
Case Else
MsgBox Err.Description & Err.Number, vbExclamation, "Erro na função VerificaTabelaVinculada."
End Select
Resume Exit_VerificaTabelaVinculada
End Function
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum...
102 Códigos VBA Gratuitos...
Instruções SQL como utilizar...
Gilson40- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 81
Registrado : 18/07/2011
- Mensagem nº4
Valeu
Valeu JPaulo, vou testar a segunda opção pois não preciso testar a Internet, mas sim a rede interna. O que quero é "se conectado na rede importa os dados, senão trabalha comas tabelas como estão"