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

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:



Obrigado pela ajuda.

Luis.

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.
https://www.maximoaccess.com/t1115-busca-no-forum-search

Abraço

Olá Luis Bochnia,

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




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

Boa tarde ahteixeira.

Muito Obrigado!!

Era isso mesmo que eu precisava.

Abraço.

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:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço