MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Filtro com ComboBox com data

    Compartilhe

    SAPMM
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 363
    Registrado : 07/08/2011

    [Resolvido]Filtro com ComboBox com data

    Mensagem  SAPMM em Sex 20 Abr 2018 - 19:03

    Senhores,


    Tenho um form com subform onde no form tenho a combobox Txt_nome que o tipo de dados nesse campo é data. E no subform entre outros campos tem o campo "mesdofc", esse campo também o tipo de dados é data, estou tentando filtrar o subform aplicando a seleção na combobox porém o filtro não localiza, no trecho do filtro no VBA coloco:

    filtro = "mesdofc = " & Txt_nome.Column(0)


    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6980
    Registrado : 05/11/2009

    Re: [Resolvido]Filtro com ComboBox com data

    Mensagem  Alexandre Neves em Sab 21 Abr 2018 - 15:53

    Boa tarde,
    Será
    filtro = "mesdofc =#" & Txt_nome.Column(0) &"#"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    SAPMM
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 363
    Registrado : 07/08/2011

    Re: [Resolvido]Filtro com ComboBox com data

    Mensagem  SAPMM em Sab 21 Abr 2018 - 18:12

    Alexandre boa tarde,

    Veja como ficou, porém ao clicar no botão não filtrou nenhum registro.

    Private Sub Comando1_Click()
    Dim j As Boolean, filtro As String
    If IsNull(Me!Txt_nome) Then j = True

    If j = True Then
    MsgBox "Preencha todos os campos...", vbInformation, "Aviso"
    Me!Txt_nome.SetFocus
    Exit Sub
    End If

    filtro = "mesdofc =#" & Txt_nome.Column(0) & "#"


    Fluxo.Form.Filter = filtro
    Fluxo.Form.FilterOn = True

    End Sub

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Filtro com ComboBox com data

    Mensagem  Noobezinho em Sab 21 Abr 2018 - 21:33

    José

    Este trecho está correto?


    Fluxo.Form.Filter = filtro
    Fluxo.Form.FilterOn = True


    Se o filtro for no próprio formulário do botão:


    Me.Filter = filtro
    Me.FilterOn = True

    Talvez precise fazer um Me.Requery  para atualizar o form.

    [ ]'s

    SAPMM
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 363
    Registrado : 07/08/2011

    Re: [Resolvido]Filtro com ComboBox com data

    Mensagem  SAPMM em Dom 22 Abr 2018 - 8:20

    Tenho um form com subform onde no form tenho a combobox Txt_nome que o tipo de dados nesse campo é data. E no subform entre outros campos tem o campo "mesdofc", esse campo também o tipo de dados é data, estou tentando filtrar o subform aplicando a seleção na combobox porém o filtro não localiza.
    Por esse motivo o trecho está:
    Fluxo.Form.Filter = filtro
    Fluxo.Form.FilterOn = True

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Filtro com ComboBox com data

    Mensagem  Noobezinho em Dom 22 Abr 2018 - 8:28

    É melhor disponibilizar parte do aplicativo, com os objetos envolvidos.

    Ajudaremos melhor analisando o que está acontecendo.


    SAPMM
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 363
    Registrado : 07/08/2011

    Re: [Resolvido]Filtro com ComboBox com data

    Mensagem  SAPMM em Qui 26 Abr 2018 - 22:19

    Segue em anexo, um exemplo do filtro que não funciona no frmprincipal
    Anexos
    TesteFC.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (37 Kb) Baixado 4 vez(es)

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Filtro com ComboBox com data

    Mensagem  Noobezinho em Sex 27 Abr 2018 - 8:36

    Donizeth

    Aqui está o exemplo modificado.

    Veja que fiz também com somente um formulário.

    [ ]'s

    SAPMM
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 363
    Registrado : 07/08/2011

    Re: [Resolvido]Filtro com ComboBox com data

    Mensagem  SAPMM em Sex 27 Abr 2018 - 18:39

    Ótimo, obrigado.

    SAPMM
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 363
    Registrado : 07/08/2011

    Re: [Resolvido]Filtro com ComboBox com data

    Mensagem  SAPMM em Sex 27 Abr 2018 - 18:41

    resolvido.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Filtro com ComboBox com data

    Mensagem  Noobezinho em Sex 27 Abr 2018 - 18:44

    Certo !


    Boa sorte!

      Data/hora atual: Qui 18 Out 2018 - 11:17