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

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.

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

Boa Tarde...

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

Agradeço a tua atenção.

Boas...

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

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( = Dmax("licdtvig & lichvig", "tblatzlic", "licninst ='" & Me.LstPrLic.Column(5) & "' and licdtvig<=date()") Then
MsgBox "Preço certo"
Else
MsgBox "Preço errado"
End If

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 []

Resolvido