[Resolvido]Duvida na entrada e saída de produtos

Boa tarde pessoal
Eu novamente, me perdoem aprendi muito com a ajuda de vocês neste fórum, mas conforme vou aprofundando no termino deste sistema as duvidas vão aparecendo.
Estou tentando fazer com que através da entrada da nota fiscal de entrada o estoque do produto que fica na tabela tblProdutos seja acrescentado a quantidade do produto no estoque, e que na venda de produtos ou baixa de requisição seja subtraído do estoque a quantidade de produtos em questão.

Seque abaixo o código da entrada de estoque que fiz, sabendo que para dar a saída é só alterar a adição para subtração no código de vendas.
E segue em anexo o banco de dados com todos os objetos para a analise de vocês.
E Prometo que quando o sistema estiver pronto vou disponibiliza-lo no fórum totalmente de graça.

Código:

Private Sub btnSalvarEntradaProduto_Click()
If IsNull(Me.NfeNumero) Then
MsgBox "Não existe Entrada de Produtos para ser Salvo.", vbCritical + vbOKOnly, "Sistema de Automação Comercial - Aviso."
        Exit Sub
    End If
    Else
        CurrentDb.Execute "Update tblProdutos Set Desc_Pro = & Me.nfeDescProduto.Value & ", UnidMed_Pro = " & nfeUnidMedida.Value & ", VlrCompra_Pro = "& nfeVlrUnitario.value & ", "_"
        Estoque_Pro = [Estoque_Pro] + " & nfeQantidade &"""
        Where Cod_Pro = " & cmbCodigoProduto & """
    DoCmd.Save
MsgBox "Entrada de Produtos Salvo com Sucesso", vbInformation + vbOKOnly, "Sistema de Automação Comercial - Aviso."
DoCmd.GoToRecord , , acNewRec
End Sub

Desde já agradeço..

Bom dia Pessoal

Ninguem pode me da uma ajuda quanto a esta duvida?
Creio que alguém vai me ajudar.
O erro que esta dando é este:

[i]Erro de compilação:
Numero de argumentos incorreto ou atribuição de propriedade invalida.[/i]

Bom dia pessoal
Ninguem pode me ajudar a solucionar este problema?

Boa tarde pessoal
Ainda não tive uma resposta..
A linha que esta dando erro é a que segue abaixo no item em destaque:
CurrentDb.Execute "Update tblProdutos Set Desc_Pro = & Me.nfeDescProduto.Value & ", UnidMed_Pro = " & nfeUnidMedida.Value & ", VlrCompra_Pro = "& nfeVlrUnitario.value & ", "_"

Espero que alguem me de uma resposta.

Grande Samuel...


Vamos quebrar a cabeça juntos então.....


Abraços.

Boa tarde .....

Uma parte já está resolvida...veja como ficou o código agora...

Código:

Dim db1 As Database, rs1 As DAO.Recordset
Set db1 = CurrentDb
Set rs1 = db1.OpenRecordset("tblProdutos")

      If IsNull(Me.NfeNumero) Then
          MsgBox "Não existe Entrada de Produtos para ser Salvo.", vbCritical + vbOKOnly, "Sistema de Automação Comercial - Aviso."
              Exit Sub
                End If
 
    With rs1
  .AddNew
![Desc_Pro] = Forms![entrada de produtos]![Sfentrada]!nfeDescProduto
  ![unidmed_pro] = Forms![entrada de produtos]![Sfentrada]!nfeUnidMedida
    ![vlrcompra_pro] = Forms![entrada de produtos]![Sfentrada]!nfeVlrUnitario
      .Update
 
    End With


   
        'Estoque_Pro = [Estoque_Pro] + " & nfeQantidade &"""
          'Where Cod_Pro = " & cmbCodigoProduto & """
            DoCmd.Save
                MsgBox "Entrada de Produtos Salvo com Sucesso", vbInformation + vbOKOnly, "Sistema de Automação Comercial - Aviso."
                    DoCmd.GoToRecord , , acNewRec

 
End Sub

Vai ter que acrescentar mais campos no código acima, para preencher corretamente a tblprodutos. Teste e me informe !

Abraços

Bom dia Silvio..
Muito obrigado pelo retorno, o campo que você comentou é o Sfentrada?
Porque o sistema não esta reconhecendo ele.
Este campo tem que ser acrescentado na tabela tblDNfEntrada?

Bom dia..

Eu tive que alterar o nome do subformulário, para SFentrada ( subformulário entrada ), pois estava muito complexo o nome dele.

Veja:

![Desc_Pro] -> campo que receberá os dados na tblprodutos.

