MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

    [Resolvido]Encontrar valores máximos e mínimos entre textbox

    avatar
    Cid197
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 15/07/2021

    [Resolvido]Encontrar valores máximos e mínimos entre textbox Empty [Resolvido]Encontrar valores máximos e mínimos entre textbox

    Mensagem  Cid197 15/7/2021, 13:20

    Bom dia a todos.

    Estou com uma dúvida que talvez seja simples. Mas, não encontrei nas pesquisas.

    Tenho 15 textbox no meu formulário e preciso encontrar os valores máximos e mínimos dentre eles e preencher outro textbox.

    Algo do tipo txtMaxValor = Max(txtvalor1 ... txtvalor15)
    txtMinValor = Min(txtvalor1 ... txtvalor15)

    Se alguém puder me ajudar, ficarei muito grato.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Encontrar valores máximos e mínimos entre textbox Empty Re: [Resolvido]Encontrar valores máximos e mínimos entre textbox

    Mensagem  Alexandre Neves 15/7/2021, 16:22

    Boa tarde, e bem-vindo ao fórum

    Utilize esta rotina
    Código:
    Sub PreencheMinimoEMaximo()
        '--------------------------------------------------------------'
        '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
        '    utilize o código livremente mas mantenha os créditos    '
        '--------------------------------------------------------------'
        Dim B As Byte
       
        txtMinValor = Me("TxtValor1")
        txtMaxValor = Me("TxtValor1")
        For B = 2 To 15
            If Me("TxtValor" & B) < txtMinValor Then txtMinValor = Me("TxtValor" & B)
            If Me("TxtValor" & B) > txtMaxValor Then txtMaxValor = Me("TxtValor" & B)
        Next
    End Sub


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

    Cid197 gosta desta mensagem

    avatar
    Cid197
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 15/07/2021

    [Resolvido]Encontrar valores máximos e mínimos entre textbox Empty Re: [Resolvido]Encontrar valores máximos e mínimos entre textbox

    Mensagem  Cid197 15/7/2021, 17:28

    Boa tarde Alexandre.

    Muito obrigado pela ajuda.
    Funcionou perfeitamente.

    Abs
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Encontrar valores máximos e mínimos entre textbox Empty Re: [Resolvido]Encontrar valores máximos e mínimos entre textbox

    Mensagem  Alexandre Neves 15/7/2021, 17:38

    Marque o botão "Resolvido" localizado na zona inferior direita do formulário do fórum


    .................................................................................
    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
    Cid197
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 15/07/2021

    [Resolvido]Encontrar valores máximos e mínimos entre textbox Empty Re: [Resolvido]Encontrar valores máximos e mínimos entre textbox

    Mensagem  Cid197 15/7/2021, 17:47

    Aprendendo a usar o fórum.
    Obrigado!

      Data/hora atual: 1/8/2021, 12:20