[Resolvido]Selecionar várias opções em um grupo de opções

Amigos, a questão é a mesma do título, tem alguma forma talvez via código, de selecionar mais de uma opção num grupo de opções??

Já vi um tópico questionando a mesma coisa, mas abri esse, pois, a resposta do citado tópico foi que ele não deveria utilizar um grupo de opções e sim vários botões de opção vinculados a respectivos campos cada um para cada opção que ele tivesse no formulário.

Contudo, porém, todavia, estou necessitando criar vários grupos de opção e pra ser mais exato 30 grupos de opções com 15 opções cada um onde eu possa selecionar quantas opções sejam necessárias...

tem como fazer isso via código?

O meu caso é que se eu criar um botão de opção para cada opção que eu tenho no meu formulário vou ter que criar cerca de 450 botões, cada um vinculado a um campo, e isso seria mais do que o limite de 255 campos por tabela e por formulário!

To ficando louco já galera ....

Imaginem um formulário onde eu tenha além dos campos tradicionais de data, texto, nome, etc etc etc... tenha também cerca de 450 botões de opções que podem ser até mesmo todas selecionadas de uma só vez em um só registro e todas tem que ser salvas ou vinculadas de alguma forma;....
porém com o limite de 255 campos por tabela e por formulário isso se torna impossível....

se fosse possível selecionar varias opções e um único grupo de opções meu problema estaria resolvido....

estou deixando aqui anexo também a estrutura do meu formulário para quem puder dar uma análisda POR FAVOR!

Obrigado + uma vez!

Use as checkbox normal, dái você faz o que deseja

O que acontece é que um quadro de opções salva a opção escolhida em apenas um campo da tabela, ou seja, ele pega o número de identificação da opção escolhida. Por isso a impossibilidade de se escolher mais de uma opção. Uma saída poderia ser colocar as chackbox sem ser por grupo de opções, pois o formulário aceita mais de 255 campos. Depois, via vba, você pode colocar todas as opções de um grupo em um único campo. Vamos supor que um grupo de opções tenha as opções op1 até op20 e o usuário tenha selecionado as opções op2, op5, op12 e op17. Em um único campo da tabela que representa esse grupo de opções, ficaria assim: op2,op5,op12,op17. Quando for consultar esse registro, pode ter uma função que faz um split no campo separando os dados pela vírgula, marcando aqueles checkboxes cujo nome estiver na lista.

Vamos ver se entendi Criquio, você diz colocar todas opções como checkbox sem grupo mesmo e depois via VBA fazer um split de todos os check box para salvar as check box que foram selecionadas em um único campo separados por vírgula. É + ou - isso?

Se for, como ficaria o código?

você poderia me dar um exemplo ai com 5 check box pra mim ver como vou ter que fazer? com 450 =]

André,

Pode ser feito como o Amigo Criquio indicou. Melhor, será criar o formulário com a lógica pretendida que, depois, nós o ajudaremos no código

Na verdade, o Split seria para quando for consultar um registro já gravado, aonde seria feita a separação pela vírgula. Para gravar os dados, seria o contrário, você faria a junção dos nomes de todos os que estiver marcado. Para facilitar, eu nomearia os checkbox pegando parte do nome do grupo. Vamos supor um grupo de Materiais. Os checkboxes desse grupo se chamariam Mat0 até Mat19 por exemplo. Você poderia ter algo assim:

Código:

Dim N As Integer

For N = 0 To 19
    If Me("Mat" & N) = -1 Then
        If IsNull(Me.NomeDeUmCampo) Or Me.NomeDeUmCampo.Value = "" Then
            Me.NomeDeUmCampo = "Mat" & N
        Else
            Me.NomeDeUmCampo = Me.NomeDeUmCampo & ",Mat" & N
        End If
    End If
Next

Isso seria para colocar os nomes de todos os checkboxes selecionados dentro de um campo no formulário. Mas pode ser alterado para gravar direto na tabela ao clicar em um botão de salvar na tabela.
Para fazer a consulta marcando os campos cujos nomes estiverem na lista desse campo da tabela é que usaria o Split. Algo parecido com:

Código:

Dim Nomes As String, Lista As Variant, N As Integer

Nomes = rs!Materiais
Lista = Split(Nomes, ",")

For N = 0 To UBound(Lista)
    Me("Mat" & N) = -1
Next

Com esse segundo bloco, marcaria-se todos os checkboxes cujos nomes estivessem na lista.

Então amigos, até tentei escrever o código aqui, mas ainda sei muito pouco de vba, o formulário com a lógica que eu vou usar é esse que anexei na primeira menssagem desse post. Vocês poderiam por favor implantar o código nele ou mesmo em outro exemplo qualquer com poucas opções, que se eu tiver um pequeno exemplo funcionando da forma que me propuseram eu conseguirei implantar em todas as opções do meu formulário!
Obrigado amigos, tomara que de certo!

Boa noite, andre

veja este pequeno exemplo que lhe preparei.
O seu caso parece-me semelhante. Adapte-o
http://dl.dropbox.com/u/24017093/MaximoAccess/ExemploAndreJr.rar

