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

    [Resolvido]Alteracao em VBA

    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 12/07/2014

    [Resolvido]Alteracao em VBA Empty [Resolvido]Alteracao em VBA

    Mensagem  Belobo 30/3/2021, 17:30

    Ola amigos
    Captei por aqui mesmo um banco de dados que faz o envio de whatsapp.
    Ele envia mensagens celular a celular.
    Gostaria de uma ajuda pra alterar o codigo e fazer com que todas as abas do whatsapp sejam abertas ao mesmo
    assim posso dar enter e ir fechando os navegadores
    Pra mim seria uma garantia de executar o envio mais rapidamente ja que nao existe "enter" automatico no whatsapp web

    abaixo o codigo

    Private Sub bt_WH_Click()
    Call Enviar
    End Sub

    Sub Enviar()

    Dim textEnviar, Contatcs As String

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

    textEnviar = Replace(Me.Mensagem, "", "%20") ' o me.mensagem ( campo memorando ) recebe o texto a ser digitado através do Replace

    'verifico se o campo do telemóvel / Celular está vazio.

    If Me.WhatApps = "" Then ' campo numero do celular / Telemóvel.

    MsgBox "Informe o numero do What´s Apps !!", 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.WhatApps

    'abre o navegador e cria a mensagem

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



    'tab e dois enter para enviar

    Call SendKeys("{TAB}", True)
    Call SendKeys("{ENTER}", True) ' removido um tab, o enter responder melhor.
    Call SendKeys("{ENTER}", True)

    End If
    End Sub


    Private Sub Form_Current()
    Me.Caption = " Envio de mensagem pelo What´s Apps"
    End Sub
    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 12/07/2014

    [Resolvido]Alteracao em VBA Empty Re: [Resolvido]Alteracao em VBA

    Mensagem  Belobo 1/4/2021, 01:15

    UP amigos . Cade os feras do forum pra me ajudar !!
    Ja estou ajudando quem precisa de mim com menos experiencia
    Boa noite a todos
    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 12/07/2014

    [Resolvido]Alteracao em VBA Empty Re: [Resolvido]Alteracao em VBA

    Mensagem  Belobo 2/4/2021, 02:36

    Fala amigos
    Continuo sem ajuda
    Com o código atual eu consigo pelo formulário abrir um navegador por vez
    Como minha tabela tem número de pessoas variável preciso que ao clicar no ícone de whatsapp se abra o número de Guia do navegador de acordo com o cadastro de clientes

    Obrigado
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Alteracao em VBA Empty Re: [Resolvido]Alteracao em VBA

    Mensagem  Alexandre Neves 2/4/2021, 11:29

    Bom dia
    Melhore a sua participação no fórum
    Dê continuidade a questões em aberto
    https://www.maximoaccess.com/t36311-conciliacao-de-cartoes-de-credito#248142
    https://www.maximoaccess.com/t36325-mover-e-somar-dados-selecionados#248238
    https://www.maximoaccess.com/t36399-vba-para-impressora-datamax#248821
    https://www.maximoaccess.com/t38218-replicando-linhas-de-acordo-com-campo-qtde#260784
    https://www.maximoaccess.com/t38547-relatorio-com-codigo-de-barras#262846
    https://www.maximoaccess.com/t39353-vba-para-dados-trabalhados#268098
    https://www.maximoaccess.com/t39381-banco-de-dados-para-whatsapp#268342

    Fica por sua conta a contagem de alertas que lhe foram dirigidos sobre incumprimento das regras do fórum

    Sobre a sua questão:
    - Seja mais modesto, não atire à cara de ninguém as vezes que ajudou, pois poderia ter más respostas por ter pedido mais vezes ajuda do que as que ajudou, mas esse não é caminho permitido aqui no fórum (provavelmente, a quem ajudou, por ter menos conhecimentos, não foi nenhum dos que tentaram ajudar na sua dúvida; e os que tentaram ajudar na sua dúvida não receberam ajuda da sua parte). Pense nisso
    - A sua dúvida já foi vista 35 vezes, o que significa que houve muitos colegas com vontade de ajudar e não conseguiram (ou estarão a preparar resposta)
    - eu próprio nunca fiz nada envolvendo whatsapp e vi a dúvida mas não vislumbrei nenhuma solução
    - se, ao menos, disponibilizasse pequeno bd com dados significativos essencias à dúvida, levaria a colegas (eu incluído) a entrar mais na dúvida. Como informo na minha assinatura, temos que trabalhar a dúvida e ainda criar bd com tudo o que já está criado por quem precisa de ajuda, e isto é dificultar quem quer ajudar


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Belobo e FranklinJSP gostam desta mensagem

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Alteracao em VBA Empty Re: [Resolvido]Alteracao em VBA

    Mensagem  DamascenoJr. 2/4/2021, 13:45

    Acrescentando sobre a dúvida, fiz o teste e não é possível abrir mais de uma janela com o whatsapp.


    .................................................................................
    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.
    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 12/07/2014

    [Resolvido]Alteracao em VBA Empty Re: [Resolvido]Alteracao em VBA

    Mensagem  Belobo 2/4/2021, 19:33

    Obrigado amigos
    Acho que nao coloquei nada tao pesado assim na minha mensagem.
    Mas compreendo bem que minha intencao nao foi recebida bem e peço desculpas
    Abaixo coloco o codigo que copiei de uma solucao referente a outro caso aqui em que o Alexandre Neves resolveu em algo para percorrer os registros da tabela
    Fiz umas alteracoes e funcionou pra mim. Ressalto que conhecimentos adquiridos aqui no Forum

    Sei que o forum é pra ajudar entao segue minha colaboracao e comentarios.

    So aproveito pra deixar claro que minha mensagem foi no intuito de animar alguem a me ajudar assim como ficou feliz em ajudar ao proximo

    Sobre o codigo segue abaixo e funciona.
    Importante é nao ter uma tabela com mais de 30 registros pois se abrir uma tabela com 6000 telefones de whatsapp trava a maquina

    ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub bt_WH_Click()
    Call Enviar ' Chama a funcao enviar
    End Sub

    ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    'a funcao abaixo serve para pegar os numeros de telefone da tabela e abrir o navegador com as mensagens a enviar

    Sub Enviar()
    Dim db As DAO.Database 'Variável do banco de dados
    Dim rs As DAO.Recordset
    Set db = CurrentDb 'Banco de Dados Atual
    Set rs = db.OpenRecordset("TblCliente") 'Abre no banco de dados a tabela
    Do While Not rs.EOF ' Enquanto não chegar no final dos registros faz o loop

    Application.FollowHyperlink "https://api.whatsapp.com/send?phone=" & "+55" & rs.Fields("Whatapps") & "&text=" & "Olá ! Aqui é a Renata da Loja AD Multicenter. Faço parte do marketing e gostaria de oferecer nosso atendimento pelo WhatsApp. Faça sua compra com segurança que levamos até Você !! Temos mais 2 números atendendo - Larissa 979107219 e Milena 997008078"
    rs.MoveNext 'Move para o próximo registro
    Loop
    'Call SendKeys("{TAB}", True)
    'C'all SendKeys("{ENTER}", True) ' removido um tab, o enter responder melhor.
    'Call SendKeys("{ENTER}", True)

    'Fecha as conexão
    Set rs = Nothing
    Set db = Nothing
    End Sub
    ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------

    Abracos amigos e volto a dizer sou do bem !!

    Aproveito para quem puder ampliar o codigo nos mostrar como posso puxar o primeiro nome do cliente

    Vou aguardar alguns dias caso nao tenha retorno encerrarei o post como resolvido







    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Alteracao em VBA Empty Re: [Resolvido]Alteracao em VBA

    Mensagem  Alexandre Neves 2/4/2021, 20:21

    Não entendi o que pretende sobre "puxar o primeiro nome do cliente"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 12/07/2014

    [Resolvido]Alteracao em VBA Empty Re: [Resolvido]Alteracao em VBA

    Mensagem  Belobo 2/4/2021, 20:35

    Exemplo
    Bernardo Lobo
    Pegar o primeiro nome

    Trazer na mensagem " Ola Bernardo ....... "
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Alteracao em VBA Empty Re: [Resolvido]Alteracao em VBA

    Mensagem  Alexandre Neves 2/4/2021, 21:41

    adapte para o nome correcto do campo
    Application.FollowHyperlink "https://api.whatsapp.com/send?phone=" & "+55" & Rs.Fields("Whatapps") & "&text=" & "Olá " & Mid(Rs("CampoNome"), 1, InStr(1, Rs("CampoNome"), " ") - 1) & "! Aqui é a Renata da Loja AD Multicenter. Faço parte do marketing e gostaria de oferecer nosso atendimento pelo WhatsApp. Faça sua compra com segurança que levamos até Você !! Temos mais 2 números atendendo - Larissa 979107219 e Milena 997008078"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 12/07/2014

    [Resolvido]Alteracao em VBA Empty Re: [Resolvido]Alteracao em VBA

    Mensagem  Belobo 2/4/2021, 22:08

    Vou testar obrigado !
    Depois ja colocarei o resolvido quando der certo
    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 12/07/2014

    [Resolvido]Alteracao em VBA Empty Re: [Resolvido]Alteracao em VBA

    Mensagem  Belobo 3/4/2021, 00:04

    Boa noite .
    Tudo certo
    Tenho o topico como resolvido
    Uma dúvida é a seguinte
    Deste topico tenho mais uma adequação a fazer
    Abre um novo topico ou mantenho esse aberto
    Trata-se de melhoria
    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 12/07/2014

    [Resolvido]Alteracao em VBA Empty Re: [Resolvido]Alteracao em VBA

    Mensagem  Belobo 3/4/2021, 03:30

    Vou encerrar esse post e abrir outro
    Este esta resolvido e funcionando

    Conteúdo patrocinado


    [Resolvido]Alteracao em VBA Empty Re: [Resolvido]Alteracao em VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 14:17