MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Verificar conexão de Rede

    avatar
    Gilson40
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Verificar conexão de Rede Empty Verificar conexão de Rede

    Mensagem  Gilson40 27/2/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
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Verificar conexão de Rede Empty Re: Verificar conexão de Rede

    Mensagem  JPaulo 28/2/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Verificar conexão de Rede Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Verificar conexão de Rede Folder_announce_new 102 Códigos VBA Gratuitos...
    Verificar conexão de Rede Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Verificar conexão de Rede Empty Re: Verificar conexão de Rede

    Mensagem  JPaulo 28/2/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Verificar conexão de Rede Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Verificar conexão de Rede Folder_announce_new 102 Códigos VBA Gratuitos...
    Verificar conexão de Rede Folder_announce_new Instruções SQL como utilizar...
    avatar
    Gilson40
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Verificar conexão de Rede Empty Valeu

    Mensagem  Gilson40 28/2/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"

    Conteúdo patrocinado


    Verificar conexão de Rede Empty Re: Verificar conexão de Rede

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 07:41