Alexandre, obrigado pela tentativa, mas não é isso! Você colocou botões de opção desaclopados e o código que você colocou só esta fazendo com que ao selecionar todos os botões de dia da semana o botão semana completa fique true, agradeço a tentativa mas isso não é o que eu estou precisando amigo!

Preciso que OU todas as opções sejam aclopadas a um campo cada em uma tabela para que cada registro do formulário possa ser devidamente registrado e salvo e já adianto que essa opção já se mostrou não ser possível, pois, já tentei de diversas formas usar mais de uma tabela, mas não adianta, se passar de 255 campos não dá mesmoo.... você pode ter 30 tabelas, se a soma dos campos utilizados dessas 30 tabelas no formulário for superior a 255 ele não aceita de jeito nenhum...

ENTÃO a alternativa que pode dar certo é a que o Criquio propos que é aquele código milagroso, que o criquio diz que faz com que as informções das opções sejam registradas em poucos campos separadas por vírgula e utilizando o Split...
Era essa opção que gostaria de ver implantada em um exemplo para eu poder adaptar aqui nos meus 450 campos de opções!

Andre,

Julguei que tinha alguns casos que as opções podiam não ser únicas dentro do grupo de opções.
Se o grupo de opções lhe serve, não estou a entender o porquê de não lhe servir da forma que o Access o dispõe.
Se consegue armazenar em menos de 255 é um passo importante. Agora, vamo-nos debruçar em trabalhar cada campo. Assim, crie apenas um campo e no formulário um grupo de opções. Se nos entendermos nesse grupo, avança-se para os restantes.

Alexandre você julgou corretamente, na verdade no meu formulário todas as opções podem ser selecionadas em um unico registro ao mesmo tempo.

Alexandre se você se der o trabalho de fazer o download do exemplo que anexei no primeiro post chamado 255campos.ZIP e der uma análisada nele no modo design dele no modo formulário, for lá e clicar nos quadradinhos que tem lá você vai acabar entendendo perfeitamente o que eu estou me matando pra tentar explicar e também vai ver que eu já consegui uma forma de fazer os campos poderem ser selecionados ao mesmo tempo com um X.... só não consegui ainda foi preencher todos os quadradinhos até a ultima linha e isso você pode enxergar no modo design do meu formulário.... vai ver q está incompleto pois está até a 11º linha apenas!

Aqui eis um exemplo conforme eu havia entendido. Leia a descrição no formulário.

Aeeeeee \o/ era isso que eu precisava mesmo Criquio, você conseguiu uma forma de salvar a seleção de várias opções em apenas um campo =D
Agora só vou adptar isso as minhas 450 opções kkkk e pronto! vai dar um trabalhinho extra mais vai dar certo!
Obrigado por mais esse código milagroso parceiro!! =]

Ótimo que ajudou. Agradecemos pelo retorno.

Concerteza ajudou Criquio, agora só mais uma questão!

Tem como fazer esse mesmo código ao invés de CBox Checkbox para caixa de texto?

Pq não sei se você tinha reparado no meu exemplo que anexei, mas eu estava trabalhando com caixas de texto onde no primeiro clique aparecia um x e com 2 cliques sumia e também coloquei nelas a regra de validação = a "x"

Queria continuar a usar as caixas de texto pq as Checkbox não estão ficando bem centralizadas e a linha delas não fica transparente o que deixou meu formulário um pouco feio =]

Tem como fazer para caixas de texto amigo? Se sim como seria?
Obrigado!

Poucas alterações:

Código:

Private Sub btnConfirmar_Click()

Dim CBox As Control

For Each CBox In Me.Controls
    If CBox.ControlType = acTextBox Then
        If CBox.Name <> "txtCampos" Then
            If CBox.Value = "X" Then
                If IsNull(Me.txtCampos) Or Me.txtCampos.Value = "" Then
                    Me.txtCampos = CBox.Name
                Else
                    Me.txtCampos = Me.txtCampos & "," & CBox.Name
                End If
            End If
        End If
    End If
Next

End Sub

Código:

Private Sub Form_Current()

Dim CBox As Control

For Each CBox In Me.Controls
    If CBox.ControlType = acTextBox Then
        If CBox.Name <> "txtCampos" Then
            CBox.Value = ""
        End If
    End If
Next

If Not IsNull(Me.txtCampos) Then
    Dim Nomes As String, Lista As Variant, N As Integer

    Lista = Split(Me.txtCampos, ",")

    For N = 0 To UBound(Lista)
        Me("" & Lista(N) & "").Value = "X"
    Next
Else
End If

End Sub

Beleza Criquio, fiz as alterações e deu alguns bugs com as outras caixas de texto que não tinham nada ver com a história, apesar disso, funcionou depois que eu reconstrui o formulário e a tabela do zero!

Maasss já esbarrei em um novo probleminha, o espaço do campo Materiais, que ficou como "txtCampos" se tornou insuficiente para receber os dados, quando percebi esse probleminha no inico eu fui adicionando ao código no evento "no atual" algumas linhas que apagam o conteúdo do campo antes de inserir mais dados, tipo assim:

