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

2 participantes

    [Resolvido]Filtro entre datas

    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 162
    Registrado : 06/11/2020

    [Resolvido]Filtro entre datas Empty [Resolvido]Filtro entre datas

    Mensagem  m_sousa 13/12/2020, 13:18

    Olá

    Deixo parte da App em desenvolvimento, precisava que filtra-se entre datas. Campos

    DI - DF

    Código:
    Private Sub filtro_Click()
    Dim strFiltro As String
    strFiltro = "Nome LIKE '*" & Me.txtPesquisa.Text & "*' AND Data between # " & Format(DI, "mm/dd/yyyy") & " # and # " & Format(DF, "mm/dd/yyyy") & " #"
    Me.frmSubConsultaMarcacoes.Form.Filter = strFiltro
    Me.frmSubConsultaMarcacoes.Form.FilterOn = True
    End Sub

    txtPesquisa

    Código:
    Private Sub txtpesquisa_Change()
    Dim strFiltro As String
    strFiltro = "Nome LIKE '*" & Me.txtPesquisa.Text & "*' "
    Me.frmSubConsultaMarcacoes.Form.Filter = strFiltro
    Me.frmSubConsultaMarcacoes.Form.FilterOn = True
    End Sub

    Por outro lado gostava que a consulta estivesse na abertura dos forms na data corrente e só se precisar é que faço a pesquisa entre datas. A pesquisa entre datas esta a dar um erro. . .

    Um bem hajam !
    Anexos
    [Resolvido]Filtro entre datas Attachmentbd_marcacoes.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (88 Kb) Baixado 17 vez(es)
    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 162
    Registrado : 06/11/2020

    [Resolvido]Filtro entre datas Empty Re: [Resolvido]Filtro entre datas

    Mensagem  m_sousa 6/1/2021, 21:59

    UP
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtro entre datas Empty Re: [Resolvido]Filtro entre datas

    Mensagem  Alexandre Neves 7/1/2021, 11:30

    Bom dia
    Teste
    Código:
    Private Sub btnFiltrar_Click()
    Dim strFiltro As String
    strFiltro = "Nome LIKE '*" & Me.txtPesquisa & "*' AND Data between #" & Format(DI, "mm/dd/yyyy") & "# and #" & Format(DF, "mm/dd/yyyy") & "#"
    Me.frmSubConsultaMarcacoes.Form.Filter = strFiltro
    Me.frmSubConsultaMarcacoes.Form.FilterOn = True
    End Sub
    Código:
    Private Sub txtPesquisa_Change()
    Dim strFiltro As String
    strFiltro = "Nome LIKE '*" & Me.txtPesquisa & "*' "
    Me.frmSubConsultaMarcacoes.Form.Filter = strFiltro
    Me.frmSubConsultaMarcacoes.Form.FilterOn = True
    End Sub
    Código:
    Private Sub Form_Load()
    strFiltro = "Data=#" & Format(Date, "mm/dd/yyyy") & "#"
    Me.frmSubConsultaMarcacoes.Form.Filter = strFiltro
    Me.frmSubConsultaMarcacoes.Form.FilterOn = True
    Me.DI.SetFocus
    End Sub


    .................................................................................
    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
    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 162
    Registrado : 06/11/2020

    [Resolvido]Filtro entre datas Empty Re: [Resolvido]Filtro entre datas

    Mensagem  m_sousa 9/1/2021, 12:15

    Obrigado !

    Resolvido... abraço , um bem haja.

      Data/hora atual: 22/9/2021, 06:52