MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    Aprendendo Filtros com Sub-Formulários

    Votação

    O que você achou dessa aula sobre sub-formulários?

    [ 6 ]
    filtros - Aprendendo Filtros com Sub-Formulários Bar_left100%filtros - Aprendendo Filtros com Sub-Formulários Bar_right [100%] 
    [ 0 ]
    filtros - Aprendendo Filtros com Sub-Formulários Bar_left0%filtros - Aprendendo Filtros com Sub-Formulários Bar_right [0%] 
    [ 0 ]
    filtros - Aprendendo Filtros com Sub-Formulários Bar_left0%filtros - Aprendendo Filtros com Sub-Formulários Bar_right [0%] 

    Total de votos: 6
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    filtros - Aprendendo Filtros com Sub-Formulários Empty Aprendendo Filtros com Sub-Formulários

    Mensagem  good guy 6/12/2019, 18:45

    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)
    Anexos
    filtros - Aprendendo Filtros com Sub-Formulários AttachmentConsultaSubFormulario.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (63 Kb) Baixado 158 vez(es)

    RAST gosta desta mensagem

    Maicon
    Maicon
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 267
    Registrado : 08/09/2012

    filtros - Aprendendo Filtros com Sub-Formulários Empty Re: Aprendendo Filtros com Sub-Formulários

    Mensagem  Maicon 7/12/2019, 23:50

    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 .





    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    filtros - Aprendendo Filtros com Sub-Formulários Empty Aprendendo Filtros com Sub-Formulários

    Mensagem  good guy 8/1/2020, 01:28

    Obrigado Maicon. Very Happy
    pcnet
    pcnet
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 302
    Registrado : 16/12/2015

    filtros - Aprendendo Filtros com Sub-Formulários Empty Re: Aprendendo Filtros com Sub-Formulários

    Mensagem  pcnet 8/1/2020, 22:14

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

    Abraço
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    filtros - Aprendendo Filtros com Sub-Formulários Empty Aprendendo Filtros com Sub-Formulários

    Mensagem  good guy 10/1/2020, 00:39

    Obrigado pcnet a você também !!! Very Happy

    Conteúdo patrocinado


    filtros - Aprendendo Filtros com Sub-Formulários Empty Re: Aprendendo Filtros com Sub-Formulários

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/11/2024, 14:27