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

    [Resolvido]Como Chamar função

    avatar
    alexjc
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 23/02/2016

    [Resolvido]Como Chamar função Empty [Resolvido]Como Chamar função

    Mensagem  alexjc 17/5/2021, 15:18

    tenho um modulo com o código logo a baixo, ele funciona se coloco no evento do botão. porem eu queria colocar ele em um modulo e chamar com o codigo call ecac_dctf, porem da o erro "Esperado variável ou procedimento, não módulo"

    obs. nunca trabalhei com modulo estou começando a aprender, e to confuso por que não entendo como funciona.

    Public Function ecac_dctf() As String
    Dim driver As WebDriver ' essa linha deve ficar no inicio do modulo.
    Set driver = New ChromeDriver
    driver.Get "https://cav.receita.fazenda.gov.br/autenticacao/login" ' vai ate a pagina desejada
    Sleep 1000
    driver.FindElementByXPath("//*[@id='login-dados-certificado']/p[2]/a/img").Click
    Sleep 4000
    driver.FindElementByXPath("//*[@id='cert-digital']/a").Click
    Sleep 9000
    driver.FindElementByXPath("//*[@id='btnPerfil']/span").Click
    Sleep 1000
    driver.FindElementByXPath("//*[@id='txtNIPapel2']").Click
    Sleep 1000
    driver.FindElementByXPath("//*[@id='txtNIPapel2']").SendKeys ("02422951000184")
    Sleep 1000
    driver.FindElementByXPath("//*[@id='formPJ']/input[4]").Click
    Sleep 4000
    driver.FindElementByXPath("//*[@id='btn214']/a").Click
    Sleep 3000
    driver.FindElementByXPath ("//*[@id='containerServicos214']/div[2]/ul/li[2]/a")
    Sleep 3000
    End Function
    Cláudio Más
    Cláudio Más
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1293
    Registrado : 21/01/2012

    [Resolvido]Como Chamar função Empty Re: [Resolvido]Como Chamar função

    Mensagem  Cláudio Más 17/5/2021, 15:52

    Provavelmente o nome do módulo é igual ao nome da função, o que causa esse tipo de erro.
    Renomeie o módulo e então poderá chamar a função sem problemas.
    avatar
    alexjc
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 23/02/2016

    [Resolvido]Como Chamar função Empty Re: [Resolvido]Como Chamar função

    Mensagem  alexjc 17/5/2021, 16:04

    nossa era isso mesmo !! Obrigado Cláudio Más

      Data/hora atual: 25/7/2021, 04:42