tenho 465 caixas de texto recebendo o valor "x" ao serem clicadas, elas se chamam T1, T2, T3, ..., T464, T465
conforme clico nelas, elas recebem o "x" e o campo "Materiais" txtCampos recebe o nome delas conforme seu condigo ou seja: T1, T2, T3 e todas as que foram selecionadas... porém esse espaço se tornou insuficiente em um certo ponto, então inseri códigos no evento "no atual" para apagar o conteúdo dessas caixas de texto antes de adicionar mais conteúdo, da seguinte forma:

Private Sub Form_Current()
T1 = ""
T2 = ""
t3 = ""
T4 = ""
T5 = ""
T6 = ""
T7 = ""
...
e assim por diante até 465...
...
T464 = ""
T465 = ""

Dim CBox As Control

For Each CBox In Me.Controls
If CBox.ControlType = acTextBox Then
If CBox.Name <> "txtCampos" Then

End If
End If
Next

If Not IsNull(Me.txtCampos) Then
Dim Nomes As String, Lista As Variant, N As Integer

Lista = Split(Me.txtCampos, ",")

For N = 0 To UBound(Lista)
Me("" & Lista(N) & "") = "x"
Next
Else
End If

End Sub


Estava indo tudo bem, ((PORÉM)), como para não perder a graça sempre tem que ter um porém, ocorreu que quando eu preencho com o "x" o total de 67 caixas de texto dando um clique e tento então confirmar com o botão confirmar ocorre que o espaço do campo "Materiais", txtCampos se torna insuficiente, mesmo apagando ele antes de inserir novos dados!

Aparece a menssagem de Erro em tempo de execução, o campo é muito pequeno para aceitar a quantidade de dados que você tentou adicionar. Tente inserir menos dados.

Bom eu tentei solucionar criando um novo campo na tabela para receber mais dados chamado "Materiais1" e coloquei o noem dele de "txtCampos1"

tentei adicionar linhas de códigos constando este novo campo, mas, esbarrei na minha limitação como programador!

Enfim amigo Criquio gostaria que fosse possível no formulário selecionar todas as 465 caixas de texto por registro e salvar as mesmas via código em quantos campos forem necessários, sendo assim, A QUESTÃO É! Como fazer para adicionar os dados que não cabem mais no campo txtCampos em um novo campo chamado txtCampos1??

Qual é o tipo do campo na tabela? Se não estiver como memorando, tente colocar. Uma dica adicional para ignorar campos na hora de pegar os nomes deles. Vamos supor que tenha uns 10 campos que não devem entrar na roda. Você ir nas propriedades deles, na abra Outra, linha Marca e digitar algo como ForaDaRoda e então adicionar como critério na função:

For Each CBox In Me.Controls
If CBox.ControlType = acTextBox Then
If CBox.Tag <> "ForaDaRoda" Then
...

Tem outra propriedade que pode ser usada tambem. É a linha "Marcas inteligentes" da aba Dados. Na função, ficaria assim:

For Each CBox In Me.Controls
If CBox.ControlType = acTextBox Then
If CBox.SmartTag <> "ForaDaRoda" Then
...

Criquio obrigado novamente, eu na afobação ne percebi que o campo estava como texto mesmo!

Coloquei como memorando e acabou o problema de espaço, bom pelo menos até agora, pq ainda não terminei de colocar todos os 465 campos, mas acredito que em memorando vai caber tudo =D

Obrigado pela dica adicional, nem imaginava para que servia aquela Tag e smartTag =]

Bom dia a todos. Estou precisando dessa mesma função e ao testar
o exemplo, percebi que depois de confirmado não consigo desmarcar e salvar
em branco ou até mesmo com novas marcações. Ele acumula,com repetição. O que fazer?
Agradecida.
Abraços

Boa tarde, Moêma
Não percebi qual parte não funciona. Mesmo assim, disponibilize parte da bd que não funciona para se avaliar

Oi Alexandre, testei o exemplo Grupocheckbox.... Os outros vou testa e dou retorno. Obgda

Boa tarde pessoal, eu precisava de mais ou menos a mesma coisa. Porém, com alguns detalhes. Eu estou usando em um formulário de cadastro, e desejo marcar para definir determinada característica. Por exemplo, faço cadastro de uma pessoa, e defino se essa pessoa vai ser um cliente, ou um fornecedor, ou ambos. É possível? Vou anexar uma imagem para ficar mais fácil visualizar.[img][/img]

Desde já, obrigado

bom dia a todos!
Este programa desenvolvi para Assistência Social. Deixei para ser testado para depois finalizá-lo.


Disponibilizo para vocês.
O que eu queria fazer se encontra na segunda aba (Situação Familiar (Vulnerabilidade).

Espero que possa ajudar com esse exemplo.

Usuário: admin
Senha: admin

Para liberar a aba Ribbon, clique em Permissão e senha = trindade

Boa sorte!!