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

3 participantes

    Erro em tempo de execução '8':

    lindomar.silva
    lindomar.silva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 122
    Registrado : 27/08/2010

    Erro em tempo de execução '8': Empty Erro em tempo de execução '8':

    Mensagem  lindomar.silva 4/11/2021, 23:02

    Prezados, boa noite.

    Estou com um problema em um dos meus sistemas que envia mensagem via WhatsApp.
    Ao clicar no notão Enviar, o seguinte erro é apresentado:

    Erro em tempo de execução '8':
    Não é possível transferir as informações solicitadas.


    Estava tudo funcionando bem, meu cliente usa há mais de 1 ano esse recurso e o problema surgiu tem umas 3 semanas, achei que o problema era com o notebook do cliente, então testei no meu notebook e deu o mesmo erro.
    Acredito que o problema não está relacionado ao WhatsApp, pois nem chega a abrir o navegador, imagino que seja algo relacionado a algum recurso do Windows ou Access.
    Achei que fosse antivírus ou alguma atualização do Windows 10, mas mesmo no Windows 7 está dando esse erro.
    Já desativei o firewall do Windows e não resolveu.
    Já pesquise no Google sobre o problema, uma sugestão era ativar o recurso do Windows .NET Framework 3.5, mas não funcionou.


    Alguém tem alguma sugestão?

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3328
    Registrado : 22/11/2016

    Erro em tempo de execução '8': Empty Re: Erro em tempo de execução '8':

    Mensagem  DamascenoJr. 5/11/2021, 01:48

    Marque um ponto de interrupção e nos informe qual linha/comando especificamente faz o erro aparecer.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    lindomar.silva
    lindomar.silva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 122
    Registrado : 27/08/2010

    Erro em tempo de execução '8': Empty Re: Erro em tempo de execução '8':

    Mensagem  lindomar.silva 5/11/2021, 11:10

    Essa é a linha:

    Application.FollowHyperlink "https://web.whatsapp.com/send?phone=" & Contatcs & "&text=" & textEnviar
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3328
    Registrado : 22/11/2016

    Erro em tempo de execução '8': Empty Re: Erro em tempo de execução '8':

    Mensagem  DamascenoJr. 6/11/2021, 00:25

    Tente trocando sua linha por
    Código:
    Call CreateObject("WScript.Shell").Run("https://web.whatsapp.com/send?phone=" & Contatcs & "&text=" & textEnviar, vbMaximizedFocus, False)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    lindomar.silva
    lindomar.silva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 122
    Registrado : 27/08/2010

    Erro em tempo de execução '8': Empty Re: Erro em tempo de execução '8':

    Mensagem  lindomar.silva 8/11/2021, 20:12

    Damasceno, boa tarde!

    Obrigado pelo ajuda e me desculpe pela demora em retornar.

    Com a sua dica, tive um avanço, agora não dá mais aquela mensagem de erro "Erro em tempo de execução '8':", já abre o navegador e o link do WhatsApp.

    Porém, deveria que abrir a conversa com um texto com variáveis, mas trás apenas o 1º bloco da mensagem.

    Exibe apenas Olá

    Sendo que até semanas atrás antes de dar o problema exibia por exemplo: Olá João da Silva! Seu saldo atual em 08/11/2021 é de R$ 500,00


    Esse é o código do meu botão enviar:

    Sub Enviar()

    Dim textEnviar, Contatcs   As String

    textEnviar = Replace("Olá " & Me.CLIENTE & "! Seu saldo atual em " & Date & " é de " & "*" & "R$ " & Format(Me.tt, "#,##0.00") & "*", "", "%20")


    If Me.WPP = "" Then ' campo numero do celular

       MsgBox "Informe o número do WhatsApps !!", vbInformation, "ERROR"
       Exit Sub
       
    Else
       Contatcs = "55" & Me.WPP

    Call CreateObject("WScript.Shell").Run("https://api.whatsapp.com/send?phone=" & Contatcs & "&text=" & textEnviar, vbMaximizedFocus, False)


    End If
    End Sub

    Estou tentando descobrir o que há de errado, você acha que pode estar relacionado a essa função que você me passou?

    Mais uma vez obrigado pela ajuda!
    avatar
    raphaelfaria
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 11/12/2020

    Erro em tempo de execução '8': Empty Estou com o mesmo problema e acomnhando o tópico.

    Mensagem  raphaelfaria 17/11/2021, 15:12

    Testando aqui, acho que o problema está no formato do textEnviar.
    Se você colocar %20 no lugar dos espaços, consegue que saia o texto, mas não consigo concatenar os campos com o &

    Olha a novidade e fica para quem realmente entende (por que eu... rsrs)
    Se você tirar todos os acentos, nem precisa colocar o %20 no lugar dos espaços e a mensagem consegue ser enviada.
    A minha linha ficou assim:

    textEnviar = Replace("Prezado(a) requerente ", "", "%20") & Format(Me.fld_req_nome, ">") & ", Processo n. " & Format(Me.fld_processo, "00000\/0000")

    textEnviar1 = ". Informamos que o levantamento tributario referente a obra de construcao civil ja foi realizado e aguardamos seu comparecimento a Prefeitura Municipal de Teresopolis, Secretaria de Fazenda, Divisao de Calculo e Certidoes para ciencia e retirada das guias de recolhimento, no prazo de ate 10 (dez) dias. Obrigado. ** MENSAGEM AUTOMATICA - FAVOR NAO RESPONDER **"

    E o envio, assim:

    Application.FollowHyperlink "https://api.whatsapp.com/send?phone=" & Contatcs & "&text=" & textEnviar & textEnviar1

    Já com a acentuação, não vai. Se alguém puder dar uma dica, agradecemos.

    Reparei que isso aconteceu após aquele blackout do Whatsapp há pouco tempo atrás.
    Obrigado.

    PS. Acho que fiz meu primeiro comentário aqui! Uso muito o forum para tentar aprender um pouco e acho ele espetacular! Esses caras, o criquio, o J.Paulo, o Vieira e tantos outros, são formidáveis. Muito obrigado!!

      Data/hora atual: 29/11/2021, 23:18