[Resolvido]comando para verificar a quantidade antes de fazer a venda?

Ola amigos, estou criando um bd de vendas e estou com uma dificuldade. (criei apenas um bd teste para ajuda dos amigos)
no "frm_orçamento" tem um botão vender que transfere todos os dados do orçamento para tela de vendas.

Eu quero um comando vba que ao clicar no botão "vender", primeiro verifique se a quantidade de todos os produtos estão preenchidas,
caso alguma esteja em branco, apareça uma mensagem solicitando esse preenchimento, e só libere depois de todas preenchidas.

Sou novo em vba, se puder fazer no projeto postado eu agradeço muito. Pois assim verei como foi feito.
fico no aguardo.  

Olá dê uma olhada neste exemplo que postei.
Talvez seja útil para vc.
No final da página tem um exemplo com contas a receber.

Forte abraço.

http://maximoaccess.forumeiros.com/t19460-pdv-orcamento-controle-de-estoque-receber-divida

Ola amigo, sou novo no access não consigo encontrar no seu projeto o que estou precisando, se puder fazer a mudança no meu eu agradeço muito  

Boa tarde,

veja se lhe serve.

Código:


Private Sub btn_vender_Click()
    
    Dim dbOrc As Database, rs1, rs2, rs3 As DAO.Recordset

    If MsgBox("Deseja Gerar venda do Orçamento?", vbYesNo + vbQuestion, "Inclusão do Orçamento na Venda") = vbYes Then
    
        Set dbOrc = CurrentDb: Set rs1 = dbOrc.OpenRecordset("Tbl_Venda", dbOpenTable)
            
            
        Dim idVendaTmp As Integer 'Variável
        With rs1
        .AddNew
        ![cliente] = Me.cliente
        ![endereco] = Me.endereco
        ![telefone] = Me.telefone
        .Update
        End With
        
        idVendaTmp = DMax("idVenda", "Tbl_Venda") 'Preenchendo a variável
        
        
        Set rs2 = dbOrc.OpenRecordset("SELECT * FROM Tbl_DetalheOrcamento WHERE Id_Ligacao=" & Me.idOrcamento)
        Set rs3 = dbOrc.OpenRecordset("Tbl_detalheVenda", dbOpenTable)
        
      
        While (Not rs2.EOF)
            With rs3
                .AddNew
                ![Id_ligacao] = idVendaTmp
                ![codProduto] = rs2![codProduto]
                ![produto] = rs2![produto]
                If Not IsNull(rs2![quantidade]) Then ' ------------------------- Validação
                    ![quantidade] = rs2![quantidade] 'Preenche a quantidade
                Else
                    'Solicita a quantidade vendida do item
                    ![quantidade] = InputBox("Informe a quantidade para o produto: " & vbCrLf & rs2![produto], "ATENÇÃO")
                End If '-------------------------------------------------------- Final da Validação
                ![descricao] = rs2![descricao]
                ![marca] = rs2![marca]
                .Update
                rs2.MoveNext
            End With
        Wend
        
        Set rs1 = Nothing: Close
        
        Set rs2 = Nothing: Close

        Set rs3 = Nothing: Close
        
        Set dbOrc = Nothing: Close
        
        idVendaTmp = "" 'Limpa a variável
        
        DoCmd.OpenForm "frm_venda", acNormal, , "idvenda = " & idVendaTmp
        Forms!frm_venda!subfrm_detalVenda.Requery
        DoCmd.Close acForm, "frm_orcamento"
      Else
      
      Exit Sub
      
    End If

End Sub


Oi Glicerio, testei este código que vc postou, mas na forma que o meu projeto original está, ele vai dar falhas com meu estoque.

então no meu caso, a unica forma de impedir a venda é um comando que:
Quando tiver um dos produtos sem a quantidade, apareça a msg informando a falta do preenchimento deste campo, mande o foco para o mesmo (se caso não for possivel mandar o foco, não tem problema). Enquanto todas as quantidades não forem preenchidas, vai continuar impedindo a venda, aparecendo a msg.
obs, esse evento tem que ser feito antes de aparecer a msg "deseja efetuar a venda"

se fizer deste jeito resolve meu problema. Obrigado pela atenção
fico no aguardo.

Boa tarde,
Coloque, no btn_vender_Click
'verifica se todas as quantidades estão preenchidas
If DCount("*", "Tbl_detalheOrcamento", "Id_ligacao=" & idOrcamento) > 0 Then
MsgBox "Tem de preencher todas as quantidades."
Exit Sub
End If

Claudio

Taí teu exemplo modificado


Noob

Oi noob, deu certo no meu bd original.   

Observação:
eu abri esse tópico pois estou fazendo com que o meu estoque não fique negativo.
Mas tem um ultimo detalhe para ele nunca ficar negativo.
no meu subfrm_detalOrçamento, coloco os produtos com codigo normalmente, só que ele permite repetir varias vezes o mesmo produto
com o mesmo código, e isso se fechar a venda pode deixar o meu estoque com valor negativo.
tem algum código vba que não deixe repetir produtos na lista e sim apenas um produto diferente por linha para assim estipular a quantidade de cada um?
que evendo coloco? apos atualizar?
fico no aguardo para poder fechar esse tópico
  

Claudio

No evento após atualizar do controle do código do produto coloque o código vba abaixo.
Lembre-se de mudar o nome do IDProduto para o nome que você usa.

Noob

Código:


Private Sub IDProduto_AfterUpdate()

