Percorrer registros do subform para atualizar.

Galera boa noite.

Tenho um form "Orçamento" e um subForm "Orçamento_Sub.

No subform quando não existe um produto, o solicitante cadastra o mesmo em outro form automaticamente, sendo que ao cadastrar um novo produto, o sistema marca este como "Novo" em um campo sim/não.

Em outra estação o departamento de compras, enxerga este produto como "Novo" e faz a cotação do preço dele, juntamento com os dados do fornecedor. Em seguida grava as informações e o sistema desmarca este produto como "Novo" na opção sim/não.

Até aqui tudo bem.

O solicitante irá abrir o Orçamento dele e verificar que o(s) produto(s) dele já foram cotados. Pois só assim ele poderá dar continuidade ao orçamento.

Só que eu criei um botão "Atualizar Preços" para que o sistema pegue todos os dados desta combobox "Produto" e repasse aos demais campos do subform.

Ai é que está o rpoblemas, não consigo fazer ele percorrer todos os registros deste subforma para atualizar todos.

Já tentei de tudo. Requery, Recalc e outros bichos.

Obrigado.

Bom dia.

Alguém se habilita?

Obrigado.

Você pode fazer por meio de uma consulta atualização

ou

por meio do DLookup

Ex.: NOME_CREDOR = DLookup("[CREDOR]", "Tbl_ContaPagar", "[NOME_CREDOR] = [CREDOR.Column(2)]")

Claudio

Com esta comando atualizo dados num subform "Ao fazer click" num botão

Atenção: Mas tenho o botão de atualizar no subform.....

Dim rst As Recordset
Set rst = Me.Recordset
rst.MoveFirst
Do While Not rst.EOF
With rst
.Edit

´Aqui o que quer atualizar

.Update
.MoveNext
End With
Loop
Set rst = Nothing

Boa noite Assis.

Certo eu fiz com o botão no subform e funciona perfeito, mas o sub têm que contínuo.

O problema é que meu sobform é folha de dados, não teria como criar um botão nele.

Tentei desta forma com o botão do Form principal:

Código:



Dim rst As Recordset
Set rst = Me.Recordset
rst.MoveFirst
Do While Not rst.EOF
With rst
.Edit

'Aqui o que quer atualizar
ORÇAMENTOS_SUB!Preço = ORÇAMENTOS_SUB!Produto.Column(3)
ORÇAMENTOS_SUB!Txt_Fornecedor = ORÇAMENTOS_SUB!Produto.Column(4)
ORÇAMENTOS_SUB!Fornecedor_Email = ORÇAMENTOS_SUB!Produto.Column(6)
ORÇAMENTOS_SUB!Data_Preço = ORÇAMENTOS_SUB!Produto.Column(7)
ORÇAMENTOS_SUB!Produto_Novo = ORÇAMENTOS_SUB!Produto.Column(8)

.Update
.MoveNext
End With
Loop
Set rst = Nothing



Só que desta forma ele não faz o loop, só atualiza o primeiro registro do subform.
Obrigado pela ajuda.

Bom dia Assis.
O ideal seria colocar este código no subform folha de dados em um campo qualquer, e escolher o evento ao receber foco, dai dispara o código.

Só precisaria saber como simular o clique do mouse para disparar o evento, pois só com o SetFocus ele não dispara.

Claudio o Mestre Piloto já teve um caso como esse.

http://maximoaccess.forumeiros.com/t2369-resolvidoclick-em-campo-atraves-do-vba

Já havia visto este tópico.

Desculpe, mas não existe a opção para simular o clique do mouse, ou fazer o código funcionar, somente se eu clicar na caixa de texto que ele executa.

Tá brabo....

Bom dia.
Alguém se habilita?
Obrigado