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

    [Resolvido]Usar caractere coringa em critérios de códigos vba

    avatar
    Sgsamuka
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 03/12/2020

    [Resolvido]Usar caractere coringa em critérios de códigos vba Empty [Resolvido]Usar caractere coringa em critérios de códigos vba

    Mensagem  Sgsamuka 8/10/2021, 17:43

    Olá senhores, espero que possam me salvar.

    Utilizo o código abaixo para somar valores de uma tabela. Um dos critérios para a soma é que busque apenas produtos com o código começado com a letra "N", ou seja, as demais letras após a letra "N" serão definidas por um valor coringa. No entanto não estou conseguindo fazer com o que o código realize essa tarefa.

    Dim VLTEM As Currency
    VLTEM = Nz(DSum("Preco_Tot_Inf_Capex", "BDCapex", "Cod_Capex = " & Me.Cod_Capex & " And Cod_SubConta_Capex = '" & "N*" & "'"), 0)
    Me.Preco_Unit_Inf_Capex.Value = VLTEM

    Atualmente o código está dessa maneira. Vocês poderiam me ajudar?


    Desde já, muito obrigado.
    Cláudio Más
    Cláudio Más
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Usar caractere coringa em critérios de códigos vba Empty Re: [Resolvido]Usar caractere coringa em critérios de códigos vba

    Mensagem  Cláudio Más 8/10/2021, 18:28

    Tente assim:

    VLTEM = Nz(DSum("Preco_Tot_Inf_Capex", "BDCapex", "[Cod_Capex] = " & Me!Cod_Capex & " And [Cod_SubConta_Capex] Like 'N*'"), 0)
    avatar
    Sgsamuka
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 03/12/2020

    [Resolvido]Usar caractere coringa em critérios de códigos vba Empty Re: [Resolvido]Usar caractere coringa em critérios de códigos vba

    Mensagem  Sgsamuka 8/10/2021, 19:04

    Obrigado, Claudio.
    É exatamente isso que eu precisava.
    Cláudio Más
    Cláudio Más
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Usar caractere coringa em critérios de códigos vba Empty Re: [Resolvido]Usar caractere coringa em critérios de códigos vba

    Mensagem  Cláudio Más 8/10/2021, 19:45

    De nada

      Data/hora atual: 16/10/2021, 22:38