[Resolvido]Caixa de Alternativas

Boa Noite Amigos, já procurei em todo lugar algo desse tipo e não encontrei, o que eu quero fazer é o seguinte:
tenho uma tabela com algumas alternativas, só que dentro dessas alternativas tem outras alternativas, e é esse o problema. quero que ao clicar em um campo (tipo de dados sim/não) apareça as outras alternativas embutidas na primeira.
Ex: se eu clicar em Bolsa Família , apareça outros campos como bloqueado, cancelado, cadastro novo etc... com os mesmo tipo de compo (sim/não)
conto com a ajuda de vocês

Olá boa noite.

fácil de fazer e simples.

vamos utilizar o visible. Se nessa tabela a qual você se refere, contiver os campos ditos na tua pergunta (bloqueado, cancelado, cadastro novo ) será mais ou menos assim:

a- inicie o formulário com todos os campos contidos nele como:

me.nome.enable=false
me.endereco.enable=false
...
...
...
me.bloqueado.visible=false
me.cancelado.visibel=false

Esse código evita inserções acidentais


No botão novo habilite todos os campos com true, menos os que você quer esconder.


na caixa de seleção da bolsa familia....... sim ou não:

if bolsafamilia <> "L" then

bloqueado.visible=true
cancelado.visible=true

end if

bons estudos.

obrigado Silvio
deixa ver se entend, crio um formulário com todos os campos que preciso (pode ser usando o assistente) depois vou VBA e coloco esses comando ai. conforme minhas nessecidades.
precisa colocar algo antes só esses ai é o suficiente, pois tudo que fiz até agora foi só através do acces, ainda não usei o VBA.
Vou Tentar aki, qualquer coisa retorno pra dizer se deu certo ou não, enquanto isso,+ uma dúvida. da pra fazer isso como tabelas relacionadas? ou só se tiver tudo na mesma tabela?
Obrigado

Bom dia...

De uma olhada nesse exemplo. Veja se ele pode lhe atender. Ele foi feito em Access 2007.

abraços.

essa tabela acima não ajudou, pois não tem o que eu quero.

Private Sub Form_frmatendimentodiario()

Me.IdAtendimento.enable = False
Me.Data_Atendimento.enable = False
Me.Assistente_Social.enable = False
Me.CadastramentoProjeto.Visible = False
Me.atualizacaocadastral.enable = False
Me.inclusaocadunico.enable = False
Me.entregaenxoval.enable = False
Me.Fonoaldiologo.enable = False
Me.FamiliasEncaminhadasParaCREAS.enable = False
Me.IndividuoencaminhadoacessoBPC.enable = False
Me.PalestraSocioEducativa.enable = False
Me.psicologo.enable = False
Me.ATUALIZAÇÃO.Visible = False
Me.BLOQUEIO.Visible = False
Me.CANCELAMENTO.Visible = False
Me.CADASTRO_NOVO.Visible = False
Me.transferencia.Visible = False
Me.Outro motivo.Visible = False



End Sub

Private Sub PBF_Click()
If PBF <> "L" Then

Me.IdAtendimento.Visible = True
Me.Data_Atendimento.Visible = True
Me.Assistente_Social.Visible = True
Me.CadastramentoProjeto.Visible = True
Me.EncaminhamentoAtualizacaoCadastral.Visible = True
Me.EncaminhamentoInclusaoCadunico.Visible = True
Me.EntregadeEnxoval.Visible = True
Me.Fonoaldiologo.Visible = True
Me.FamiliasEncaminhadasParaCREAS.Visible = True
Me.IndividuoencaminhadoacessoBPC.Visible = True
Me.PalestraSocioEducativa.Visible = True
Me.Psicólogo.Visible = True
Me.BLOQUEIO.Visible = False

End If

End Sub

ta acontecendo o seguinte, quando seleciono a caixa PBF o nome bloqeio desaparece, e era pra aconter ao contrario, era pra ficar invisivel e aparecer somente quando eu clicasse em PBF. mas já é alguma coisa.
se alguém puder me dar uma luz...

Boa noite.

Não tendo a tua estrutura de tabelas, fiz algo para que você pude-se ver, é apenas um exemplo e nada mais que isso. O exemplo em si, serve apenas de orientação.

Caso queira, siga as regras de envio de arquivos zipados para cá, que eu dou uma olhada nele.

Grato.

tai, ainda tou tentando fazer alterações, ta acontecendo assim, os nomes que são pra ficar ocutos estão aparecendo, mas quando clico no campo que é pra fazer aparecer (PBF) os objetos ficam ocutos e não aparecem mais, mesmo que eu desmarque a opção, vou fuçando aki. vê o que você pode fazer.

Bom dia...estou com ele aqui.

Porém....esta em formato Accdr. Podes fornecer o user e password ?

O correto, seria nos mandar em formato: ACCDB.

mas ele esta em ACCDB, não tem senha (loguim-password) ainda não fiz configurações de segurança, pois o projeto ainda esta longe de ser concluido, ele foi compactado como winrar, e aki ta normal, mas se for preciso envio novamento.

vou abrir com o win rar.....

Mesmo abrindo com o Winrar, veja o que vem para nós.

Mil descupas Silvio, te mandei o arquivo errado, mas segue abaixo o verddeiro, e mais uma vez desculpas

Boa tarde...

Eis o código,

Private Sub PBF_Click()
If PBF.Value = True Then

Me.ATUALIZAÇÃO.Visible = False
Me.BLOQUEIO.Visible = False
Me.CANCELAMENTO.Visible = False
Me.CADASTRO_NOVO.Visible = False
Me.TRASNFERENCIA.Visible = False
Me.Outro_Motivo.Visible = False

Else
Me.ATUALIZAÇÃO.Visible = True
Me.BLOQUEIO.Visible = True
Me.CANCELAMENTO.Visible = True
Me.CADASTRO_NOVO.Visible = True
Me.TRASNFERENCIA.Visible = True
Me.Outro_Motivo.Visible = True

End If

End Sub


Aqui " funfou " legal....teste e me informe.

Abraços.

é mais ou menos isso, só que esta acontecendo ao contrario, pelo menos comigo, os campos estão visíveis, só somem quando clicado em PBF, e é pra acontecer ao contrário, ficarem invisíveis, só aparecer quando selecionado o campo do PBF. estamos a um passo do sucesso meu grande mestre (Silvio)

ops: deu certo!!!
só inverti a ordem dos comando e tudo beleza.
veja como ficou:

Private Sub PBF_Click()

If PBF.Value = True Then

Me.ATUALIZAÇÃO.Visible = True
Me.BLOQUEIO.Visible = True
Me.CANCELAMENTO.Visible = True
Me.CADASTRO_NOVO.Visible = True
Me.TRASNFERENCIA.Visible = True
Me.Outro_Motivo.Visible = True

Else
Me.ATUALIZAÇÃO.Visible = False
Me.BLOQUEIO.Visible = False
Me.CANCELAMENTO.Visible = False
Me.CADASTRO_NOVO.Visible = False
Me.TRASNFERENCIA.Visible = False
Me.Outro_Motivo.Visible = False

End If

End Sub

isso da certo também com guias?

espero um dia poder retribuir a todos vocês que tem me ajudado com toda paciencia e vontade, pesso a Deus neste momento que o pagamento venha 10x mais.
Deus abençoe a todos vocês.
OBRIGADO

Boa noite.

Sim, pode ser feito com as guias.

O fórum agradece o teu retorno.

Abraços.