[Resolvido]Ordem de compra tornar compra

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

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

Poste as partes envolvidas para uma melhor analise.

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.

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

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

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.

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.

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

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.