MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 : 65
    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?

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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



    .................................................................................
    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.]

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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


    .................................................................................
    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 : 65
    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: Dom 04 Dez 2016, 01:58