[Resolvido]Função Iff (Seimed) com mais um 1 critério

Bom dia a todos!

Primeiramente obrigado pelo forum e os colegas que nos ajudam.

Utilizo o access 2007, e adicionei uma planilhazinha como exemplo pra minha pergunta pois não consegui formatar aqui. Tenho uma duvida em função Iff com mais de um criterio, do modo que estou fazendo não dá certo.

o raciocinio é o seguinte.

Se a coluna [Prioridade] for "1" ou "2" E coluna [Em dias]for maior que 30,na coluna [Data Final] mostre-me "em branco" caso contrario mostre-me [Data].

agradeço desde já!

abraço

Up.

Acho que fui pouco claro na especificação da dúvida.

Onde você irá por o IIf, em uma SQL no VBA ou em uma consulta gráfica do Access?

Desculpa a demora amigo.

seria por uma consulta mesmo.

Olá Daniel,

Tente com esta função que pra mim deu certo através de um formulário:

Public Function MostraData()
Dim sData As String

sData = DLookup("DataInicial", "tblPecas", "Prioridade= 1")

If Prioridade = 1 And Me.EmDias > 30 Then
DataFinal = ""
MostraData = DataFinal
ElseIf Prioridade = 2 And Me.EmDias > 30 Then
DataFinal = ""
MostraData = DataFinal
Else
DataFinal = "'" & sData & "'"
DataFinal = Replace(DataFinal, "'", "")
MostraData = DataFinal
End If
End Function

Tentei com uma consulta com esta sintaxe, mas não deu muito certo embora a lógica esteja correta:

DataFinal: SeImed("EmDias<30";DPesquisa("Data";"tblPecas";"Prioridade=1");"") ou
mesmo esta sintaxe:
DataFinal: SeImed("[EmDias]<30 And [Prioridade]=1 or [Prioridade]=2";DPesquisa("Data";"tblPecas";"[EmDias]<30");"")

Outra tentativa seguindo a lógica do VBA:

DataFinal: SeImed ("Prioridade=1 And EmDias>30";"";"Prioridade=2 And EmDias>30";"";Dlookup("Data";"tblPecas";"EmDias<30")
Ou
DataFinal: SeImed(Prioridade=1 And EmDias>30;"";Prioridade=2 And EmDias>30;"";Dlookup("Data";"tblPecas";"EmDias<30")

Se alguém quiser modificar e tentar de outra maneira...

"O temor do Senhor é o princípio do conhecimento..."(Sl 111.10); Disse Jesus: "Eu sou a luz do mundo. Quem me segue não andará em trevas,..."(Jo 8.12); "Provai e vede que o Senhor é bom..."(Sl 34.

A primeira função que me passou deu certinho, até adicionei outras prioridades.

Muito obrigado amigo. Fica com Deus.

Boa noite good guy ou Daniel, gostaria de apreciar o resultado desta função. Adorei. Pode disponibilizar o banco?

Olá edjunho,

Claro. Sem problemas. Houve algum problema pela Mensagem Nº 1?


Se quiser aprender mais adquira os meus dois livros DOMINE O ACCESS VBA e TÉCNICAS ESPECIAIS DE ACCESS VBA e você vai aprender isto e muito mais.

Editora Livrorama(DOMINE ...):
www.livrorama.com.br

Editora Ciência Moderna(TÉCNICAS...):
www.lcm.com.br


Um grande abraço.

"O temor do Senhor(respeito pela Palavra de Deus, leitura e obediência) é o princípio do conhecimento" (Prov. 1.7)
Disse Jesus: "E conhecereis a Verdade e a Verdade vos libertará". (Jo 8.32)
Disse Jesus: “Eu sou a luz do mundo; aquele que me segue, não andará em trevas, mas terá a luz da vida.” (Jo. 8.12)