[Resolvido]Filtrar Sub formulario através de caixas de texto do form principal

Olá,

Estou mais uma vez precisando de ajuda.

Preciso habilitar o btFiltrar do formulário principal (frmEst_Motoristas) para filtrar o subformulário de acordo com as informações das caixas de texto txAno e txMes.

Também preciso somar os valores das 4 ultimas colunas do subformulário e exibir nas caixas de texto:

txTotalCargas
txTotalPeso
txTotalEntregas
txTotalDevolucao

Se possível veja o formulário em anexo para entender a minha necessidade.

Desde de já agradeço a todos!

Já tentou assim?

Código:

Me.NomeDoSubForm.Form.RecordSource = "SELECT * FROM NomeDaTabela WHERE CampoDaTabela LIKE '*" & Me.CampoDoForm & "*'"

Olá, Criquio Calavera

Muito obrigado por sua ajuda... Deu certo sim!

Conseguir adaptar apenas para uma caixa de texto que contem os dados para o filtro.

Como ficaria para dois usando dois campos dentro de WHERE ?

EX: WHERE CampoDaTabela LIKE '*" & Me.Campo1DoForm AND Me.Campo2DoForm & "*'"

Tentei usando o exemplo acima para dois campos não deu certo.

Código:

Me.RecordSource = "SELECT * FROM NomeDaTabela WHERE Campo1 LIKE '*" & Me.Campo1DoForm & "*' And Campo2 LIKE '*" & Me.Campo2DoForm & "*'"

Olá Criquio,

Desculpa pela minha falta de atenção... Conseguir

Veja como fica:

WHERE Campo1Databela LIKE '*" & Me.Campo1DoForm & "*' AND Campo2Databela LIKE '*" & Me.Campo2DoForm & "*'


Se possível me ajude com o campo que totaliza os valores filtrado ?

Também preciso somar os valores das 4 ultimas colunas do subformulário e exibir nas caixas de texto:

txTotalCargas
txTotalPeso
txTotalEntregas
txTotalDevolucao

Se possível veja o formulário em anexo para entender a minha necessidade.

Desde de já agradeço a todos!

Para somar é normal:

=Val([Campo1])+Val([Campo2])+Val([Campo3])+Val([Campo4])

Tentei somar como falou, deu erro!

Se possível, dê uma olhada no anexo e tente aplicar a soma de cada coluna em cada caixa de texto.

Desde de já te agradeço.

Coloque os campos no rodapé do subformulário com a soma:

=Soma([NomeDoCampo])

E nos campos do formulário principal:

=[NomeDoSubFormulário].[Form]![NomeDoCampo]

Eu lhe aconselho antes alterar os nomes de campos com espaços, retirando esses espaços. Veja aqui o porquê.

beleza... Deu certo a somar, só preciso fazer um tratamento de erro.

Como já sabe o o SubForm é filtrado com base em duas caixas de texto do Form principal.

Se filtro um Ano e Mês que tem valores o resultado é apresentado corretamente.

Se filtrar um ano e mês que não tem valor o subform não traz informações e o campo do
form principal que tem finalidade de somar apresenta o seguinte erro:

#Erro

Como fazer para toda vez que não existir valores no SubForm o campo apresente zero ??

Olá Criquio,

Conseguir da seguinte forma:

=SeImed(ÉNum([NomeSubForm].[Form]![Campo]);[NomeSubForm].[Form]![Campo])


Muito obrigado por sua ajuda... Não faz ideia do quanto resolveram meus problemas.

Obrigado mesmo.

Grato pelo retorno.

Quanto ao erro, uma outra forma que pode funcionar é colocar no campo da soma assim:

=nz(Soma([NomeCampo]);0)

Ok! Muito obrigado.