[Resolvido]GRUPO DE CAIXAS DE SELEÇÃO

Olá pessoal,

hoje venho com uma simples dúvida, porém não consigo resolvê-la. É o seguinte:

quero criar um grupo de caixas de seleção, não de opção, onde eu possa selecionar mais de uma caixa. Desta forma, importar os valores das caixas selecionadas para a tabela.

No meu formulário, isso se aplica a uma pergunta:

o cliente é portador de deficiências? 1-não 2-visual 3-auditiva 4-física 5-mental 6-outra.

Daí eu selecionaria as opções necessárias, importando os valores para o campo.

desde já agradeço!

Olá amigo:

Não sei qual é a sua dúvida. Se você fizer isso com caixas de selecção (sim/Não) o problema está resolvido, se bem entendi o seu problema.

dá pra fazer com listbox e um botão que manda as opções para a TxtBox

veja se ajuda:

Download exemplo

primeiramente obrigado pelo apoio dilson e vieira. Dilson, não era bem isso que eu queria, vou mostrar uma imagem do que quero de fato(anexo).

eu seleciono nessas caixas da figura e os valores importados para tabela!

Amigo dadokeys90

Esses valores não provem já de uma tabela? Não estou entendendo, podia ser mais claro?

uma alternativa!

numa caixa de combinação defina o numero de colunas como 2

selecione em Tipo de Origem da Linha = Lista de valores

Origem da Linha = "1"; "não"; "2"; "visual"; "3"; "auditiva"; "4" "física"; "5" "mental"; "6"; "outra"

e em Fonte do Controle = O campo onde você quer armazenar os dados, no nosso caso numéricos.

O sistema fica mais enxuto! com um item apenas...

Olá amigo

Ainda não entendi totalmente, mas criei este exemplo. Veja se é isto que quer?

http://dl.dropbox.com/u/8157744/dadokeys90.zip

utilizei o exemplo do amigo vieira .... pra colocar uma com grupos de opção vinculada a um só campo da tabela....


grpOpção

é simples mas já traz uma noção de como utilizar este recurso...

Muito obrigado mais uma vez pessoal!! era isso mesmo que eu queria Vieira. A adaptação do amigo Jungli saiu um pouco do que eu queria, pois só poderia selecionar apenas uma caixa, porém com ajuda de vocês já consegui resolver o problema. vlw!!

RESOLVIDO!

Valeu e obrigado pelo retorno

pessoal, ñ sei se posso reabrir esse tópico, mas preciso saber um código para obrigar a seleção de ao menos uma das caixas de seleção!

Faça isso através da caixa de texto que recolhe o valor das caixas de selecção:

If IsNull(Me.caixatxt) Or Me.caixatxt="" Then
Call MsgBox("Por favor seleccione....." & vbCrLf & "Não pode deixar a selecção em branco", vbCritical, "Concluir")
Else
resposta a um evento positivo...o utilizador clicou numa caixa de selecção..Faz saída, close ou Quit
End If

amigo vieira, já tentei fazer algo parecido, mas o problema é que eu tenho seis caixas de seleção,na verdade um grupo da caixas, porém independentes, uma das caixas anula as outras caixas, mas as outras cinco podem ser marcadas, mesmo que pelo menos uma:

algo assim:

Private Sub cmd_salvar_Click()

if opt_auditivo.value = false and opt_visual.value = false and... opt_nenhum.value = false then
msgbox "Você tem que marcar pelo menos uma das caixas!"

end if
end sub

ou seja, se todas as caixas tiverem desmarcadas ele não savará, a não ser que pelo menos uma seja selecionada!

Eu acho que tenho aqui algures o exemplo que lhe enviei. Vou dar uma vista de olhos naquilo pois já não me recordo bem. Assim que chegar a casa.

Olá de novo

Não encontrei o exemplo, mas também não faz mal. Você pode fazer isso opt a opt, o que não é correcto se tiver mais que duas caixas, assim


If Me.NomeDaSuaCaixaDeSeleção = -1
Call MsgBox("Por favor seleccione....." & vbCrLf & "Não pode deixar a selecção em branco", vbCritical, "Concluir")
Else
resposta a um evento positivo...o utilizador clicou numa caixa de selecção..Faz saída, close ou Quit
End If

