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

    Função WhatsApp não funciona no Access Runtime

    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 779
    Registrado : 30/08/2010

    Função WhatsApp não funciona no Access Runtime Empty Função WhatsApp não funciona no Access Runtime

    Mensagem  gilberlanio 11/1/2023, 18:13

    Olá pessoal, uso uma função que funciona perfeitamente no Access normal, mas quando é ultilizada no Access runtime da um erro.
    Alguém sabe o porque?

    Uso essa função:
    Código:
    Dim Source, app_absent As Variant
    Dim textEnviar, Contatcs   As String

    'texto ao ser enviado, os espaços são substituidos por %20

    textEnviar = Replace("Olá " & cboClienteID.Column(1) & " aqui é da " & txtNomeEmpresa & ". Nosso contato é referente a sua OS Nº: " & txtNrCodigoOSAut, "", "%20")

    'verifico se minha caixa de texto esta vazia

    If Me.celularwhatsapp = "" Then

        MsgBox "Informe o Endereço da Coleta!!", vbInformation, "ERROR"
        Exit Sub
        
    Else

    'insiro o nº de celular que deve ser composto por 55 que é o pais + DDD da cidade sem o zero + o nº celular sem traço

        Contatcs = "55" & Me.celularwhatsapp

    'abre o navegador e cria a mensagem

      
        Application.FollowHyperlink "https://web.whatsapp.com/send?phone=" & Contatcs & "&text=" & textEnviar & Source & app_absent
    End If

    Mensagem de erro no Access Runtime:
    "A execução desse aplicativo foi interrompida devido ao um erro em tempo de execução"


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 284
    Registrado : 19/08/2010

    Função WhatsApp não funciona no Access Runtime Empty Re: Função WhatsApp não funciona no Access Runtime

    Mensagem  marcelo3092 20/1/2023, 10:42

    Bom dia Gilberlanio enteressante que o seu ainda funcione pois eu tive problemas o meu nao funciona mais, pesquisei em todo lugar e descobri que o proprio whatsapp ta bloqueando isso. ai eu tive que adiquiri um modulo da kartoffel que espelha e faz a conexao com o celular nao deu mais problema detalhe e que geralmente pra se enviar mensagem o numero ao qual vc ta enviando deve estar agendado e sincronizado no seu celular pois se nao tem na agenda ele entende que e um robo e bloqueia corre o risco de bloquear ate o chip do celular
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 779
    Registrado : 30/08/2010

    Função WhatsApp não funciona no Access Runtime Empty Re: Função WhatsApp não funciona no Access Runtime

    Mensagem  gilberlanio 23/1/2023, 13:35

    Entendi. obrigado pela dica


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis

      Data/hora atual: 26/1/2023, 22:34