MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Verificar conexão de Rede

    Compartilhe

    Gilson40
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 18/07/2011

    Verificar conexão de Rede

    Mensagem  Gilson40 em Qui 27 Fev 2014, 21:38

    Gostaria de ao iniciar meus sistema verificar se a conexão com as tabelas vinculadas está ok. Como posso fazer isso?
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9705
    Registrado : 04/11/2009

    Re: Verificar conexão de Rede

    Mensagem  JPaulo em Sex 28 Fev 2014, 09:16

    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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9705
    Registrado : 04/11/2009

    Re: Verificar conexão de Rede

    Mensagem  JPaulo em Sex 28 Fev 2014, 09:36

    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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Gilson40
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 18/07/2011

    Valeu

    Mensagem  Gilson40 em Sex 28 Fev 2014, 10:50

    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"

      Data/hora atual: Sex 24 Nov 2017, 01:55