Função Update para atualizar registro de outra tabela

Saudações, amigos.

Tenho uma dúvida que acredito ser bem específica e não consegui encontrar uma solução pesquisando.

Vou tentar explicar:

1. Tenho um formulário (FormLiquidNLD1 e FormLiquidNLD2) baseado em uma consulta (digamos que lista "compras");
2. Nesse formulário há um relatório filtrado como subformulário (RelNotasFiscais) que lista as notas fiscais referentes a essas "compras";
3. Essas "compras" precisam ter um número de identificação, então esse formulário tem um campo aberto para preencher este número;
4. Tem um relatório (RelNLD) que lista todas as "compras" sem número de identificação;
5. Ao preencher o número, uso um código no VBA para atualizar o registro da Tabela de notas fiscais (TabNotasFiscais) de acordo com as notas fiscais dessas "compras".

Enfim, estou usando o seguinte código:

Código:

DoCmd.RunSQL "UPDATE MinhaTabela SET MinhaTabela.MeuCampo = Forms!MeuForm!Campo WHERE MinhaTabela.MeuCampo = [Forms]![MeuForm]![MeuSubForm]![CampoNotaFiscal]"

Quando só há uma nota fiscal para a "compra", funciona ok.

Porém, quando há mais de uma nota fiscal, este código só está preenchendo o campo da primeira nota fiscal do subformulário na tabela.

Onde estaria o erro do meu código?

Se não consegui expressar bem, segue uma cópia do meu arquivo.

Por segurança, limpei o banco de dados e joguei uns registros como exemplo, e o nome dos formulários e relatórios seguem acima.

Desde já obrigado a todos!

Saudações, amigos.

Depois de muitos testes e muitas pesquisas consegui resolver meu problema.

Na verdade, refiz minha consulta que originava o relatório (e por conseguinte o formulário), e depois usei um loop para atualizar os registros. Não sei se é o modo mais correto, mas tá funcionando.

Usei o Do...Loop Until pra não ficar num loop infinito e o código ficou mais ou menos assim:

Código:

Do
DoCmd.RunSQL "UPDATE lalalalala SET lalalalala WHERE lalalalala"
DoCmd.Requery (MeuForm) 'Pra atualizar o formulário e não girar um loop infinito
Loop Until IsNull([Forms]![MeuForm]![MeuSubForm]![MeuCampo])

Atualiza todos os registros de boa, mas no último loop, quando o formulário fica em branco por não existir mais, dá uma mensagem de erro "Você inseriu uma expressão que contém uma referência inválida à propriedade Form/Report".

Alguma dica para sumir com esse erro? Ou algum dos códigos que são falhos?

Desde já agradeço.

Boa noite,
Será
While IsNull([Forms]![MeuForm]![MeuSubForm]![MeuCampo])
DoCmd.RunSQL "UPDATE lalalalala SET lalalalala WHERE lalalalala"
DoCmd.Requery (MeuForm) 'Pra atualizar o formulário e não girar um loop infinito
End While