MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Qua 09 Out 2013, 20:11

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


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Qua 06 Nov 2013, 13:51

    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]


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Qui 07 Nov 2013, 11:53

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


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Seg 11 Nov 2013, 17:09

    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.


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3672
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Seg 11 Nov 2013, 17:57

    Grande Samuel...


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


    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3672
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Seg 11 Nov 2013, 19:09

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Ter 12 Nov 2013, 11:13

    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?


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3672
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Ter 12 Nov 2013, 11:28

    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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Ter 12 Nov 2013, 11:55

    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


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3672
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Ter 12 Nov 2013, 11:59

    Veja o anexo...frm entrada de produtos.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Ter 12 Nov 2013, 17:40

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


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1402
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado em Ter 12 Nov 2013, 18:33

    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.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Ter 12 Nov 2013, 19:04

    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.


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3672
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Ter 12 Nov 2013, 19:21

    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 ).


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Ter 12 Nov 2013, 21:07

    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.


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3672
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Ter 12 Nov 2013, 23:02

    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


    Última edição por Silvio em Ter 12 Nov 2013, 23:03, editado 1 vez(es) (Razão : Adição de código)


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1402
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado em Ter 12 Nov 2013, 23:45

    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.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Dom 17 Nov 2013, 18:23

    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


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3672
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Seg 18 Nov 2013, 09:52

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

    Estive ausente, por alguns dias....

    Qual tipo de parâmetro esta a pedir ?


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Seg 18 Nov 2013, 13:06

    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
    Anexos
    Entrada_Paramêtros_Erro.pdf
    Você não tem permissão para fazer download dos arquivos anexados.
    (523 Kb) Baixado 8 vez(es)


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Seg 18 Nov 2013, 19:02

    E ai Silvio ou Claudio

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


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    Avelino João
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 267
    Registrado : 10/03/2012

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

    Mensagem  Avelino João em Seg 18 Nov 2013, 20:30

    Boa Noite Samuel,Silvio e Claudio

    Samuel veja esse exemplo se atende a tua necessidade.


    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Proaccess - Angola
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Qua 20 Nov 2013, 10:56

    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.


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Qua 20 Nov 2013, 15:23

    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.
    Anexos
    Erro_entrada_estoque.docx
    Você não tem permissão para fazer download dos arquivos anexados.
    (245 Kb) Baixado 5 vez(es)


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Qua 20 Nov 2013, 15:36

    Deve faltar um anderscore no fim da primeira linha.

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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Qua 20 Nov 2013, 15:40

    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


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Qua 20 Nov 2013, 16:11

    Ola;

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Qua 20 Nov 2013, 16:39

    JPaulo o sistema não esta reconhecendo este campo de Subformulário [ " & Me.nfeVlrUnitario.Value & "], veja o print screen da tela,
    Anexos
    Erro_Campo_Subformulario_Entrada.docx
    Você não tem permissão para fazer download dos arquivos anexados.
    (211 Kb) Baixado 5 vez(es)


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Qua 20 Nov 2013, 17:02

    O Botão está no formulario ?

    Se estiver tem de invocar todo o caminho;

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Qua 20 Nov 2013, 17:37

    JPaulo veja o print Screen do formulário e do erro que esta aparecendo agora, me parece que esta dando certo.
    Anexos
    Formulario_de_entrada.docx
    Você não tem permissão para fazer download dos arquivos anexados.
    (411 Kb) Baixado 6 vez(es)


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Qua 20 Nov 2013, 17:56

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




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Qua 20 Nov 2013, 18:03

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


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Qua 20 Nov 2013, 22:34

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

    Teste no modo correto,

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Qua 20 Nov 2013, 23:03

    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


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Qui 21 Nov 2013, 10:02

    Só vendo o seu banco ou parte dele.

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Qui 21 Nov 2013, 11:14

    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.
    Anexos
    Siscom.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (555 Kb) Baixado 6 vez(es)


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Qui 21 Nov 2013, 11:39

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Qui 21 Nov 2013, 11:56

    JPaulo deu outro erro, mas ficou diferente.
    Veja o Print Screen em anexo.
    Anexos
    Erro_3144_Entrada.docx
    Você não tem permissão para fazer download dos arquivos anexados.
    (196 Kb) Baixado 4 vez(es)


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Qui 21 Nov 2013, 12:10

    Veja;
    Anexos
    Siscom_UPDATE.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (774 Kb) Baixado 42 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Qui 21 Nov 2013, 12:51

    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.


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Qui 21 Nov 2013, 13:15

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

    Tópico mantêm-se em aberto.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Qui 21 Nov 2013, 22:16

    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?


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Sex 22 Nov 2013, 09:33

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Sex 22 Nov 2013, 11:13

    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.
    Anexos
    Erro_3144_Entrada.docx
    Você não tem permissão para fazer download dos arquivos anexados.
    (339 Kb) Baixado 2 vez(es)


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Sex 22 Nov 2013, 11:43

    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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Sex 22 Nov 2013, 12:02

    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.


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Sex 22 Nov 2013, 12:41

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Ter 21 Nov 2017, 04:33