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

    Compartilhe

    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

    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
    Exemplo.xls
    Você não tem permissão para fazer download dos arquivos anexados.
    (25 Kb) Baixado 61 vez(es)

    Daniel Meireles
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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.
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    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
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

    Daniel Meireles
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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.



    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    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)

    Daniel Meireles
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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.

    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

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

    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?
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    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 ...):
    [Você precisa estar registrado e conectado para ver este link.]

    Editora Ciência Moderna(TÉCNICAS...):
    [Você precisa estar registrado e conectado para ver este link.]


    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: 17/11/2018, 03:03