[Resolvido]Formulário Com três tabelas.

Se as tabelas estiverem devidamente estruturadas e relacionadas, basta adicionar o subformulário buscando a tabela como origem. E para atualizar esse subformulário ao fechar um outro, basta colocar no evento "Ao sair" desse outro:

Forms!NomeDoFormulário!NomeDoControleSubForm.Form.SourceObject = "NomeDoSubFormulário"

Aonde está "NomeDoControleSubForm", é o nome do controle que carrega esse subformulário dentro do formulário principal e aonde está "NomeDoSubFormulário" é o nome do formulário que está sendo carregado dentro desse controle anteriormente mencionado.

Olá, obrigado pela resposta.

Onde você diz "basta adicionar o subformulário buscando a tabela como origem", é exatamente ai que está meu problema.

queria que dados de três tabelas estivessem no subformulário, porem de forma alternada.

Exemplo: Quando eu insiro um novo Tampo é criada cria uma linha com esses dados no subformulário. Se depois eu inserir uma Cuba quero que no mesmo subformulário abaixo do tampo seja criada uma nova linha com os dados da Cuba.

A questão de atualizar ao sair ficou bom.

Obrigado!

Você quer misturar linhas de mais de uma tabela em um único subformulário? Ou mudar a origem do subformulário para outra tabela? A segunda hipótese pode ser feita, mas a primeira já complica porque um subformulário só pode ter uma origem por vez.

Seria a primeira opção. Existe alguma possibilidade?

Pensei em algo como uma consulta com as três mas não deu certo.

Olá criquio,

Pensei em outra possibilidade mas também não sei se é possível.

Se eu colocasse os três subformulários um abaixo do outro seria possível a medida que os dados fossem sendo inseridos ele fosse expandindo?

Sei que é possível em relatórios. Mas em formulários não sei.

Você pode utilizar a quantidade de registros para ajustar a altura do subformulário e depois utilizar a posição + altura de cada subformulário para posicionar o subformulário de baixo em relação ao de cima:

Dim rs1 As Recordset, rs2 As Recordset, rs3 As Recordset

Set rs1 = Me.NomeSubForm1.Form.RecordsetClone
Set rs2 = Me.NomeSubForm2.Form.RecordsetClone
Set rs3 = Me.NomeSubForm3.Form.RecordsetClone

Me.SubForm1.Height = rs1.RecordCount * 300
Me.SubForm2.Height = rs2.RecordCount * 300
Me.SubForm3.Height = rs3.RecordCount * 300

Me.SubForm2.Top = Me.SubForm1.Top + Me.SubForm1.Height
Me.SubForm3.Top = Me.SubForm2.Top + Me.SubForm2.Height

rs1.Close
Set rs1 = Nothing

rs2.Close
Set rs2 = Nothing

rs3.Close
Set rs3 = Nothing

Se necessário, condicione a ampliar a altura deles apenas até atingir uma certa quantidade de linhas e então fixar essa altura máxima. Nesse caso, como pode ser que tenha números diferentes de registros em cada subform, podes somar a quantidade de registros dos três e multiplicar pelos 300 ou outro valor que melhor atender para definir essa como a altura máxima.

Olá criquio,

Não funcionou. provavelmente fiz algo errado.

Tentei no evento ao atualizar do formulário principal. Porém não alterava.

Depois tentei através de um botão no comando ao clickar. Neste caso quando o subformulario não tinha valor ele reduzia o tamanho a zero, porém ao adicionar e clickar novamente o tamanho continuava zerado.

Só vendo para ter ideia. Veja se esse exemplo ajuda. Ele usa o mesmo esquema, com um código mais curto que inclui o RecordetClone direto no Form do subformulário, não precisando, assim, declarar as variáveis. Nesse caso, seu código ficaria assim:

Me.SubForm1.Height = Me.SubForm1.Form.RecordCount * 300
Me.SubForm2.Height = Me.SubForm2.Form.RecordCount * 300
Me.SubForm3.Height = Me.SubForm3.Form.RecordCount * 300

Me.SubForm2.Top = Me.SubForm1.Top + Me.SubForm1.Height
Me.SubForm3.Top = Me.SubForm2.Top + Me.SubForm2.Height

Olá criquio.

Pelo que percebi no seu exemplo, o subformulário tem um tamanho padrão.

Eu precisava que o subformulário fosse se auto ajustando ao número de registros dele, para que nunca aparecesse a barra de rolagem vertical.

Obrigado!

Para isso você pode usar a forma que passei no post anterior. É só adaptar uma coisa na outra.

Olá criquio, acabei percebendo que as três tabelas têm o mesmo campo, adicionei um campo para identificar o tipo de produto e transformei tudo em uma tabela, dessa forma ficou mais fácil de trabalhar.