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]Como aumentar o tamanho da caixa de seleção

    Compartilhe

    Luis Bochnia
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 02/05/2017

    [Resolvido]Como aumentar o tamanho da caixa de seleção

    Mensagem  Luis Bochnia em Seg 04 Set 2017, 19:52

    Boa tarde a todos.

    Estou com um form em que preciso usar várias Caixas de Seleção sem titulo.

    A ideia é a seguinte, quero usar as Caixas de Seleção para marcar um desenho de caminhão com 3 opções diferentes: Cheia (v), Vazia (◘) e Intermediária (■). Isso servirá para realizar um calculo.

    Depois de o desenho estar completamente preenchido o Access deve fazer o calculo.

    Também, preciso que o desenho das Caixas de Seleção fiquem maiores, pois o padrão do Access é muito pequeno.

    Exemplo do desenho que quero fazer:

    [Você precisa estar registrado e conectado para ver esta imagem.]

    Obrigado pela ajuda.

    Luis.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4534
    Registrado : 15/03/2013

    Re: [Resolvido]Como aumentar o tamanho da caixa de seleção

    Mensagem  ahteixeira em Seg 04 Set 2017, 21:16

    Olá Luis, Bem Vindo ao fórum.

    Se necessita das caixas de seleção maiores, acho que não permite.
    Talvez seja melhor uma caixa de texto.

    Por exemplo ao clicar uma vez passa para meio (pode simular com preenchimento a 50%) ao clicar novamente (preenche a 100%) ao clicar novamente (limpa vazio).
    Depos será cada caixa de texto guardar o estado para os calculos.

    Efetue uma busca no fórum tem exemplos do preenchimento da caixa de testo.
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço

    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4534
    Registrado : 15/03/2013

    Re: [Resolvido]Como aumentar o tamanho da caixa de seleção

    Mensagem  ahteixeira em Qua 06 Set 2017, 13:16

    Olá Luis Bochnia,

    Tive um tempinho e elaborei um exemplo do que descrevi na mensagem nº 2, veja como fica com 3 caixas:

    [Você precisa estar registrado e conectado para ver este link.]


    Para o efeito, foi criada a seguinte função:
    Código:
    Function fncAtualizaCaixas(Optional nCx As Integer = 0)
    'Alvaro Teixeira  (ahteixeira) 2017 para MaximoAccess
    Dim i, x, cInicio, cFim As Integer

        If nCx = 0 Then
            cInicio = 1
            cFim = 3
        Else
            cInicio = nCx
            cFim = nCx
        End If
      
        For x = cInicio To cFim
            'atribuir valor a cada click 0,50,100
            If nCx <> 0 Then
                If Me("cx" & x) = 100 Then
                    Me("cx" & x) = 0
                Else
                    Me("cx" & x) = Me("cx" & x) + 50
                End If
            End If
        
            'preencher cor caixa de texto
            i = Me("cx" & x) * 5
            
            If i = 0 Then
                Me("barra" & x).Visible = False
            Else
                Me("barra" & x).Width = i
                Me("barra" & x).Visible = True
            End If
        Next x
    End Function


    No evento ao "clicar", indicamos o numero da caixa, assim só atualiza a caixa atual, veja exmplo para a caixa 2:
       Call fncAtualizaCaixas(2)

    Se pretendermos atualizar todas as caixa (para funcionar ao navegar pelos registos) não colocamos o parametro na chamada da função:
       Call fncAtualizaCaixas()

    Abraço
    Anexos
    CaixasPreencherClick_CarregarEntrega.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 8 vez(es)

    Luis Bochnia
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 02/05/2017

    Re: [Resolvido]Como aumentar o tamanho da caixa de seleção

    Mensagem  Luis Bochnia em Seg 11 Set 2017, 19:43

    Boa tarde ahteixeira.

    Muito Obrigado!!

    Era isso mesmo que eu precisava.

    Abraço.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4534
    Registrado : 15/03/2013

    Re: [Resolvido]Como aumentar o tamanho da caixa de seleção

    Mensagem  ahteixeira em Ter 12 Set 2017, 10:46

    Olá Luis Bochnia, fico feliz por ter ajudado.
    Obrigado pelo retorno os utilizadores do fórum agradecem.

    Faltou dar o tópico como Resolvido, desta vez eu dou, no entanto veja como é efetuado:
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço

      Data/hora atual: Ter 21 Nov 2017, 17:39