= Forms![entrada de produtos]![Sfentrada]!nfeDescProduto-> lugar onde esta o campo (nfedescproduto) no subformulário (sfentrada) que faz parte do frm principal (Forms![entrada de produtos]).

Fiz alguns testes aqui...e funfou legal dessa forma.

Silvio, troquei o nomr do meu subformulário tambem, só que esta dando este erro:

Erro em tempo de execução '2465':
O sistema de automação comercial não pode localizar o campo 'SfEntrada' deferido em sua expressão.

Veja o Código:

Código:

Private Sub btnSalvarEntradaProduto_Click()

Dim db1 As Database, rs1 As DAO.Recordset
Set db1 = CurrentDb
Set rs1 = db1.OpenRecordset("tblProdutos")

 If IsNull(Me.NfeNumero) Then
          MsgBox "Não existe Entrada de Produtos para ser Salvo.", vbCritical + vbOKOnly, "Sistema de Automação Comercial - Aviso."
              Exit Sub
                End If
 
    With rs1
  .AddNew
![Desc_Pro] = Forms![Entrada de produtos]![SfEntrada]!nfeDescProduto
  ![unidmed_pro] = Forms![Entrada de produtos]![SfEntrada]!nfeUnidMedida
    ![vlrcompra_pro] = Forms![Entrada de produtos]![SfEntrada]!nfeVlrUnitario
      .Update
 
    End With


   
        'Estoque_Pro = [Estoque_Pro] + " & nfeQantidade &"""
          'Where Cod_Pro = " & cmbCodigoProduto & """
            DoCmd.Save
                MsgBox "Entrada de Produtos Salvo com Sucesso", vbInformation + vbOKOnly, "Sistema de Automação Comercial - Aviso."
                    DoCmd.GoToRecord , , acNewRec

 
End Sub

Veja o anexo...frm entrada de produtos.

Silvio, pelo que estou vendo aqui, o sistema esta enxergando o SfEntrada como um campo e não como um subformulário. Concorda?

Olá Samuel, Olá Silvio, anda sumido hein?

Um pitaco para o Samuel, não meu amigo, o "SfEntrada" é o nome do subform dentro do form "entrada de produtos".

Abcs.

Boa tarde Claudio Machado,
Você viu a mensagem, ele esta acusando como campo.
Erro em tempo de execução '2465':
O sistema de automação comercial não pode localizar o campo 'SfEntrada' deferido em sua expressão.

Grande Cláudio....prazer em revê-lo por essas plagas, espero que tudo esteja bem  e em paz para contigo !

Samuel...veja:

![Desc_Pro] = Forms![Entrada de produtos]![SfEntrada]!nfeDescProduto

a- ![Desc_Pro] = campo da tblprodutos que vai receber o valor que está em nfeDescProduto do subformulário SFEntada
b- Forms![entrada de produtos] = nome do formulário principal.
c- [Sfentrada] = nome do subformulário.
d- nfeDescProduto = nome do campo que está no subformulário que será exportado para a tbl produtos

Eu apenas alterei o nome do seu subformulário, pois o mesmo não estava nada " amigável ", então eu simplifiquei o mesmo para SFEntradas ( Sub formulário Entradas ).

Boa noite Silvio e Claudio

Rapazes agora que fui ver que este código esta errado, preciso que ele só atualize a quantidade o resto ja é feito no cadastro de produtos, então o que esta destacado em vermelho não precisa, e o que esta em azul sim só precisa atualizar o estoque:
3333]]![Desc_Pro] = Forms![Entrada de produtos]![SfEntrada]!nfeDescProduto
![unidmed_pro] = Forms![Entrada de produtos]![SfEntrada]!nfeUnidMedida
![vlrcompra_pro] = Forms![Entrada de produtos]![SfEntrada]!nfeVlrUnitario
.Update

End With



'Estoque_Pro = [Estoque_Pro] + " & nfeQantidade &"""
'Where Cod_Pro = " & cmbCodigoProduto & """
DoCmd.Save
MsgBox "Entrada de Produtos Salvo com Sucesso", vbInformation + vbOKOnly, "Sistema de Automação Comercial - Aviso."
DoCmd.GoToRecord , , acNewRec


End Sub[/code]
Espero que vocês tenham entendido.

Boas Samuel...tente algo dessa forma:

Código:

  DoCmd.SetWarnings False
             DoCmd.RunSQL "update tblprodutos set estoque_pro = estoque_pro + Forms![entrada de produtos]![Sfentrada].form![nfequantidade]" _
                & " where tblprodutos.Cod_Pro = Forms![entrada de produtos]![Sfentrada].form![cmbCodigoProduto]"
                        DoCmd.SetWarnings True
                            

Aqui, a rotina completa...

Código:

