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

    Listbox definir uma data padrão e realizar comparações ao escolher outra data.

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    Listbox definir uma data padrão e realizar comparações ao escolher outra data. Empty Listbox definir uma data padrão e realizar comparações ao escolher outra data.

    Mensagem  Silvio 17/7/2014, 15:31

    Prezados bom dia à todos.

    Preciso de uma luz para solucionar um problema que aos meus olhos, tem me deixado perdido.

    Tenho uma listbox, filtrada, com algumas datas.

    Há como, dentro da listbox, estabelecer uma data "padrão" ( entre aquelas que estão dentro da Lstbox) e ao clicar em outra qualquer realizar uma comparação entre ambas, avisando ao usuário que a data escolhida ( clicada ) é anterior aquela que foi definida como "padrão" anteriormente ?

    Para mais detalhes, anexo um exemplo.

    Agradeço deste já, a ajuda dos colegas.

    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Listbox definir uma data padrão e realizar comparações ao escolher outra data. Empty Re: Listbox definir uma data padrão e realizar comparações ao escolher outra data.

    Mensagem  Alexandre Neves 17/7/2014, 16:38

    Boa tarde, Sílvio
    d3 = d1 and d2 'uno os dois aqui <---- and é operador lógico

    Coloque
    Código:

    If Me.LstPrLic.Column(7) & Me.LstPrLic.Column(8) = DLast("licdtvig & lichvig", "tblatzlic", "licninst ='" & Me.LstPrLic.Column(5) & "'") Then
    MsgBox "Preço certo"
    Else
    MsgBox "Preço errado"
    End If
    Veja se é a função DLast que precisa


    .................................................................................
    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
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    Listbox definir uma data padrão e realizar comparações ao escolher outra data. Empty Re: Listbox definir uma data padrão e realizar comparações ao escolher outra data.

    Mensagem  Silvio 17/7/2014, 17:51

    Boa Tarde...

    Vou testar aqui Alexandre....estava sem internet por aqui.

    Agradeço a tua atenção.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    Listbox definir uma data padrão e realizar comparações ao escolher outra data. Empty Re: Listbox definir uma data padrão e realizar comparações ao escolher outra data.

    Mensagem  Silvio 17/7/2014, 18:04

    Boas...

    Alexandre, ainda permanece com a mensagem preço errado, mesmo clicando no dia 16.
    Mesmo trocando Dlast por Dlookup ou por Dmax.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Listbox definir uma data padrão e realizar comparações ao escolher outra data. Empty Re: Listbox definir uma data padrão e realizar comparações ao escolher outra data.

    Mensagem  Alexandre Neves 17/7/2014, 18:21

    Mas quer a última data ou a maior?
    será a maior desde que não seja posterior à data presente.
    If Me.LstPrLic.Column(7) & Me.LstPrLic.Column(Cool = Dmax("licdtvig & lichvig", "tblatzlic", "licninst ='" & Me.LstPrLic.Column(5) & "' and licdtvig<=date()") Then
    MsgBox "Preço certo"
    Else
    MsgBox "Preço errado"
    End If


    .................................................................................
    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
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    Listbox definir uma data padrão e realizar comparações ao escolher outra data. Empty Re: Listbox definir uma data padrão e realizar comparações ao escolher outra data.

    Mensagem  Silvio 17/7/2014, 18:35

    Boas...

    Acertou em cheio...era isso mesmo.

    Deixo o código para que outros possam ver:

    Código:
    Private Sub LstPrLic_Click()
    If Me.LstPrLic.Column(7) & Me.LstPrLic.Column(8) = DMax("licdtvig & lichvig", "tblatzlic", "licninst ='" & Me.LstPrLic.Column(5) & "' and licdtvig<=date()") Then
        Forms!frmcadastro!PRVIG = Me.LstPrLic.Column(8)
            Else
                If MsgBox("Você está escolhendo um preço ULTRAPASSADO, tem certeza disso", vbCritical + vbYesNo, Me.Caption) = vbYes Then
                    Forms!frmcadastro!PRVIG = Me.LstPrLic.Column(8)
                        Else
                        Me.Undo
                            End If
                            End If

    End Sub

    Muito obrigado Alexandre. Abraços []


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    Listbox definir uma data padrão e realizar comparações ao escolher outra data. Empty Re: Listbox definir uma data padrão e realizar comparações ao escolher outra data.

    Mensagem  Silvio 17/7/2014, 18:36

    Resolvido


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Conteúdo patrocinado


    Listbox definir uma data padrão e realizar comparações ao escolher outra data. Empty Re: Listbox definir uma data padrão e realizar comparações ao escolher outra data.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 18:57