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


4 participantes

    [Resolvido]Estoque <0

    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 299
    Registrado : 19/08/2010

    [Resolvido]Estoque <0 Empty [Resolvido]Estoque <0

    Mensagem  marcelo3092 8/6/2016, 04:28

    Boa noite pessoal seguinte to com probleminha aq achu q vcs podem me ajudar

    tenho um formulário para consulta e inclusão de produtos na venda nesse formulário tem consulta de produto normal seleciona o produto
    ai tenho quantidade comprada e quantidade vendida e tenho um campo chamada Texto43 com a expressão =[Texto41]-[Texto39]
    que soma a quantidade do estoque e tenho um botão de comando38 que faz a inserção do produto na venda com o seguinte vba
    DoCmd.OpenForm "Venda", , , , acFormAdd
    Forms!Venda!Detalhe_Venda!Cód_Produto = Me.Cód_Produto
    DoCmd.Close acForm, "Lista_Produtos"

    ai que vem a duvida como faço para nesse botão ele verificar se a quantidade no campo Texto43 esta igual a zero se se tiver aparecer a mensagem este produto acabo ou qualquer outra, e cancela o evento não adicionando o produto???

    galera espero que alguem me ajuda desde ja agradeço...........
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

    [Resolvido]Estoque <0 Empty Re: [Resolvido]Estoque <0

    Mensagem  Celso Roberto 8/6/2016, 05:25

    Olá

    seria mais ou menos isto:

    If ME.Texto43 = 0 Then
    Cancel = True
    MsgBox "Estoque Zerado!!!", vbExclamation + vbOKOnly + vbDefaultButton2, "Atenção"
    Else

    DoCmd.OpenForm "Venda", , , , acFormAdd
    Forms!Venda!Detalhe_Venda!Cód_Produto = Me.Cód_Produto
    DoCmd.Close acForm, "Lista_Produtos"

    End If

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 23/09/2011

    [Resolvido]Estoque <0 Empty Re: [Resolvido]Estoque <0

    Mensagem  cleverson_manaus 8/6/2016, 12:20


    Bom dia Marcelo,


    Esse arquivo tem muito haver com seu problema,  veja as rotinas nos forms de entrada e saida.

    Bons estudos.

    Abraços,

    Cleverson
    Anexos
    [Resolvido]Estoque <0 AttachmentSistemaComandasAlterado.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (57 Kb) Baixado 60 vez(es)


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    avatar
    fvs2
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 24/02/2013

    [Resolvido]Estoque <0 Empty Filtrar data maior que DATA()

    Mensagem  fvs2 8/6/2016, 13:44

    Bom dia!!

    estou querendo fazer um filtro em uma consulta, mais esta pedindo pra me inserir valor do parâmetro.

    minha tabela > TBL_DATA , campo DATA

    minha consulta > CLT_DATA_DIA

    na minha consulta eu trango a TBL_DATA
    e realizo um filtro de seimed

    1º coluna do filtro: DATA |
    2º coluna do filtro: DIA: data()-[DATA] |
    3º coluna do filtro: FILTRO: seImed([DIA]>15;"SIM";"NÂO")


    na 3º coluna do filtro na linha > critérios > quando eu informo o criterio "SIM" pra trazer tudo que for "SIM" ele pede pra inserir o valor do Parâmetro

    segue exemplo em BD.
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 23/09/2011

    [Resolvido]Estoque <0 Empty Re: [Resolvido]Estoque <0

    Mensagem  cleverson_manaus 8/6/2016, 13:48


    Bom dia Flavio,


    Antes vc deve criar um tópico novo pois sem tema é diferente deste.

    E tente posta o arquivo com as tabelas em questão.


    Abraços,

    Cleverson


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 299
    Registrado : 19/08/2010

    [Resolvido]Estoque <0 Empty Estoque <0

    Mensagem  marcelo3092 8/6/2016, 17:51

    Cara não me arrependo de ter registrado nesse forum o melhor forum de access muito bom o pessoal reponde muito rapido agradeço pessoal
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

    [Resolvido]Estoque <0 Empty Re: [Resolvido]Estoque <0

    Mensagem  Celso Roberto 8/6/2016, 19:27

    Olá..

    Valeu pelo retorno, o Fórum agradece

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 299
    Registrado : 19/08/2010

    [Resolvido]Estoque <0 Empty Estoque <0

    Mensagem  marcelo3092 10/6/2016, 16:43

    Bom dia pessoal vim aq pra atualiza uma linha do código pois modifiquei meu formulario e nao funcionou mais o código

    If ME.Texto43 = 0 Then
    Cancel = True essa linha que parou de funciona ai eu troquei pelo DoCmd.CancelEvent
    MsgBox "Estoque Zerado!!!", vbExclamation + vbOKOnly + vbDefaultButton2, "Atenção"
    Else

    DoCmd.OpenForm "Venda", , , , acFormAdd
    Forms!Venda!Detalhe_Venda!Cód_Produto = Me.Cód_Produto
    DoCmd.Close acForm, "Lista_Produtos"

    End If

    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

    [Resolvido]Estoque <0 Empty Re: [Resolvido]Estoque <0

    Mensagem  Celso Roberto 10/6/2016, 23:04

    Valeu....


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    Conteúdo patrocinado


    [Resolvido]Estoque <0 Empty Re: [Resolvido]Estoque <0

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 22:49