Private Sub btnSalvarEntradaProduto_Click()
Dim db1 As Database, rs1 As DAO.Recordset
Set db1 = CurrentDb
Set rs1 = db1.OpenRecordset("tblProdutos")

      If IsNull(Me.NfeNumero) Then
          MsgBox "Não existe Entrada de Produtos para ser Salvo.", vbCritical + vbOKOnly, "Sistema de Automação Comercial - Aviso."
              Exit Sub
                End If
 
    With rs1
  .AddNew
![Desc_Pro] = Forms![entrada de produtos]![Sfentrada]!nfeDescProduto
  ![unidmed_pro] = Forms![entrada de produtos]![Sfentrada]!nfeUnidMedida
    ![vlrcompra_pro] = Forms![entrada de produtos]![Sfentrada]!nfeVlrUnitario
      .Update
 
    End With
   
        DoCmd.SetWarnings False
            DoCmd.RunSQL "update tblprodutos set estoque_pro = estoque_pro + Forms![entrada de produtos]![Sfentrada].form![nfequantidade]" _
                & " where tblprodutos.Cod_Pro = Forms![entrada de produtos]![Sfentrada].form![cmbCodigoProduto]"
                        DoCmd.SetWarnings True
                           
                           
       
            DoCmd.Save
                MsgBox "Entrada de Produtos Salvo com Sucesso", vbInformation + vbOKOnly, "Sistema de Automação Comercial - Aviso."
                    DoCmd.GoToRecord , , acNewRec



End Sub

Samuel desculpe a invasão do seu tópico. Mas se precisar estou aqui para ajudar.

E ai Sílvio me amigo como está.
Vou te manda uma mensagem privada sobre um problema, assim que puder, leia.

Abraços.

Boa tarde Silvio.
Aproveitei aquele código que você me passou, e o sistema esta me pedido para fazer entrada de parâmetros..

Veja o código como ficou:

Código:

Private Sub btnSalvarEntradaProduto_Click()

Dim db1 As Database, rs1 As DAO.Recordset
Set db1 = CurrentDb
Set rs1 = db1.OpenRecordset("tblProdutos")

 If IsNull(Me.NfeNumero) Then
          MsgBox "Não existe Entrada de Produtos para ser Salvo.", vbCritical + vbOKOnly, "Sistema de Automação Comercial - Aviso."
              Exit Sub
                End If
               
    DoCmd.SetWarnings False
            DoCmd.RunSQL "update tblProdutos set Estoque_Pro = Estoque_Pro + Forms![Entrada de Produtos]![SfEntrada].form![nfeQuantidade]" _
                & " where tblProdutos.Cod_Pro = Forms![Entrada de Produtos]![SfEntrada].form![cmbCodigoProduto]"
                        DoCmd.SetWarnings True
 
                MsgBox "Entrada de Produtos Salvo com Sucesso", vbInformation + vbOKOnly, "Sistema de Automação Comercial - Aviso."
                    DoCmd.GoToRecord , , acNewRec
                   
End Sub

Bom dia Samuel...bom dia Cláudio....

Estive ausente, por alguns dias....

Qual tipo de parâmetro esta a pedir ?

Bom dia Silvio e Claudio

Eu estive sumido uns dias também, mas vamos a luta.
Veja o Print Screen da tela de pedido de parâmetros, desde ja agradeço pela atenção

E ai Silvio ou Claudio

Conseguiram ver o que esta errado no código?
Estou no aguardo.

Boa Noite Samuel,Silvio e Claudio

Samuel veja esse exemplo se atende a tua necessidade.


veja aqui

Bom dia

Ainda não consegui resolver este problema.
Alguém pode me passar um exemplo de código ou me ajudar a corrigir o meu?

Espero que sim.

Boa tarde

Conforme anexo segue o print Screen da tela onde estou testando um novo código para entrada de produtos no estoque, onde esta dando erro.

Deve faltar um anderscore no fim da primeira linha.

Cole aqui toda a instrução do CurrentDb.Execute

Boa tarde mestre JPaulo..

Ando sumido, muito obrigado pelo retorno. Segue abaixo o código.

Código:

Private Sub btnSalvarEntradaProduto_Click()

CurrentDb.Execute "UPDATE tblProdutos Set vlrCompra_Pro = " & Me.nfeVlrUnitario.Value & ", Estoque_Pro = [Estoque_Pro]+ " & nfeQuantidade & " "
& WHERE Cod_Pro = '" &cmbCodigoProduto "' ; "
End Sub

Ola;

Código:

CurrentDb.Execute "UPDATE tblProdutos Set vlrCompra_Pro = " & Me.nfeVlrUnitario.Value & ", Estoque_Pro = [Estoque_Pro]+ " & nfeQuantidade & "" _
& " WHERE Cod_Pro = '" & cmbCodigoProduto & "'"


