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


    [Resolvido]Abrir Sub-Formulário com filtro.

    avatar
    nrobento
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 06/02/2013

    [Resolvido]Abrir Sub-Formulário com filtro. Empty [Resolvido]Abrir Sub-Formulário com filtro.

    Mensagem  nrobento 22/7/2015, 03:44

    Olá Pessoal,

    Tenho um BD onde tem um formulário com dados dos clientes chamado 'ForClientesDados' que fica dentro do Sub-Formulário 'Filho13'. Gostaria que ao clicar no botão 'Editar', dentro desse formulário de Dados, o 'ForClientesCadastro' abrisse dentro do 'Filho13' para que eu possa alterar os dados deles.

    Tenho o seguinte código:

    Código:
    Forms!ForMenu.MenuMeio.Form!Filho13.SourceObject = "ForClientesCadastro"
    Forms!ForMenu.MenuMeio.Form!Filho13.Form.Filter = "CliCodigo = " & Me!CliCodigo
    Forms!ForMenu.MenuMeio.Form!Filho13.Form.FilterOn = True
    Forms!ForMenu.MenuMeio.Form!Filho13.Requery

    Porém esta dando erro pois quando o filtro vai buscar o 'CliCodigo' o mesmo já esta fechado.

    Alguém poderia me ajudar?


    Agradeço!
    avatar
    nrobento
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 06/02/2013

    [Resolvido]Abrir Sub-Formulário com filtro. Empty Re: [Resolvido]Abrir Sub-Formulário com filtro.

    Mensagem  nrobento 22/7/2015, 03:53

    Depois de tanto testar, consegui resolver o problema e quase me matei por não ter pensado nisso antes.

    Segue abaixo o código utilizado:

    Código:
    Filtro1 = "CliCodigo = " & Me!CliCodigo
    Forms!ForMenu.MenuMeio.Form!Filho13.SourceObject = "ForClientesCadastro"
    Forms!ForMenu.MenuMeio.Form!Filho13.Form.Filter = Filtro1
    Forms!ForMenu.MenuMeio.Form!Filho13.Form.FilterOn = True
    Forms!ForMenu.MenuMeio.Form!Filho13.Requery

    De qualquer forma obrigado a todos.

      Data/hora atual: 7/5/2024, 07:01