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 : 361
    Registrado : 07/08/2011

    [Resolvido]Filtro com ComboBox com data

    Mensagem  SAPMM em 20/4/2018, 23: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 : 6853
    Registrado : 05/11/2009

    Re: [Resolvido]Filtro com ComboBox com data

    Mensagem  Alexandre Neves em 21/4/2018, 19: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 : 361
    Registrado : 07/08/2011

    Re: [Resolvido]Filtro com ComboBox com data

    Mensagem  SAPMM em 21/4/2018, 22: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 22/4/2018, 01: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 : 361
    Registrado : 07/08/2011

    Re: [Resolvido]Filtro com ComboBox com data

    Mensagem  SAPMM em 22/4/2018, 12: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 22/4/2018, 12: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 : 361
    Registrado : 07/08/2011

    Re: [Resolvido]Filtro com ComboBox com data

    Mensagem  SAPMM em 27/4/2018, 02: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 3 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 27/4/2018, 12: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 : 361
    Registrado : 07/08/2011

    Re: [Resolvido]Filtro com ComboBox com data

    Mensagem  SAPMM em 27/4/2018, 22:39

    Ótimo, obrigado.

    SAPMM
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Filtro com ComboBox com data

    Mensagem  SAPMM em 27/4/2018, 22: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 27/4/2018, 22:44

    Certo !


    Boa sorte!

      Data/hora atual: 17/8/2018, 21:51