[Resolvido]Alimentar um sub-formulário folha de dados com informações de uma tabela via código vba

Olá amigos, espero que possam me ajudar novamente.

Preciso coletar os dados de uma tabela e adiciona-los em um sub-formulário do tipo folha de dados. Essas informações coletadas da tabela terão um critério, que está em um campo presente no formulário. E essas informações coletadas baseadas no critério serão lançadas no sub-formulário presente dentro deste formulário.

Preciso fazer isso pois quero criar um formulário para visualização e para edição, de forma que os valores sejam salvos na tabela apenas após a confirmação do usuário (via botão de salvamento). Nessa parte não tenho dificuldade.

Desde já agradeço a atenção de todos!

Boa noite amigo  basta a você fazer uma relação de campos dentro do sobForm, ele vai puxar todas as informações desejadas.
Veja, vinculei dos campos iguais ele vai puxar o número do código que está dentro do subForm como o nome IdUsuario

Boa noite, Crysostomo.

No meu caso essa vinculação não da certo (acredito eu). Pois esse sub-formulário não está ligado diretamente a tabela que contem os dados. O que eu preciso é apenas que meu sub-formulário exiba os valores de uma das minhas tabelas, mas buscando apenas os valores que estão relacionados a um campo que está dentro do formulário.

E o fato de ter que ser dessa maneira, é por eu não querer que os valores sejam atualizados assim que eu editar os campos, só quero que eles sejam alterados após eu clicar em um botão e assim eu terei um código que irá realizar as atualizações.

No caso  deixa ele bloqueado e após clicar no botão  sub desbloqueia e o usuário pode edita-lo.
De outro pode fazer um update que manda para a tabela e as informações aparece uma ListBox.

Sgsamuka escreveu:esse sub-formulário não está ligado diretamente a tabela que contem os dados

O que você quer não dará certo. Em Access é necessário que o subformulário esteja vinculado a uma tabela para que assim o programa saiba quantas linhas mostrar etc.

Você pode resolver isso usando tabelas temporárias. Tabelas que serviriam apenas para amostragem, não tendo vínculo com a tabela original. E após o clique do botão então ocorreria a sincronização dos dados da tabela de amostra com a tabela original.

DamascenoJr., como faço isso?

Samuel  Isso que falei mensagem nº 2.

Senhores, infelizmente não consegui entender muito bem o que me instruíram, creio que preciso de um pouco mais de conhecimento.

A solução que eu adotei foi criar uma tabela que recebe os valores que quero visualizar, assim posso edita-los tranquilamente e só mandar para a tabela original após clicar no botão de salvar.

Estou usando o seguinte código para buscar os valores que quero.
Dim strSQL As String

DoCmd.SetWarnings (True)
strSQL = "INSERT INTO BDTempCapex ( Cod_Capex, Num_Doc_Capex, Cod_EAP_Capex, Cod_SubConta_Capex, Cod_SubConta_Cliente_Capex, Desc_Inf_Capex, Complemento_Inf_Capex, Unid_Med_Inf_Capex, Quant_Inf_Capex, Preco_Unit_Inf_Capex, Preco_Tot_Inf_Capex, Ref_Inf_Capex, Obs_Inf_Capex, Grupo_Capex )" & _
"SELECT BDCapex.Cod_Capex, BDCapex.Num_Doc_Capex, BDCapex.Cod_EAP_Capex, BDCapex.Cod_SubConta_Capex, BDCapex.Cod_SubConta_Cliente_Capex, BDCapex.Desc_Inf_Capex, BDCapex.Complemento_Inf_Capex, BDCapex.Unid_Med_Inf_Capex, BDCapex.Quant_Inf_Capex, BDCapex.Preco_Unit_Inf_Capex, BDCapex.Preco_Tot_Inf_Capex, BDCapex.Ref_Inf_Capex, BDCapex.Obs_Inf_Capex, BDCapex.Grupo_Capex " & _
"FROM BDCapex " & _
"WHERE BDCapex.Cod_Capex = " & Me.Edit_Cod_Est_Capex & ""
DoCmd.SetWarnings (False)
DoCmd.RunSQL strSQL

E ao salvar ou sair do formulário de edição, esses valores adicionados a nova tabela são excluídos via código, mantendo assim na tabela apenas os valores da visualização atual.

Suceso

A solução que eu adotei foi criar uma tabela que recebe os valores que quero visualizar, assim posso edita-los tranquilamente e só mandar para a tabela original após clicar no botão de salvar.

Pelo visto entendeu perfeitamente.

Parabéns pelo avanço.

Damasceno, me interesso nessa solução, poderia manda um exemplo com comentários?