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 de pesquisa entre DATAS dentro de Listbox no VBA com banco access

    avatar
    Jtsp
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 29/06/2014

    [Resolvido]Filtro de pesquisa entre DATAS dentro de Listbox no VBA com banco access Empty [Resolvido]Filtro de pesquisa entre DATAS dentro de Listbox no VBA com banco access

    Mensagem  Jtsp 3/7/2014, 23:37

    queria fazer um Filtro de pesquisa entre DATAS dentro de Listbox. data_inicio  data_fim
    mas o codigo so mas traz as datas se o windows estiver no formato de data americano
    tentei colocar o Format mas nao deu muito certo.
    se alguem poder me ajudar, agradeceria muito. obrigado desde já.

    o meu codigo seria este:

    Dim data_inicio As String
    Dim data_fim As String

    Private Sub cbo_dataini_Change()

    cbo_dataini.AddItem "23/06/2014"
    cbo_dataini.AddItem "28/06/2014"


    End Sub
    Private Sub cbo_datafin_Change()
    cbo_datafin.AddItem "23/06/2014"
    cbo_datafin.AddItem "28/06/2014"
    data_inicio = cbo_dataini.Text
      data_fim = cbo_datafin.Text
     
         
    Filtro1
    End Sub

    Private Sub Filtro1()

     
      Dim ComandoSQL As String
     
     
    ComandoSQL = "SELECT * FROM tabela_balancim WHERE Data Between #" & data_inicio & "# AND #" & data_fim & "#"

      Call Conecta
     
     
      Set consulta = banco.OpenRecordset(ComandoSQL)
     
     
      On Error Resume Next
             
              ListView1.ListItems.Clear
     
              While Not consulta.EOF
              Set List = ListView1.ListItems.Add(Text:=consulta(0))  'id
              List.SubItems(1) = consulta(1) 'nome
              List.SubItems(2) = consulta(2) 'Data
              List.SubItems(3) = consulta(3) 'tipo de bojo
              List.SubItems(4) = consulta(4) 'Tamanho
              List.SubItems(5) = consulta(5) 'cor
              List.SubItems(6) = consulta(6) 'Quantidade
              consulta.MoveNext
              Wend
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Filtro de pesquisa entre DATAS dentro de Listbox no VBA com banco access Empty Re: [Resolvido]Filtro de pesquisa entre DATAS dentro de Listbox no VBA com banco access

    Mensagem  Marcelo David 4/7/2014, 13:18

    Olá! Primeiro formate a data para o formato americano, veja no exemplo:

    ComandoSQL = "SELECT * FROM tabela_balancim WHERE Data Between #" & format(data_inicio,"mm/dd/yyyy") & "# AND #" & format(data_fim,"mm/dd/yyyy") & "#"

    Caso ainda dê problemas, faça a formatação da data fora da SQL assim:

    data_inicio = format(data_inicio,"mm/dd/yyyy")
    data_fim = format(data_fim,"mm/dd/yyyy")

    ... aqui a SQL:

    ComandoSQL = "SELECT * FROM tabela_balancim WHERE Data Between #" & data_inicio & "# AND #" & data_fim & "#"


    .................................................................................
    [Resolvido]Filtro de pesquisa entre DATAS dentro de Listbox no VBA com banco access Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Filtro de pesquisa entre DATAS dentro de Listbox no VBA com banco access Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Filtro de pesquisa entre DATAS dentro de Listbox no VBA com banco access Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Filtro de pesquisa entre DATAS dentro de Listbox no VBA com banco access Marcel11
    avatar
    Jtsp
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 29/06/2014

    [Resolvido]Filtro de pesquisa entre DATAS dentro de Listbox no VBA com banco access Empty obrigado

    Mensagem  Jtsp 5/7/2014, 15:00

    obrigado. amigo valeu mesmo ai!
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Filtro de pesquisa entre DATAS dentro de Listbox no VBA com banco access Empty Re: [Resolvido]Filtro de pesquisa entre DATAS dentro de Listbox no VBA com banco access

    Mensagem  Marcelo David 6/7/2014, 14:56

    Grato pelo retorno!


    .................................................................................
    [Resolvido]Filtro de pesquisa entre DATAS dentro de Listbox no VBA com banco access Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Filtro de pesquisa entre DATAS dentro de Listbox no VBA com banco access Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Filtro de pesquisa entre DATAS dentro de Listbox no VBA com banco access Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Filtro de pesquisa entre DATAS dentro de Listbox no VBA com banco access Marcel11

    Conteúdo patrocinado


    [Resolvido]Filtro de pesquisa entre DATAS dentro de Listbox no VBA com banco access Empty Re: [Resolvido]Filtro de pesquisa entre DATAS dentro de Listbox no VBA com banco access

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 00:36