Dim rsf As Recordset, frm As Form
Set frm = Me
Set rsf = Me.RecordsetClone
'Este código soma a quantidade de itens de um mesmo produto em uma linha,
'evitando ter mais de uma linha para um mesmo produto.
If Me.IDProduto <> 0 Then
   rsf.FindFirst "[IDProduto]= '" & Me.IDProduto & "'"
   If Not rsf.NoMatch Then
      frm.Undo
      frm.Bookmark = rsf.Bookmark
      rsf.Edit
      rsf!Qtdade = rsf!Qtdade + 1
      rsf.Update
   End If
End If

End Sub



Oi noob, fiz a mudança e não funcionou, fica dando erro de criterio,
eu coloquei no projeto apresentando o erro para vc ver

Modifica e mando de volta
Obrigado.
 

Claudio

Antes, adicione as tres linhas em azul no código do botão VENDER:

Do While Not .EOF
                 If IsNull(!quantidade) Or !quantidade = 0 Then
                    MsgBox "Existem campos Quantidade em branco ou com valor zero." + vbCrLf + "Confira.", vbInformation, "Atenção"
                   
                    Me.subfrm_detalOrçamento.Form.Bookmark = rsclone.Bookmark
                   
                    DoCmd.GoToControl "subfrm_detalOrçamento"
                    DoCmd.GoToControl "quantidade"

                    Exit Sub
                 End If
                 rsclone.MoveNext
           Loop

Agora, o puxão de orelha    

Releia com atenção o meu post anterior.


Noob

poxa amigo, me perdoe, mas não to conseguindo.

se for possivel, faça no meu bd poste.
eu agradeço muito.   

Claudio

Creio que irá agradecer se aprender.

Vou te dar duas pistas:

Noob escreveu:
No evento após atualizar do controle do código do produto coloque o código vba abaixo.
Lembre-se de mudar o nome do IDProduto para o nome que você usa.

Private Sub IDProduto_AfterUpdate()

E veja agora, onde você colocou o código.

Noob

Oi noob, então vamos fazer a coisa certa.
no meu projeto eu busco os produtos com um botão de busca. Então creio que é ele que deve ter o comando de controle de repetição de produtos.

não precisa mexer no botão vender.

Fale como devo alterar o comando no botão "produtos" ou no evento "click duplo" no "frm_pesqProdutos"
apenas explique como deve ser feito para eu poder estudar e aplicar no meu projeto

Estou começando o curso access e todos os códigos que tenho foi postado por este forum. O que faço é estuda-los.

fiz a mudança no meu bd teste para você entender como estou fazendo. está logo abaixo.
Fico no aguardo, muito obrigado pela atenção
  

Não é assim meu amigo, logo vou te mostrar
Mas antes de poder continuar, não vejo a tabela de estoque dos produtos
Agora existe uma tabela (cad_produto), mas acredito que não seja ela.
Preciso dela pra dar continuidade.
Coloque essa tabela no exemplo e reanexe no lugar desse exemplo que está anexado.
Dai só poste avisando que mudou o anexo.

Noob

Nao Amigo, No Meu Projeto Original Essa Parte De Orçamento Nao Altera O Meu Estoque. Serve Apenas Para Montar Orçamentos.
Agora Se O Operador Montar O Orçamento De Forma Errada E Mandar Para Venda Ai Dá Valores Errados No Estoque. Por Isso O Interesse Em Nao Ter Falhas No Orçamento. A Mudança Precisa Ser Feita Ai No Detalhe Do Orçamento Para Nao Duplicar Os Produtos
So Falta Isso.
Obrigado Desde Já

Uma pergunta bem básica:

Como irá fazer o orçamento se não tem como pegar os valores dos produtos?

Noob

Esse, é so um exemplo, o meu verdadeiro projeto ta todo completo. Se vc mostrar como faz para impedir a repetiçao de produtos na lista do detalhe de orçamento, eu adapto no meu projeto e resolvo meu problema.
  
Espero nao ta encomodando

Isso é uma troca, você fornece informações e eu ajudo a implementar.
Não posso fazer milagres

Noob

Oi amigo, nao sei o que fiz de errado. Vc queria que postasse o original?. É muito pesado. Achei mais viavel postar apenas a parte importante, pois o verdadeiro faz a busca de produtos do mesmo jeito. Achei que vc tendo o nome e o codigo do produto, já poderia criar o comando e depois eu só adaptaria os outros campos.
Mas obrigado e me desculpe qualquer coisa

Oi, o problema aqui está em falta de compreenção e intendimento no que esta postado por mim.
veja bem:
não tenho tabela de estoque. Pois funciona assim:
Uma consulta calcula as quantidades de entradas de produtos em uma tbl_entradasProd com as saídas na tbl_detalhevendas, aí gera o meu estoque que aparece nessa frm_pesqProduto atraves de uma caixa de listagem. Isso ta funcionando normalmente sem erros.

O detalhe é que se tiver apenas 2 produtos "X", o operador quiser vender 3 unidades, e na hora de montar o orçamento a pessoa montar dessa forma:
codigo        produto       descrição      quantidade
    5              X               XXXX               1
    5              X               XXXX               1
    5              X               XXXX               1
Assim o comando no apos atualizar a quantidade que verifica o estoque não vai servir pois ele bloqueia se a pessoa colocar acima de 2 ja que so tem dois no estoque. agora se a pessoa fosse obrigada a digitar em apenas uma linha a quantidade 3, ai iria bloquear

e dessa forma acima vai mandar a venda de 3 sendo que so tem 2 e vai deixar o estoque desse produto -1
Aqui, o que eu tava pedindo era apenas bloquear a repetição de produtos com mesmo codigo. Dessa forma a pessoa escreveria a quantidade e assim o controle de estoque funcionaria sem problemas.

Claudio

Ai está teu exemplo modificado

Estude o código e adapte no teu aplicativo.

Noob

obrigado noob pela ajuda. nota 10

Que bom que ajudei

Valeu pelo retorno

Boa sorte


Noob