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


3 participantes

    [Resolvido]Pegar a maior data e a menor data em uma caixa de listagem

    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 993
    Registrado : 12/04/2016

    [Resolvido]Pegar a maior data e a menor data em uma caixa de listagem Empty [Resolvido]Pegar a maior data e a menor data em uma caixa de listagem

    Mensagem  marcelo marques 6/10/2022, 01:41

    Boa noite estou tentando pegar a primeira data e a última data de uma caixa de listagem depois de ser filtrada
    Anexos
    [Resolvido]Pegar a maior data e a menor data em uma caixa de listagem AttachmentexemploMarceloMarques_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (392 Kb) Baixado 15 vez(es)

    BrunoReis gosta desta mensagem

    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 993
    Registrado : 12/04/2016

    [Resolvido]Pegar a maior data e a menor data em uma caixa de listagem Empty Re: [Resolvido]Pegar a maior data e a menor data em uma caixa de listagem

    Mensagem  marcelo marques 4/6/2024, 02:35

    Up
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 572
    Registrado : 30/08/2010

    [Resolvido]Pegar a maior data e a menor data em uma caixa de listagem Empty Re: [Resolvido]Pegar a maior data e a menor data em uma caixa de listagem

    Mensagem  NADIRONUNES 4/6/2024, 11:17

    Forms!FORNECEDOR!PSAI = DFirstX("[data]", "Ordem", "[CodClie]= '" & Id & "'")
    Forms!FORNECEDOR!USAI = DLastX("[data]", "Ordem", "[CodClie]= '" & Id & "'")


    salva em um modulo

    Código:

    Public Function DFirstX(NomeCampo As Variant, nomeTabela As Variant, Optional filtro As String = "") As Variant
    Dim RS As DAO.Recordset
    Dim strSQL As String
    strSQL = "Select first(" & NomeCampo & ") AS k FROM " & nomeTabela & IIf(filtro = "", ";", " WHERE " & filtro & ";")
    Call fncAbreConexao(102030)
    Set RS = Db.OpenRecordset(strSQL, 4)
    DFirstX = RS!k
    RS.Close
    Set RS = Nothing
    End Function

    Código:

    Public Function DLastX(NomeCampo As Variant, nomeTabela As Variant, Optional filtro As String = "") As Variant
    Dim RS As DAO.Recordset
    Dim strSQL As String
    strSQL = "Select last(" & NomeCampo & ") AS k FROM " & nomeTabela & IIf(filtro = "", ";", " WHERE " & filtro & ";")
    Call fncAbreConexao(102030)
    Set RS = Db.OpenRecordset(strSQL, 4)
    DLastX = RS!k
    RS.Close
    Set RS = Nothing
    End Function
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 993
    Registrado : 12/04/2016

    [Resolvido]Pegar a maior data e a menor data em uma caixa de listagem Empty Re: [Resolvido]Pegar a maior data e a menor data em uma caixa de listagem

    Mensagem  marcelo marques 4/6/2024, 23:56

    boa noite meu amigo me descupa tinha mandado o bd errado , porém como ficaria este código neste bd eu não consegui adaptar ao meu
    Anexos
    [Resolvido]Pegar a maior data e a menor data em uma caixa de listagem Attachmentpesquisa.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (132 Kb) Baixado 7 vez(es)
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 993
    Registrado : 12/04/2016

    [Resolvido]Pegar a maior data e a menor data em uma caixa de listagem Empty Re: [Resolvido]Pegar a maior data e a menor data em uma caixa de listagem

    Mensagem  marcelo marques 8/6/2024, 00:43

    up
    Carvalho
    Carvalho
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 19/01/2013

    [Resolvido]Pegar a maior data e a menor data em uma caixa de listagem Empty Re: [Resolvido]Pegar a maior data e a menor data em uma caixa de listagem

    Mensagem  Carvalho 10/6/2024, 17:56

    boa tarde,

    amigo, fiz assim, peguei a data vencimento como parametro, criei um modulo para montar o que se deseja e chamei nos campos de pesquisas, as datas aparecem no dtinicial e dtFinal só convertir para data e foi. testa ai. aqui deu certo, ai vc adapta conforme sua necessidade.


    Código:

    Private Sub AtualizarDatas()
        Dim db As DAO.Database
        Dim rs As DAO.Recordset
        Dim sql As String

        ' Montar a consulta SQL diretamente no VBA
        sql = "SELECT Min(cs_pesquisaCascata.Dt_Vencimento) AS DataInicial, Max(cs_pesquisaCascata.Dt_Vencimento) AS DataFinal " & _
              "FROM cs_pesquisaCascata " & _
              "WHERE ((cs_pesquisaCascata.NomeCliente) Like '" & Me!txtfornecedor & "*') " & _
              "And ((cs_pesquisaCascata.Descricao) Like '" & Me!txtproduto & "*') " & _
              "And ((cs_pesquisaCascata.TIPO_DESPESA) Like '" & Me!CBOtipodespesa & "*') " & _
              "And ((Format([dt_vencimento],'mm')) Like '" & Me![cbomes Vencimento] & "*') " & _
              "And ((Format([dt_vencimento],'yyyy')) Like '" & Me!cboAnoVencimento & "*') " & _
              "And ((cs_pesquisaCascata.Quitar) Like '" & Me!txtsituacao & "*');"

        ' Abrir o banco de dados e executar a consulta
        Set db = CurrentDb
        Set rs = db.OpenRecordset(sql)

        ' Verificar se há resultados
        If Not rs.EOF Then
            ' Atualizar as caixas de texto
            Me!dtinicial = rs!DataInicial
            Me!dtFinal = rs!DataFinal
        Else
            ' Caso não haja resultados, limpar as caixas de texto
            Me!dtinicial = Null
            Me!dtFinal = Null
        End If

        ' Fechar o recordset
        rs.Close
        Set rs = Nothing
        Set db = Nothing
    End Sub
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 993
    Registrado : 12/04/2016

    [Resolvido]Pegar a maior data e a menor data em uma caixa de listagem Empty Re: [Resolvido]Pegar a maior data e a menor data em uma caixa de listagem

    Mensagem  marcelo marques 11/6/2024, 02:57

    boa noite carvalho muito obrigado deu certinho e também agradeço o NADIRONUNES sou péssimo em sql gostaria muito de aprender mais valeu mesmo Deus abençoe você

    Conteúdo patrocinado


    [Resolvido]Pegar a maior data e a menor data em uma caixa de listagem Empty Re: [Resolvido]Pegar a maior data e a menor data em uma caixa de listagem

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/6/2024, 03:36