JPaulo o sistema não esta reconhecendo este campo de Subformulário [ " & Me.nfeVlrUnitario.Value & "], veja o print screen da tela,

O Botão está no formulario ?

Se estiver tem de invocar todo o caminho;

vlrCompra_Pro = " & Forms!SeuFormulario!SeuSubformulario.nfeVlrUnitario.Value & "

JPaulo veja o print Screen do formulário e do erro que esta aparecendo agora, me parece que esta dando certo.

sfEntrada é mesmo um campo ou o nome de algum formulario ?

SfEntrada é o nome do Subformulário de entrada. Onde fornecemos os dados dos produtos para a entrada.

Mil desculpas, a instrução que lhe passei está errada,

Teste no modo correto,

vlrCompra_Pro = " & Forms!SeuFormulario!SeuSubformulario.Form!nfeVlrUnitario.Value & "

Boa noite JPaulo

Deu o mesmo erro, veja como ficou o código:

Código:

Private Sub btnSalvarEntradaProduto_Click()

CurrentDb.Execute "UPDATE tblProdutos Set vlrCompra_Pro = " & Forms!Entrada_de_Produtos!SfEntrada.Form!nfeVlrUnitario.Value & ", Estoque_Pro = [Estoque_Pro]+ " & nfeQuantidade & "" _
& " WHERE Cod_Pro = '" & cmbCodigoProduto & "'"
End Sub

Só vendo o seu banco ou parte dele.

A instrução está corretissima, provavelmente "SfEntrada", não é o nome do seu subform.

Bom dia JPaulo, me desculpe pelo trabalho, também estou achando muito estranho este erro se o código esta correto.
Segue em anexo parte do banco de dados para a sua analise.

Você está a querer fazer o impossivel, que é, depois de preenchido todo o subform, fazer um update à tabela Produtos.

Isso não funciona.

A instrução deve estar no evento VBA depois de atualizar, no seu campo "nfeVlrUnitario", para indo atualizando a tabela produtos.

Private Sub nfeVlrUnitario_AfterUpdate()
CurrentDb.Execute "UPDATE tblProdutos Set vlrCompra_Pro = " & CCur(Me.nfeVlrUnitario) & ", Estoque_Pro = Estoque_Pro + " & Val(Me.nfeQuantidade) & "" _
& " WHERE CodPro = " & Me.cmbCodigoProduto.Column(0)
End Sub


No botão apenas;

Private Sub btnSalvarEntradaProduto_Click()
DoCmd.RunCommand acCmdSaveRecord
End Sub

JPaulo deu outro erro, mas ficou diferente.
Veja o Print Screen em anexo.

Veja;

JPaulo por este tópico estar extenso demais vou finalizar ele e abrir outro com um titulo parecido, o código esta correto mas continua dando o mesmo erro, qualquer coisa vou fazer mais umas analises aqui, e se neão conseguir resolver conto com sua ajuda e dos colegas no próximo tópico.

Muito obrigado.

No banco que lhe enviei, não dá qualquer erro, no entanto vamos aguardar o seu retorno.

Tópico mantêm-se em aberto.

Boa noite JPAulo.

Ja tentei de tudo aqui, apaguei o código e digitei tudo de novo, copiei o banco de dados para outro computador e refiz tudo de novo,e continua dando o mesmo erro.

O banco de dados é o mesmo que te enviei.

O que pode ser mestre?

No form "Entrada_de_Produtos" do banco que lhe passei na msg 39, insira um produto, a quantidade e o vlaor unitario e veja o Update efetuado na tabela.

Bom dia JPaulo

É complicado este erro, mas veja o print screen das telas em anexo, e fiz o teste que você pediu não alterou nada no estoque.

Já entendi o erro;

É porque o valor, você introduz 18,75 e com virgula dá erro mesmo.

Para tratar esse erro e você continuar a introduzir com virgula, fazemos um Raplace;

Teste e retorne;

Private Sub nfeVlrUnitario_AfterUpdate()
CurrentDb.Execute "UPDATE tblProdutos Set vlrCompra_Pro = " & Replace(CCur(Me.nfeVlrUnitario), ",", ".") & ", Estoque_Pro = Estoque_Pro + " & Val(Me.nfeQuantidade) & "" _
& " WHERE CodPro = " & Me.cmbCodigoProduto.Column(0)
End Sub

Graças a DEUS, funcionou.

Muito Obrigado JPaulo e quem participou deste tópico.
É assim que vamos construir um mundo melhor, colaborando um com o outro.

Muito Obrigado.

Obrigado pelo retorno o forum agradece.