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

    Dificuldade utilizando o DSUM com critério

    avatar
    AlexCosmi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 10/02/2017

    Dificuldade utilizando o DSUM com critério Empty Dificuldade utilizando o DSUM com critério

    Mensagem  AlexCosmi 23/4/2024, 13:25

    Não estou conseguindo colocar no critério do DSUM o valor selecionado num ComboBox.
    Tabela: Saidas_Prod
    Campo para Soma = Quantidade_Sai
    Campo para Critério = Cod_Prod (valor selecionado num ComboBox de um Formulário).

    Código:
    Private Sub Quantidade_BeforeUpdate(Cancel As Integer)
    Dim TotSai As Currency

    TotSai = DSum("Quantidade_Sai", "Saidas_Prod", "Cod_Prod"= Me.CombProd.Value)
    MsgBox TotSai

    End Sub

    Ao executar retorna o erro:
    Erro em tempo de execução "94":
    Uso de Null Inválido
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3365
    Registrado : 13/12/2016

    Dificuldade utilizando o DSUM com critério Empty Re: Dificuldade utilizando o DSUM com critério

    Mensagem  Alexandre Fim 23/4/2024, 14:12

    Alex bom dia,

    A sintaxe da instrução está incorreta.

    Substitua por:

    TotSai = Nz(DSum("Quantidade_Sai", "Saidas_Prod", "Cod_Prod = " & Me.CombProd.Value & ""),0)

    É isso

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Dificuldade utilizando o DSUM com critério Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    AlexCosmi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 10/02/2017

    Dificuldade utilizando o DSUM com critério Empty Apresentou um novo erro.

    Mensagem  AlexCosmi 23/4/2024, 15:21

    Apresentou o erro:
    Erro em tempo de execução '3464':
    Tipo de dados incompatível na expressão de critério.

    Private Sub Quantidade_BeforeUpdate(Cancel As Integer)
    Dim TotSai As Currency
    TotSai = Nz(DSum("Quantidade_Sai", "Saidas_Prod", "Cod_Prod = " & Me.CombProd.Value & ""), 0)
    MsgBox TotSai
    End Sub
    Anexos
    Dificuldade utilizando o DSUM com critério AttachmentValida.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (285 Kb) Baixado 2 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3365
    Registrado : 13/12/2016

    Dificuldade utilizando o DSUM com critério Empty Re: Dificuldade utilizando o DSUM com critério

    Mensagem  Alexandre Fim 23/4/2024, 15:39

    Ok.

    O código do produto não é numero e sim string, e ai faltaram as aspas simples. Segue correção

    TotSai = Nz(DSum("Quantidade_Sai", "Saidas_Prod", "Cod_Prod = '" & Me.CombProd.Value & "'"), 0)

    Att

    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Dificuldade utilizando o DSUM com critério Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    AlexCosmi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 10/02/2017

    Dificuldade utilizando o DSUM com critério Empty Problema resolvido

    Mensagem  AlexCosmi 23/4/2024, 15:44

    Obrigado pela ajuda. Funcionou perfeitamente.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3365
    Registrado : 13/12/2016

    Dificuldade utilizando o DSUM com critério Empty Re: Dificuldade utilizando o DSUM com critério

    Mensagem  Alexandre Fim 23/4/2024, 16:00

    cheers cheers cheers
    Valeu Alex !!!
    O fórum agradece !!
    Por gentileza, marque o tópico como Resolvido.

    Obrigado

    Att

    Alexandre Fim




    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Dificuldade utilizando o DSUM com critério Setinf11
    Sistemas e Tecnologia Ltda

    Conteúdo patrocinado


    Dificuldade utilizando o DSUM com critério Empty Re: Dificuldade utilizando o DSUM com critério

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/7/2024, 10:52