Aprendendo Filtros com Sub-Formulários

Olá pessoal,

Para quem não domina ainda o uso de filtros com sub-formulários estou deixando um exemplo prático de como se utilizar esta importante forma de filtragem. Em primeiro lugar, sub-formulários devem ser criados no modo tabular no assistente de formulários para entrar como objeto do formulário principal no modo contínuo. No formulário, você pode usar um combobox para filtrar dados de uma consulta que você quiser no sub-formulário. Para isso, você cria uma consulta com critérios personalizados e pelo modo Design(Estrutura) de sua consulta, captura a sintaxe SQL para evitar acúmulo de consultas e a transporta para a IDE do seu formulário principal para utilizar na forma abaixo de organização correta de uma string SQL no código de seu combobox:

Código:

Private Sub cboConsulta_AfterUpdate()
On Error Resume Next
Dim strSQL As String

Select Case cboConsulta.Column(0)

Case Is = ""
strSQL = "SELECT  tblSelecao.RG, tblSelecao.DataNasc, tblSelecao.Idade, "
strSQL = strSQL & "tblSelecao.Nome, tblSelecao.Telefone, tblSelecao.Bairro, tblSelecao.Cidade, tblSelecao.Estado "
strSQL = strSQL & "FROM tblSelecao "
[tblSelecao subformulário].Form.RecordSource = strSQL
[tblSelecao subformulário].Requery

Case Is = "Maior e igual a 20 e Menor que 30"

strSQL = "SELECT  tblSelecao.RG, tblSelecao.DataNasc, tblSelecao.Idade, "
strSQL = strSQL & "tblSelecao.Nome, tblSelecao.Telefone, tblSelecao.Bairro, tblSelecao.Cidade, tblSelecao.Estado "
strSQL = strSQL & "FROM tblSelecao WHERE (((tblSelecao.Idade) >= 20 And (tblSelecao.Idade) < 30))ORDER BY tblSelecao.Idade, tblSelecao.Nome;"
[tblSelecao subformulário].Form.RecordSource = strSQL
[tblSelecao subformulário].Requery
Case Is = "Maior e igual a 30 e Menor que 40"

strSQL = "SELECT  tblSelecao.RG, tblSelecao.DataNasc, tblSelecao.Idade, "
strSQL = strSQL & "tblSelecao.Nome, tblSelecao.Telefone, tblSelecao.Bairro, tblSelecao.Cidade, tblSelecao.Estado "
strSQL = strSQL & "FROM tblSelecao WHERE (((tblSelecao.Idade) >= 30 And (tblSelecao.Idade) < 40))ORDER BY tblSelecao.Idade, tblSelecao.Nome;"
[tblSelecao subformulário].Form.RecordSource = strSQL
[tblSelecao subformulário].Requery
Case Is = "Maior e igual a 40 e Menor que 50"

strSQL = "SELECT  tblSelecao.RG, tblSelecao.DataNasc, tblSelecao.Idade, "
strSQL = strSQL & "tblSelecao.Nome, tblSelecao.Telefone, tblSelecao.Bairro, tblSelecao.Cidade, tblSelecao.Estado "
strSQL = strSQL & "FROM tblSelecao WHERE (((tblSelecao.Idade) >= 40 And (tblSelecao.Idade) < 50))ORDER BY tblSelecao.Idade, tblSelecao.Nome;"
[tblSelecao subformulário].Form.RecordSource = strSQL
[tblSelecao subformulário].Requery
Case Is = "Maior e igual a 50 e Menor que 60"

strSQL = "SELECT  tblSelecao.RG, tblSelecao.DataNasc, tblSelecao.Idade, "
strSQL = strSQL & "tblSelecao.Nome, tblSelecao.Telefone, tblSelecao.Bairro, tblSelecao.Cidade, tblSelecao.Estado "
strSQL = strSQL & "FROM tblSelecao WHERE (((tblSelecao.Idade) >= 50 And (tblSelecao.Idade) < 60))ORDER BY tblSelecao.Idade, tblSelecao.Nome;"
[tblSelecao subformulário].Form.RecordSource = strSQL
[tblSelecao subformulário].Requery

Case Is = "Maior e igual a 60 e Menor que 70"

strSQL = "SELECT  tblSelecao.RG, tblSelecao.DataNasc, tblSelecao.Idade, "
strSQL = strSQL & "tblSelecao.Nome, tblSelecao.Telefone, tblSelecao.Bairro, tblSelecao.Cidade, tblSelecao.Estado "
strSQL = strSQL & "FROM tblSelecao WHERE (((tblSelecao.Idade) >= 60 And (tblSelecao.Idade) < 70))ORDER BY tblSelecao.Idade, tblSelecao.Nome;"
[tblSelecao subformulário].Form.RecordSource = strSQL
[tblSelecao subformulário].Requery

End Select
End Sub


"O temor(fé,obediência a) do Senhor é o princípio da sabedoria (conhecimento)". (Provérbios 1.7; 9.10;15.33;19.23; Salmos 111.10)

Grande exemplo amigo "Very Good Guy" Além do código bem explicado, mais os exemplos e de birnde orientação para fazer os subforms.


Parabéns .

Obrigado Maicon.

Excelente conteúdo!
Muito obrigado por disponibilizar esta aula!

Abraço

Obrigado pcnet a você também !!!