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]Ordem de compra tornar compra

    Compartilhe

    thiagonsilvaa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 12/01/2017

    [Resolvido]Ordem de compra tornar compra

    Mensagem  thiagonsilvaa em Sab 16 Set 2017, 16:29

    Boa tarde !!
    Gostaria de uma ajuda dos amigos aqui do fórum. Estou tentando adaptar um código que encontrei aqui no fórum de acordo com minha necessidade que é tornar uma ordem de compra uma compra em si.
    O código seria esse:
    Código:
    Dim db As Database, rs1, rs2, rs3 As DAO.Recordset

        If MsgBox("Deseja gerar compra?", vbYesNo + vbQuestion, Me.Caption) = vbYes Then
        
            Set db = CurrentDb
            
            Set rs1 = db.OpenRecordset("SELECT * FROM Tbl_Compras") ' abre a tabela pedido, inserindo os campos.
                
            With rs1
            
            .AddNew
            ![CodSolicitacao] = Me.IdOrdemCompra
            ![Data] = Me.txtdataenvio
            ![Cliente] = Me.Destino
            ![Fornecedor] = Me.txtfornecedor
            .Update
            
            End With
          
            Set rs2 = db.OpenRecordset("SELECT * FROM Tbl_DetalhesOrdemCompra WHERE IdOrdemCompra =" & Me.IdOrdemCompra)  ' aqui os campos que geram o subformulario
            Set rs3 = db.OpenRecordset("SELECT * FROM Tbl_DetalhesCompra WHERE CodCompra =" & rs1!CodCompra & "") ' é exportado para cá.
            
          
            While (Not rs2.EOF)
                With rs3
                    .AddNew '   ![campo subformulario]= rs2![campotabela]
                    ![produto] = rs2![produto]
                    ![Quantidade] = rs2![Quantidade]
                    ![CodCompra] = rs1![CodCompra]
                    .Update
                    rs2.MoveNext
                End With
            Wend
            
            rs1.Close
            Set rs1 = Nothing
            
            rs2.Close
            Set rs2 = Nothing
            
            rs3.Close
            Set rs3 = Nothing
            
            Set db = Nothing
            
            DoCmd.OpenForm "FormCompras", acNormal, , "CodSolicitacao = " & Me.IdOrdemCompra & ""
            MsgBox "Pedido Gerado !", vbInformation, Me.Caption
            
            DoCmd.Close acForm, "FormOrdemdeCompra"
          Else
          
          DoCmd.CancelEvent
          
        End If
    End Sub
    Quando eu preencho os dados da ordem de compra e insiro os produtos, quando clico no botão aparece a mensagem "Nenhum registro atual".
    Gostaria de ajuda.
    Grato desde já.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Ordem de compra tornar compra

    Mensagem  Silvio em Seg 18 Set 2017, 12:59

    Bom dia, conheço bem esse código e sei que está a funfar.

    Poste as partes envolvidas para uma melhor analise.


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

    thiagonsilvaa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 12/01/2017

    Ordem de compra tornar compra

    Mensagem  thiagonsilvaa em Seg 18 Set 2017, 13:27

    Bom dia Silvio !

    Bom, conforme solicitado segue o BD para análise.
    Os envolvidos são: Tbl_Compras, Tbl_DetalhesCompra, Tbl_OrdemdeCompra, Tbl_DetalhesOrdemCompra, FormCompra e FormOrdemdeCompra(o código mencionado está no botão "tornar compra")
    O estranho é que hora clico no botão me dá a mensagem "Nenhum registro atual", e hora "funciona" mas os produtos que são inseridos são sempre os mesmos.
    Fico no aguardo de alguma posição.
    Gratidão.
    Abraços.
    Anexos
    System Atual.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (581 Kb) Baixado 6 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Ordem de compra tornar compra

    Mensagem  Silvio em Seg 18 Set 2017, 14:07

    Rapaz....que salada de frutas heim ???

    Vou te mandar um exemplo para você estudar e comparar com o que você desenvolveu


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

    thiagonsilvaa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 12/01/2017

    Ordem de compra tornar compra

    Mensagem  thiagonsilvaa em Seg 18 Set 2017, 14:19

    Especifique o "Rapaz....que salada de frutas heim ???", em relação ao BD todo ou as partes? Dê-me mais detalhes para que possa compreender. Dicas são sempre bem vindas !!!

    Estou no aguardo.
    Abraços.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Ordem de compra tornar compra

    Mensagem  Silvio em Seg 18 Set 2017, 14:46

    O código que postou com duvidas, tem origem nesse formulário em anexo.

    Tanto o orçamento como o pedido.   De uma estudada neles.

    Note bem que os sub formulários são contínuos, veja bem as diferenças.

    Não se usa em campos de tabelas:
    Custo_Incorporação - isso pode e vai dar dor de cabeça lá na frente. O correto: CustoIncorporacao.

    Código= procure sempre identificar a chave primária pelo nome da tabela IdDetalhesCompras, facilita muito a vida do programador em qualquer situação.

    Total, valor, data etc são palavras reservadas ao Access, evitar de usar.
    Anexos
    estudos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (687 Kb) Baixado 6 vez(es)


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

    thiagonsilvaa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 12/01/2017

    Ordem de compra tornar compra

    Mensagem  thiagonsilvaa em Seg 18 Set 2017, 15:09

    Sobre os forms contínuos, não poderia usar o subform simples como no bd que postei ? Ou necessariamente tem que ser contínuo ? Por que ?

    Vou alterar os campos nas tabelas para facilitar.
    Caso haja mais pitacos, mencione, por favor !

    Estudarei com calma o exemplo mencionado, acredito que ainda hoje posto um retorno aqui, na parte da noite.
    Gratidão pelas dicas !
    Abraços !!!

    thiagonsilvaa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 12/01/2017

    Ordem de compra tornar compra

    Mensagem  thiagonsilvaa em Ter 19 Set 2017, 05:33

    Bom dia meu caro !
    Consegui resolver o problema analisando e comparando os envolvidos.
    Gratidão !!!
    Irei abrir um outro tópico com um outro problema que está acontecendo no projeto.

      Data/hora atual: Ter 21 Nov 2017, 17:36