Prezados, boa noite.
Meu Bd tem um formulário que mostra as vendas de um determinado cliente (filtrado pelo telefone pra não dar erro de confundir pelo nome).
Resumindo: Preciso pegar a última venda feita para este cliente a realizá-la novamente mas na hora de fazer o loop pelo formulário de produtos ele não faz, apenas copia o primeiro registro.
Preciso de ajuda com o código abaixo para ele fazer o Loop percorrar todo o form de produtos.
Meu Bd tem um formulário que mostra as vendas de um determinado cliente (filtrado pelo telefone pra não dar erro de confundir pelo nome).
Resumindo: Preciso pegar a última venda feita para este cliente a realizá-la novamente mas na hora de fazer o loop pelo formulário de produtos ele não faz, apenas copia o primeiro registro.
Preciso de ajuda com o código abaixo para ele fazer o Loop percorrar todo o form de produtos.
- Código:
Dim rs As DAO.Recordset
Dim tbl As DAO.Recordset
'Abre a tabela que receberá os dados
Set tbl = CurrentDb.OpenRecordset("DetVendas")
'carrega os dados do subformulário
Set rs = Forms!Det_Sub_Duplica.Form.RecordsetClone
'Percorre os registros do subformulário um a um
rs.MoveFirst 'Informo para comecar do inicio
Do While Not rs.EOF
'Copia os dados do subformulário para a tabela
tbl.AddNew
tbl!ID_Vendas = Forms!Vendas!IDVendas
'Forms!Vendas!DetVendas_1!ID_Vendas = Forms!Det_Sub_Duplica!ID_Vendas
tbl!ID_Produtos = Forms!Det_Sub_Duplica!ID_Produtos
'tbl!txt_produtos = Forms!Det_Sub_Duplica!txt_produtos
tbl!txt_descricao = Forms!Det_Sub_Duplica!txt_descricao
tbl!QtdeSaida = Forms!Det_Sub_Duplica!QtdeSaida
tbl!preco_vendido = Forms!Det_Sub_Duplica!preco_vendido
tbl!Obs = Forms!Det_Sub_Duplica!Obs
tbl!ID_pao = Forms!Det_Sub_Duplica!ID_pao
tbl!sem_ovo = Forms!Det_Sub_Duplica!sem_ovo
tbl!sem_mussarela = Forms!Det_Sub_Duplica!sem_mussarela
tbl.Update
'vai para o próximo registro do subformulário
rs.MoveNext
Loop
tbl.Close
rs.Close
Set tbl = Nothing
Set rs = Nothing
Set db = Nothing
'MsgBox "Dados copiados...", vbInformation, "Msg"
''*******************************************
Forms!Vendas!DetVendas_1.Form.Requery