Bom na minha perspectiva, esses valores das suas caixas vão para caixas de texto que recolhem os valores. Então veja esta função do Mestre JPaulo e utilize as caixas de texto:

Preenchimento Obrigatório de Campos TextBox no Formulario

Todos os campos terão de ter o nome dos mesmos, nas propriedades, Aba Outros, Linha Marca (Tag).

Public Function ValidaPreenchimento() As Boolean
'By JPaulo ® Maximo Access
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
If IsNull(ctl.Value) Then
MsgBox "O Campo '" & ctl.Tag & "' não pode ficar em branco"
ctl.SetFocus
Exit Function
End If
End If
Next
End Function

Private Sub SeuBotão_Click()
Call ValidaPreenchimento
End Sub

Amigo

Já baixei o exemplo que lhe tinha enviado. Então é assim, no exemplo temos várias caixas de verificação e caixas de texto que recolhem os valores do grupo de verificação.

Você pode utilizar essas caixas de texto com a instrução IsNull para verificar se elas estão vazias ou não. Pode tornar uma delas obrigatória, o que seria mais fácil para evitar a saída sem marcar.

amigo vieira, este último já solucionei, mas tenho uma dúvida quanto a um outro código, eu tenho duas combos, uma que pergunta se a mulher é gestante "sim/não", e outra que complementa a combo anterior caso o operador escolha "sim", esta última informa qual mês de gestação a mulher está. no evento click do botão salvar inseri:

Private Sub cmd_salvar_Click()
if Me.cmb_gestante.Value = "SIM" And Me.cmb_mes.Value = 0 Then
Beep
MsgBox "Selecione um mês de gestação", vbExclamation, "Preencher campo obrigatório"
Me.cmb_gestante.SetFocus
end if
end sub

coloquei esta tbm, ao perder foco da combo mês:

Private Sub cmb_mes_LostFocus()
If cmb_gestante.Value = "SIM" And IsNull([cmb_mes]) Then
MsgBox "Selecione o mês de gestação!", vbExclamation, "Formulário de Componente"
Me.cmb_gestante.SetFocus
End If
End Sub

nenhuma delas deu certo... poderiam me ajudar neste procedimento!?!

quero que se cmb_gestante for "sim" e o campo cmb_mês estiver vazio o access não salve o registro, se ñ fui claro podem retornar!

Amigão

Coloque aqui para download como fez da outra vez, pois neste momento não tenho condições de ver isso. Faça isso.ok.

amigo vieira,

está aqui o exemplo!

Ok, amigão

Logo que termine aqui com uns clientes eu vou ver isto.

Dados

Passe a bd para o 2003 por favor

aqui está!

Amigão

Veja se é isso que quer

http://dl.dropbox.com/u/8157744/combos2.rar

amigo vieira,

com o isnull deveria dar certo este código, tbm usei o isnull anteriormente, mas ainda assim não funcionou, não sei porque insiste em não pegar, pois acredito que o código esteja certo, pode ser problema com o sistema ou máquina?!

outra coisa, neste exemplo quando vc seleciona "sim" no cmb_gestante e não seleciona nada(propositalmente) no cmb_mes e depois clica em salvar, o form fecha ou apareçe a msgbox?! Esse é o x da questão, pois o meu tá fechando e salvando, mesmo na linha de código discriminando que só pode salvar se o cmb_mes tiver preenchido!

aguarde um pouco que eu vou

Amigo

Está tudo certo, o que você está a referir é na saída do form ao carregar no botão salvar e ambas as combos estiverem nulas, é isso, mas o resto está certo. Vou ver isto e passo já.

Amigo

Baixe, mas não esqueça de apagar primeiro a base de dados anterior.

Espero que esteja do seu agrado
http://dl.dropbox.com/u/8157744/combos2.rar

(MESTRE E AMIGO) VIEIRA COM SUA PERMISSÃO DEI MAIS UMA IMPLEMENTADA ...

http://www.esnips.com/doc/7af4689d-64e6-41f8-8033-29659b190037/combos2

Toda a ajuda sempre bem-vinda amigo Jungli. ò sexta feira hoje e ainda não terminou!

amigos vieira e jungli, era isso mesmo que estava buscando... mas uma vez obrigado!

Obrigado pelo retorno. O Fórum agradece