[Resolvido]Função Dlookup com 2 campos

Boa noite

Precisava de acrescentar mais uma condição neste comando
If (Not IsNull(DLookup("[DataVenda]", "tbl_Vendas", "[DataVenda] < #" & Format(Me.Lista.Column(2), "dd/mm/yyyy") & "#"))) Then


Condição é: Funcionario = txtFuncionario

Campo Texto

Obrigado

Qual a finalidade da outra opção?

Estou perguntando pois você pode usar um AND ou OR dentro ou fora do Not... mais ou menos assim

Código:

If Not IsNull(DLookup("[DataVenda]", "tbl_Vendas", "[DataVenda] < #" & Format(Me.Lista.Column(2), "dd/mm/yyyy") & "#")) OR _
DLookup("[Funcionario]", "tbl_Vendas", "[Funcionario] = '" & me.txtFuncionario & "'") Then

LiveBrain

A ideia é ao clikar numa linha de uma caixa de listagem detetar se na tabela vendas tem documentos com datas inferiores ao clikado na listbox.

tenho 5 registos cpm datas de

1/10/2013
1/11/2013
1/12/2013
1/01/2014
1/02/2014


ao clikar na primeira linha tudo correto pois não tem mais documentos para traz, mas a partir da segunda linha devia dizer que tem documentos + antigos, e não diz.
----
------

mas se clikar a partir de 2014, isto é 4 linha ja deteta.


Poderá dar-me uma dica?
Obrigado

bom nesse caso você pode usar a instrução abaixo:

Código:

DoCmd.RunSQL "delete from NomeSuaTabela where CampoDataDaTabela <=#" & SuaListBox.Column(0, SuaListBox.ListIndex) & "#"

LiveBrain

Eu não quero eliminar, eu queria que me informasse ao clikar na listBox que tem datas mais antigas, na tabela Vendas


MsgBox "Tem Vendas mais antigas ", vbInformation, "Aviso"

ah tá, eu confundi... acho que Deletar é o nome da sua Caixa de Listagem né?

Bom, se é somente para verificar se há ou não mais datas antigas, use o código abaixo

Código:

Dim Rs As Recordset
Set Rs = CurrentDb().OpenRecordset("Select count(1) from NomeSuaTabela Where CampoDataDaTabela <=#" & SuaListBox.Column(0, SuaListBox.ListIndex) & "#"")

If Rs(0) = 1 Then
    MsgBox "Existe apenas 1 venda mais antiga", vbinformation, "Aviso"
elseif Rs(0)>1 then
    MsgBox "Existem um total de " & Rs(0) & " vendas mais antigas", vbinformation, "Aviso"
else
    MsgBox "Não existem vendas mais antigas", vbinformation, "Aviso"
End If

dá erro na parte a vermelho


Set Rs = CurrentDb().OpenRecordset("Select count(1) from NomeSuaTabela Where CampoDataDaTabela <=#" & SuaListBox.Column(0, SuaListBox.ListIndex) & "#"")

Opa Assis, apague a ultima Aspas da linha...

vai ficar assim:

Código:

Set Rs = CurrentDb().OpenRecordset("Select count(1) from NomeSuaTabela Where CampoDataDaTabela <=#" & SuaListBox.Column(0, SuaListBox.ListIndex) & "#")

Um pitaquinho, com a permissão dos colegas...

é só adaptar as tuas necessidades Assis

Código:

Private Sub lstvendas_Click()

Dim intvendas As Date
intvendas = DLookup("datavenda", "tblvendas")

If Me.lstvendas.Column(2) >= intvendas Then
MsgBox "Exitem vendas anteriores a essa data"

ElseIf Me.lstvendas.Column(2) <= intvendas Then
MsgBox " Existem vendas superiores a essa data"
End If

End Sub


Opa Silvio, todo pitaco que venha pra somar é bem vindo..rsrs

mas então, dessa forma que você passou, o Dlookup armazena sempre o primeiro registro da tabela, e não o Maior Valor ou o Menor Valor que nesse caso é o campo data.

dessa forma eu adaptaria o seu código dessa forma

Código:

Dim dtData As Date

dtData = SuaListBox.Column(0, SuaListBox.ListIndex)

If IsNull(DLookup("SeuCampoData", "SuaTabela", "SeuCampoData> #" & dtData &"#")) Then
    MsgBox "Registro não localizado"
Else
    MsgBox "Existem Datas"
End If

Agora é com você Assis, as duas formas estão corretas para realizar sua pesquisa.
Use a que mais lhe agrada ou que melhor se "Encaixe" ao seu projeto

Bom dia.... Fábio !

E vamos agregando conhecimentos...tudo em termos de conhecimento é valido.

Abraços

Obrigado a todos