ola pessoal eu sei que sou novo nesse forum mas estou com uma dificuldade de resolver o meu problema segue codigo Private Sub cmd_comfirma_Click() If MsgBox("Você confirma esta venda?", vbQuestion + vbYesNo, "Venda Concluida com sucesso!!!") = vbYes Then Confirmado.Value = True '''''''''Atualização - baixa no estoque dos produtos vendidos'''''''''''''''''''''''' DoCmd.RunCommand acCmdSaveRecord Dim wk As DAO.Workspace Dim db As DAO.Database Dim rstEstoque As DAO.Recordset Dim rstSubFrm As DAO.Recordset Set wk = DBEngine.Workspaces(0) Set db = CurrentDb Set rstEstoque = db.OpenRecordset("Produto") Set rstSubFrm = Me.ItemVenda.Form.RecordsetClone 'Informa qual indice será utilzado pelo metodo seek no recordset de Estoque rstEstoque.Index = "PrimaryKey" 'Posiciona o ponteiro do recordset do subfrm no primeiro registro rstSubFrm.MoveFirst 'Inicia um loop no recordset do subfrm Do While Not rstSubFrm.EOF 'Inicia a busca no recordset estoque usando como argumento de busca o conteudo do campo CodPeca do subfrm rstEstoque.Seek "=", rstSubFrm!CodProduto 'Se idêntico If rstEstoque.NoMatch = False Then rstEstoque.Edit 'Coloca o recordset em modo de edicao rstEstoque("Estoque") = rstEstoque("Estoque") - rstSubFrm("Quantia") rstEstoque.Update 'Grava a alteracao efetuada! End If 'avanca para o proximo registro do subfrm rstSubFrm.MoveNext Loop 'Encerra as variaveis rstSubFrm.Close rstEstoque.Close db.Close wk.Close 'Informa que foi dada baixa no estoque e imprime cupom de venda MsgBox "Baixa do estoque. " _ , vbInformation, "Realizada Com Sucesso!!!" Else End If End Sub meu problema esta onde esta de negrito , quando vendo e primeira vez beleza da baixa normal mas qaundo vendo a segunda clicando no botao nova venda não da baixa e da erro 3420 objeto não e valido ou não esta definido. se alguém tiver disposto e me ajudar e vou agredecer muito. muito obrigado a todos..