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


    [Resolvido]Pesquisa entre datas

    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Pesquisa entre datas Empty [Resolvido]Pesquisa entre datas

    Mensagem  formiga10x 20/5/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
    [Resolvido]Pesquisa entre datas AttachmentExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (73 Kb) Baixado 20 vez(es)
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  formiga10x 21/5/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: 22/11/2024, 06:58