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]Informação apos executar Dlookup

    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 280
    Registrado : 23/05/2011

    [Resolvido]Informação apos executar Dlookup Empty [Resolvido]Informação apos executar Dlookup

    Mensagem  Ney Santos 1/10/2020, 15:42

    Bom dia a todos tenho a seguinte função num botão de formulario:
    ValZero = Nz(DLookup("[VLRTOTAL]", "ExcluirZero") <= 0)
    If ValZero Then
    MsgBox "Atenção foi verificado que existe pedido abertos em nehum lançamento verifique antes de abrir um novo pedido", vbCritical, "Erro ao abrir pedido"
    DoCmd.CancelEvent
    Exit Sub
    End If
    Explicando:
    Toda vez que o cleinet vai abrir uma nova venda, o sistema verifica se existe algum pedido que foi aberto , mas nada foi lançado, ouseja ovalro do pedido é ZERO.
    Gostaria de saber se exite algum implmentaçao nesse código que informasse ao cliente qual o nuemro do pedido esta zerado.

    Desde já agradeço.

    Att
    Ney Santos
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1686
    Registrado : 23/01/2018

    [Resolvido]Informação apos executar Dlookup Empty Re: [Resolvido]Informação apos executar Dlookup

    Mensagem  crysostomo 2/10/2020, 03:25

    fico de carona


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

    [Resolvido]Informação apos executar Dlookup Empty Re: [Resolvido]Informação apos executar Dlookup

    Mensagem  Avelino Sampaio 2/10/2020, 08:48

    Olá!

    se o senhor der uma passadinha pelo help da função Dlookup(), clicando AQUI, irá identificar o seu erro.

    Veja também NESTE meu artigo, dica 2, como capturar vários campos numa única chamada do Dlookup().

    Aguardamos




    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 280
    Registrado : 23/05/2011

    [Resolvido]Informação apos executar Dlookup Empty Bom dia

    Mensagem  Ney Santos 3/10/2020, 15:05

    Bom dia Sr Avelino.
    Desculpe mas não entendi oque o Sr quiz dizer com meu "ERRO".
    A consulta funciona. Envia a a msg. ao susuario.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

    [Resolvido]Informação apos executar Dlookup Empty Re: [Resolvido]Informação apos executar Dlookup

    Mensagem  Avelino Sampaio 3/10/2020, 19:32

    Ok, explique pra gente o que o senhor imagina que esta função está realizando ?

    DLookup("[VLRTOTAL]", "ExcluirZero")


    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 280
    Registrado : 23/05/2011

    [Resolvido]Informação apos executar Dlookup Empty Dlookup

    Mensagem  Ney Santos 5/10/2020, 23:27

    Boa noite Sr Avelino!
    A função faz uma busca atarves de uma consulta, onde os parametros de filtragem,
    mostram algum pedido cujo valor seja Zero.
    Private Sub BTNOVO_Click()
    Dim IsAberto As Boolean

    IsAberto = Nz(DLookup("[VLRTOTAL]", "ExcluirZero") <= 0)
    If IsAberto Then
    Me.PedZero.Visible = True
    MsgBox "Atenção foi verificado que existe um pedido aberto sem nenhum lançamento verifique antes de abrir um novo pedido", vbCritical, "Erro ao abrir pedido"
    DoCmd.CancelEvent
    Exit Sub
    End If
    E esta e aconsulta que criei:

    SELECT VENDAS.IDVENDA, VENDAS.VLRTOTAL
    FROM VENDAS
    WHERE (((VENDAS.VLRTOTAL)<=0));

    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

    [Resolvido]Informação apos executar Dlookup Empty Re: [Resolvido]Informação apos executar Dlookup

    Mensagem  Avelino Sampaio 6/10/2020, 07:29

    Resposta errada.  Aonde se encontram os parâmetros de filtragem na função abaixo ?

    DLookup("[VLRTOTAL]", "ExcluirZero")


    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 280
    Registrado : 23/05/2011

    [Resolvido]Informação apos executar Dlookup Empty onde estao os parâmetros

    Mensagem  Ney Santos 8/10/2020, 14:58

    Bom dia Sr Avelino:

    Desculpe a demora para responder.
    Os parametros ve de uma consulta que criei.
    Cujo criterio e pedido com valorR$00,00
    Att

    Ney santos
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

    [Resolvido]Informação apos executar Dlookup Empty Re: [Resolvido]Informação apos executar Dlookup

    Mensagem  Avelino Sampaio 10/10/2020, 11:52

    Olá!

    Experimente:

    ...
    dim idv
    Idv = DLookup("idVenda", "Vendas", "VLRTOTAL<=0")
    If not isnull(Idv) Then
    Me.PedZero.Visible = True
    MsgBox "O pedido " & idv & " está aberto, sem nenhum lançamento...", vbCritical, "Erro ao abrir pedido"
    DoCmd.CancelEvent
    ...


    Sucesso!



    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 280
    Registrado : 23/05/2011

    [Resolvido]Informação apos executar Dlookup Empty Re: [Resolvido]Informação apos executar Dlookup

    Mensagem  Ney Santos 10/10/2020, 14:46

    Bom dia!
    Sr Avelino, masi uma vez o Sr matou a cobra e mostrou a cobra morta rss..
    Muito obrigado funcionou perfitamente.
    Apenas inclui um exit sub para não dar continuiadade ao restante do código, visto que apos a msg ele ainad gerava um novo id do pedido.

    Conteúdo patrocinado

    [Resolvido]Informação apos executar Dlookup Empty Re: [Resolvido]Informação apos executar Dlookup

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 13/5/2021, 10:25