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]Valores minimos III ModMinimo

    Compartilhe
    avatar
    ricaneli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 04/06/2016

    [Resolvido]Valores minimos III ModMinimo

    Mensagem  ricaneli em 24/9/2018, 17:33

    Boa tarde caros colegas..!!
    To com uma dificuldade, e gostaria da ajuda de vocês....ou até mesmo do próprio mestre JPaulo, que é o desenvolvedor desse ModMinimo

    Baixei esse exemplo do tópico minimos III, e tentei fazer algumas adaptações e não consegui...Se alguém puder me ajudar com explicação ou se não fosse pedir muito fazendo as próprias adaptações diretamente no exemplo anexado a este tópico...

    Esse exemplo busca através de uma consulta o valor mínimo entre 5 campos.....

    1ª necessidade de adaptação: Se eu digitar um valor no campo 2 ele me retorna esse único valor como sendo o mínimo, mesmo que outros campos não estejam preenchidos.....é isso que preciso que aconteça com os outros campos, ou seja, se eu digitar apenas um valor no campo 1, ou no campo 3, ou no campo4, ou no campo5 ele não retorna nada....

    2ª necessidade de adaptação: Para que ele faça comparação obrigatoriamente o campo 2 tem que estar preenchido, ou seja, ele compara apenas o campo2 com campo 1, ou campo2 com campo 3, campo 2 com campo 4, campo 2 campo5, ou até mesmo todos os campos preenchidos.....Porém ele não compara isoladamente o campo 1 com campo 3, ou campo 1 com campo4, ou campo 1 com campo 5......Eu precisava que ele fizesse essa comparação isolada, mesmo o campo 2 não estivesse preenchido...[Você precisa estar registrado e conectado para ver este link.]
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7056
    Registrado : 05/11/2009

    Re: [Resolvido]Valores minimos III ModMinimo

    Mensagem  Alexandre Neves em 24/9/2018, 18:40

    Boa tarde e bem-vindo ao fórum

    Leia e respeite as regras. Eliminei-lhe a duplicação desta dúvida, que colocou junto a outro tema

    Sobre a sua dúvida, sem dados é difícil trabalhar


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    ricaneli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 04/06/2016

    Re: [Resolvido]Valores minimos III ModMinimo

    Mensagem  ricaneli em 24/9/2018, 22:09

    Alexandre Neves....me desculpe pela falta de atenção....obrigado pela gentileza....e segue modulo anexo
    Anexos
    ValoresMinimos_III.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (13 Kb) Baixado 2 vez(es)
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7056
    Registrado : 05/11/2009

    Re: [Resolvido]Valores minimos III ModMinimo

    Mensagem  Alexandre Neves em 25/9/2018, 22:01

    Boa noite
    Veja se lhe serve (não testei)
    Código:
    Function Menor5Campos(Optional Valor1, Optional Valor2, Optional Valor3, Optional Valor4, Optional Valor5) As Single
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

        If IsMissing(Valor1) = False Then Menor5Campos = Valor1
        If IsMissing(Valor2) = False Then
            If Valor2 < Menor5Campos Then Menor5Campos = Valor2
        End If
        If IsMissing(Valor3) = False Then
            If Valor3 < Menor5Campos Then Menor5Campos = Valor3
        End If
        If IsMissing(Valor4) = False Then
            If Valor4 < Menor5Campos Then Menor5Campos = Valor4
        End If
        If IsMissing(Valor5) = False Then
            If Valor5 < Menor5Campos Then Menor5Campos = Valor5
        End If
    End Function


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    ricaneli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 04/06/2016

    Modulo_valores_minimos

    Mensagem  ricaneli em 26/9/2018, 00:25

    Alexandre....
    obrigado pelo retorno...
    Infelizmente...não funcionou...Eu adaptei seu código ao módulo...porém ele apenas inverteu o que acontecia no campo2, e passou a funcionar no campo1, ou seja, o campo1 retorna se estiver só ele preenchido e faz comparações com com qualquer outro campo...Demais campos não retornam isoladamente e só fazem comparações se o campo1 estiver preenchido...

    Anexos
    Valores_min_IV.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 3 vez(es)
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7056
    Registrado : 05/11/2009

    Re: [Resolvido]Valores minimos III ModMinimo

    Mensagem  Alexandre Neves em 26/9/2018, 01:55

    Código:
    Function Menor5Campos(Optional Valor1, Optional Valor2, Optional Valor3, Optional Valor4, Optional Valor5) As Variant
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Dim bolIniciado As Boolean
       
        If Not (IsMissing(Valor1) Or IsNull(Valor1)) Then Menor5Campos = Valor1: bolIniciado = True
       
        If Not (IsMissing(Valor2) Or IsNull(Valor2)) Then
            If bolIniciado Then
                If Valor2 < Menor5Campos Then Menor5Campos = Valor2
            Else
                Menor5Campos = Valor2
                bolIniciado = True
            End If
        End If
       
        If Not (IsMissing(Valor3) Or IsNull(Valor3)) Then
            If bolIniciado Then
                If Valor3 < Menor5Campos Then Menor5Campos = Valor3
            Else
                Menor5Campos = Valor3
                bolIniciado = True
            End If
        End If
       
        If Not (IsMissing(Valor4) Or IsNull(Valor4)) Then
            If bolIniciado Then
                If Valor4 < Menor5Campos Then Menor5Campos = Valor4
            Else
                Menor5Campos = Valor4
                bolIniciado = True
            End If
        End If
           
        If Not (IsMissing(Valor5) Or IsNull(Valor5)) Then
            If bolIniciado Then
                If Valor5 < Menor5Campos Then Menor5Campos = Valor5
            Else
                Menor5Campos = Valor5
                bolIniciado = True
            End If
        End If
       
    End Function


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    ricaneli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 04/06/2016

    Modulo_valores_minimos

    Mensagem  ricaneli em 26/9/2018, 02:25

    Alexandre...!!!

    Parabéns....ficou perfeito...eu to sem palavras pra te agradecer e elogiar o seu conhecimento...!!!
    Muito obrigado mesmo...!!!

      Data/hora atual: 17/12/2018, 10:21