MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Pesquisa entre datas

    Compartilhe

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 11/09/2013

    [Resolvido]Pesquisa entre datas

    Mensagem  formiga10x em Ter 20 Maio 2014, 23:45

    Alguém poderia me dar uma ajuda na consulta "vba" filtrando uma lista entre datas início e final?
    Quero filtrar uma lista com critério de datas entre duas caixas de textos segue em anexo o bd.

    PS. Mas que continuasse a manter o critério do top 10 na instrução sql

    Agradecido.
    Anexos
    Exemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (73 Kb) Baixado 15 vez(es)

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 11/09/2013

    Re: [Resolvido]Pesquisa entre datas

    Mensagem  formiga10x em Qua 21 Maio 2014, 00:29

    Resolvido aqui Very Happy

    Código:
    Private Sub txtDataFinal_AfterUpdate()

    Me.lstTo10Clientes.RowSource = "SELECT TOP 10 CVenda.nomeCliente, Sum(CVenda.qtdProduto), sum(CVenda.dataVenda) " & vbCrLf & _
    "FROM CVenda " & vbCrLf & _
    "GROUP BY CVenda.nomeCliente, CVenda.dataVenda " & vbCrLf & _
    "HAVING (((CVenda.dataVenda) Between [Formulários]![frmClientesMaisVendas]![txtDataInicio] And [Formulários]![frmClientesMaisVendas]![txtDataFinal])) " & vbCrLf & _
    "ORDER BY Sum(CVenda.qtdProduto) DESC;"

    End Sub

      Data/hora atual: Sab 10 Dez 2016, 12:39