MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]Select no subformulário e Limpar o select

    vomorais
    vomorais
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 11/03/2016

    [Resolvido]Select no subformulário e Limpar o select Empty [Resolvido]Select no subformulário e Limpar o select

    Mensagem  vomorais em 10/6/2020, 22:01

    Boanoite Pessoal, depois de dias tentando e olhando aqui no fórum e nada deu certo...
    Cruei um formuláros com dois subformulários. Um subformulário apliquei um select com base no outro subformulário. Depois de dias sucesso...
    Me.Central_SubCadEstoqueE.Form.RecordSource = "select * from central_estoque where central_estoque.codigoPR = Forms!Central_EfetuarVenda.Filho99.Form!Texto74 "

    Mas com um único registro selecionado, preciso também voltar com todos os registros novamente, ou seja, limpar o select ou filtro aplicado. Para isso criei um botão específico para essa ardua missão mas nadaaaaaa... já tentei de tudo vejam o que já tentei...
    ''Me.Central_SubCadEstoqueE.Form.DoCmd.ShowAllRecords
    ''DoCmd.ShowAllRecords
    ''Me.Central_SubCadEstoqueE.Form.Filter = ""
    ''Me.Central_SubCadEstoqueE.Form.FilterOn = False
    ''Me.Central_SubCadEstoqueE.Form.RecordSource = Me.Central_SubCadEstoqueE.Form.RecordSource
    ''DoCmd.RunCommand acCmdRemoveAllFilters
    Me.Central_SubCadEstoqueE.Form.Application.Forms.Application.RunCommand ShowAllRecords
    ''Me.Central_SubCadEstoqueE.Form.Application.Forms.Parent.FilterOn = False
    ''Me.Central_SubCadEstoqueE.Form.CommandExecute = "DoCmd.ShowAllRecords"

    Alguem alguma dica?
    vomorais
    vomorais
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 11/03/2016

    [Resolvido]Select no subformulário e Limpar o select Empty Re: [Resolvido]Select no subformulário e Limpar o select

    Mensagem  vomorais em 11/6/2020, 14:29

    Solução no click do botão:

    Me.Central_SubCadEstoqueE.Form.RecordSource = "select * from central_estoque "
    vomorais
    vomorais
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 11/03/2016

    [Resolvido]Select no subformulário e Limpar o select Empty Re: [Resolvido]Select no subformulário e Limpar o select

    Mensagem  vomorais em 11/6/2020, 14:30

    Fica a dica!

      Data/hora atual: 24/9/2020, 03:25