[Resolvido]Atualizar todos registros de um subformulário.

Boa noite amigos.
A uns dias atráz, fiz um post para saber como atualizar um determinado campo em uma tabela atravez de um formulário que outra fonte de dados. A solução o mestre criquio me trouxe e ficou assim:

Me.NomeCampo3DoForm & "' WHERE Código=" & Me.Código & ""

Esse código funciona perfeito para atualizar um registro específico.
Mas agora me deparei com seguinte situação:
Preciso atualizar um conjunto de registros de uma única vez, pois esses registros fazem parte de um subformulário.
Nesse caso, como proceder?
Grato

Olá, fale mais sobre por gentileza. O que tem de comum entre os registros? Fale sobre eles.

Tenho um form e um subform. O form principal é relacionado com o subform, pois bem, para cada registro no form principal tenho vários outros registros no subform. Dái, quando preciso incluir mais um registro no subform, o código que vc me passou (Me.NomeCampo3DoForm & "' WHERE Código=" & Me.Código & "") é execultado e atualiza aquele determinado registro na tabela. Agora o que preciso é de atualizar todos os registros do subform relacionados ao registro do form principal principal.
Se não tiver ficado claro, exemplifico uma situação.
Grato

Sim, faça isso. Não me lembro do que falei da outra vez.

Tenho um form para emprestimo de objetos. Nesse form, tenho o nome do usuário. No mesmo form tenho o subfor onde escolho os objetos que serão emprestados. A cada objeto emprestado o código que vc me passou atualiza um campo boleano para "-1" na tabela de objetos. Issó é perfeito. Assim, para um único usuário, posso ter muitos objetos emprestados.
Mas na hora que vou receber os objetos, preciso de algo que atualize todos os objetos no campo boleano para "0". Pois determinado usuário levou 5 objetos, e está devolvendo. É nessa hora que preciso atualizar todos objetos de uma única vez.

Faltou exemplificar em termos práticos. Por exemplo,desenhando o formulário ou algo assim. Pois ainda estou sem saber quais campos são comuns. Por exemplo deve ter o código do cliente como campo comum entre eles. Tem mais algum?

Vamos lá.
Tenho as seguintes tabelas: Usuarios, Emprestimos, DetalheEmprestimos e Objetos.
Relação: Usuarios para Emprestimos, Emprestimos para detalhesEmprestimos, DetalhesEmprestimos para Objetos.
Tenho Form pai com origem Emprestimos, e um subform com origem DetalhesEmprestimos.
Assim quando vou fazer um emprestimos, escolho o objeto no subform. O codigo q vc me passou atualiza o campo boleano para verdadeiro. Assim, cada obejeto que eu selecionar na cbo, no evento após atualizar, seu código entra em ação.

Agora quando vou receber os objetos daquele determinado emprestimo, seria interessante algo que de uma única vez atualizace o campo boleano para False em todos os objetos do emprestimo atual.

Ainda está meio obscuro o funcionamento na prática, mas a temática é a mesma. Você vai usar um campo comum que tenha em todas as linhas como critério de atualização.

A questão é que o código atualiza o campo boleano no mesmo registro do objeto e para cada emprestimo poderá haver vários objetos. Não consigo aplicar a atualização para todos os objetos...

Está meio complicado de entender bem sem ver in loco.

Veja o seguinte:
Cada emprestimo pode haver muitos objetos. Para fins de filtragem, utilizo um campo boleano na tabela emprestimo, que informa se o objeto está ou não emprestado. Em cada emprestimo ao selecionar o objeto no evento após atualizar da cbo (pois utilizo uma cbo para selecionar os objetos), um código execulta a atualização na tabela Objetos no campo boleano.
Dessa forma, os objetos emprestados ficaram marcados como emprestados.

Mas quando vou receber os objetos de um determinado emprestimo, gostaria que todos os objetos focem atualizados no campo boleano de um só vez. Tipo através de um botão.
Pois se para emprestar, eu atualizo individualmete o objeto. Mas para receber um emprestimo que tem vários objetos, preciso que um botão atualize todos os objetos daquele empresmo...

Tente colocar apenas isso:

Me.SeuControleBoolean = 0

Não deu certo, ja que o subformuláro não tem origem de dados na tabela objetos. E sim na tabela DetalhesEmprestimo que por sua vez se relaciona com a tabela emprestimos. Bem agora vou dormir, ao amanhecer, volto aqui. Muito obrigado criquio pela ajuda prestada. Se por acaso vc postar mais algum método hoje, quando eu acordar vejo e testo. Muito obrigado mesmo!!

Olha, acho que ainda não entendi bem a estrutura do aplicativo, mas não estaria faltando aí uma tabela de objetos? Pensei na seguinte estrutura: uma tabela tblObjetos com o campo Sim/Não. Ao emprestar, marca Sim. Ao desemprestar, marca Não. Então bastaria você correr a instrução tendo o campo código do item como critério. Por exemplo:

| CodUsuário | CodItem | Descrição     | DataEmpréstimo |
| 171        | 14      | Access        | 15/07/2011     |
| 171        | 23      | VBA fácil     | 15/07/2011     |
| 171        | 37      | SQL no Access | 15/07/2011     |

O formulário contínuo acima tem a lista de livros emprestados. Essa lista vem da tabela tblDetEmpréstimo que armazena os detalhes do empréstimo. Você tem a tabela tblLivros. Essa tabela tblLivros tem um campo Sim/Não. Quando você busca o livro para emprestar, marca o valor -1 para esse livro na tabela tblLivros. Quando você der baixa no empréstimo, marca 0 nessa tabela. Uma boa ideia seria exibir esses detalhes em uma listbox ao invés de um formulário contínuo. Dessa forma, pode usar aquele código que lhe passei hoje, aonde estava faltando as aspas simples, usando a coluna do CodItem como critério.

Oi amigos,

O JPaulo escreveu uma solução em certo tópico passado, e acredito ser o mesmo princípio para este caso, veja:

[Resolvido]Apagar dados de subformulário

Ao invés de usar a instrução DELETE, use UPDATE.

Dê uma olhada.

Amigos, não consegui. Estou postando aqui o bd. Como está sendo feito no access 2010, pode ser que ocorra algum erro ao execultar no 2007, contudo tive o cuidado de não usar as novas funcionalidade do 2010. Acho que funcionará sem problemas no 2007.
Grato

http://dl.dropbox.com/u/31669146/Help/MRD.rar

Pressione o botão Receber todos Ítens e veja o resultado.

É só o caminho das pedras, o resto você pode melhorar.

http://www.speedyshare.com/files/29616213/MRD_OLD.rar

Muito obrigado JPaulo.
Vou tentar adaptar a minha necessidade, assim que tiver uma posição, posto aqui.
Grato.

Amigos, consegui resolver. Criei um botão e pus o seguinte código:

strSql = "UPDATE tbLivros SET Emprestado=False WHERE RegID In (Select ItemID From tbDetalheEmprestimo Where RegID=" & RegID & ")"
DoCmd.RunSQL strSql
strSql = "Delete From tbDetalheEmprestimo Where RegID=" & RegID
DoCmd.RunSQL strSql
DoCmd.SetWarnings True
tbLivrossubformulário.Requery

Muito obrigado ao amigo Criquio, Dilson e JPaulo pois sem ajuda deles, não teria consiguido chegar a este resultado.