MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    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.]

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    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.]

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    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.]

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    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.]

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    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.

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    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.]

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    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.]

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    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.

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    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.]

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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

    Avelino João
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 257
    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.


    veja aqui


    .................................................................................
    Proaccess - Angola

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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



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

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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 & "'"


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

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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 & "


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

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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 ?




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

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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 & "


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

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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.


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

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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 5 vez(es)


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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


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

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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 30 vez(es)


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

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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.



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

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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.


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

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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



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

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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.


    .................................................................................
    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: Sex 09 Dez 2016, 13:30