MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    avatar
    Daniel Meireles
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 16/05/2012

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

    Mensagem  Daniel Meireles em 24/7/2012, 15:12

    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 cheers


    Anexos
    [Resolvido]Função Iff (Seimed) com mais um 1 critério AttachmentExemplo.xls
    Você não tem permissão para fazer download dos arquivos anexados.
    (25 Kb) Baixado 61 vez(es)
    avatar
    Daniel Meireles
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 16/05/2012

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

    Mensagem  Daniel Meireles em 27/7/2012, 14:04

    Up.

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2678
    Registrado : 21/04/2011

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

    Mensagem  Marcelo David em 27/7/2012, 14:15

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


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    Daniel Meireles
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 16/05/2012

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

    Mensagem  Daniel Meireles em 31/7/2012, 13:23

    Desculpa a demora amigo.

    seria por uma consulta mesmo.



    good guy
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1249
    Registrado : 05/02/2010

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

    Mensagem  good guy em 31/7/2012, 15:57

    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.Cool


    Última edição por good guy em 16/8/2012, 13:51, editado 1 vez(es)
    avatar
    Daniel Meireles
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 16/05/2012

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

    Mensagem  Daniel Meireles em 1/8/2012, 15:33

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

    Muito obrigado amigo. Fica com Deus.
    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

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

    Mensagem  edjunho em 28/7/2017, 00:01

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1249
    Registrado : 05/02/2010

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

    Mensagem  good guy em 1/8/2017, 21:19

    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)

      Data/hora atual: 19/4/2019, 03:44