MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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 75%

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

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

    Mensagem  Ney Santos em Qui Out 01, 2020 2:42 pm

    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
    VIP
    VIP

    Respeito às Regras 50%

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

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

    Mensagem  crysostomo em Sex Out 02, 2020 2:25 am

    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 100%

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

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

    Mensagem  Avelino Sampaio em Sex Out 02, 2020 7:48 am

    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




    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

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

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

    Mensagem  Ney Santos em Sab Out 03, 2020 2:05 pm

    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 100%

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

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

    Mensagem  Avelino Sampaio em Sab Out 03, 2020 6:32 pm

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

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


    Aguardamos


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

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

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

    Mensagem  Ney Santos em Seg Out 05, 2020 10:27 pm

    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 100%

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

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

    Mensagem  Avelino Sampaio em Ter Out 06, 2020 6:29 am

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

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


    Aguardamos


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

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

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

    Mensagem  Ney Santos em Qui Out 08, 2020 1:58 pm

    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 100%

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

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

    Mensagem  Avelino Sampaio em Sab Out 10, 2020 10:52 am

    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!



    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

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

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

    Mensagem  Ney Santos em Sab Out 10, 2020 1:46 pm

    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.

      Data/hora atual: Seg Out 19, 2020 3:35 pm