Formatação condicional para caixa de opção (checkbox)

julianovv 1/3/2012, 20:34

julianovv: Super Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 680
Registrado : 14/12/2010

Mensagem nº1

Formatação condicional para caixa de opção (checkbox)

Mensagem julianovv 1/3/2012, 20:34

Boa tarde. Tenho algumas caixas de opção no meu formulário e preciso que elas sejam ativadas assim que o campo anterior for preenchido. O recurso de formatação condicional não funciona para esse tipo de controle.
Alguém tem alguma sugestão?
Obrigado!

Rolling Eyes

Última edição por julianovv em 5/4/2012, 18:51, editado 2 vez(es)

Convidad 1/3/2012, 20:42

Convidad

Convidad: Convidado

Mensagem nº2

Re: Formatação condicional para caixa de opção (checkbox)

Mensagem Convidad 1/3/2012, 20:42

Olá!

Tente este código. Altere os nomes conforme os do seu form.


Private Sub CampoAnterior_AfterUpdate()
   If Not IsNull(Me.CampoAnterior) Then
      Me.CkeckBox1 = True
      Me.CkeckBox2 = True
      Me.CkeckBox3 = True
      ' enumere todas suas CheckBox's
   End If
End Sub

julianovv 1/3/2012, 21:10

julianovv

julianovv: Super Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 680
Registrado : 14/12/2010

Mensagem nº3

Re: Formatação condicional para caixa de opção (checkbox)

Mensagem julianovv 1/3/2012, 21:10

Obrigado. Fiz o teste aqui e não desativou.

pale

Convidad 1/3/2012, 21:23

Convidad

Convidad: Convidado

Mensagem nº4

Re: Formatação condicional para caixa de opção (checkbox)

Mensagem Convidad 1/3/2012, 21:23

Na msg 1 vc diz "ativadas". Quis dizer no sentido Enabled (habilitado/desabilitado) ou marcado/desmarcado (Sim/Não)?
E agora vc diz que "não desativou".
Como, exatamente, quer a definição das CheckBox's?
Pode ser Bloqueado(S/N), Ativado(S/N) e Marcado(True/False).

Convidad 1/3/2012, 22:01

Convidad

Convidad: Convidado

Mensagem nº5

Re: Formatação condicional para caixa de opção (checkbox)

Mensagem Convidad 1/3/2012, 22:01

Para habilitar/desabilitar


Private Sub CampoAnterior_AfterUpdate()
   If Not IsNull(Me.CampoAnterior) Then
      Me.CkeckBox1.Enabled = False
      Me.CkeckBox2.Enabled = False
      Me.CkeckBox3.Enabled = False
      ' liste todas suas CheckBox's
   End If
End Sub

Talvez precise de um evento para atualizar na navegação:

Private Sub Form_Current()
   If Not IsNull(Me.CampoAnterior) Then
      Me.CkeckBox1.Enabled = False
      Me.CkeckBox2.Enabled = False
      Me.CkeckBox3.Enabled = False
      ' liste todas suas CheckBox's
   Else
      Me.CkeckBox1.Enabled = True
      Me.CkeckBox2.Enabled = True
      Me.CkeckBox3.Enabled = True
      ' liste todas suas CheckBox's
   End If
End Sub

Para bloquear/desbloquear, altere Enabled para Locked.
Para obter o efeito contrário, troque False por True e vice-versa.

julianovv 2/3/2012, 19:45

julianovv

julianovv: Super Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 680
Registrado : 14/12/2010

Mensagem nº6

Re: Formatação condicional para caixa de opção (checkbox)

Mensagem julianovv 2/3/2012, 19:45

Olá, eu me referi a desativada. O campo fica cinza. Ele bloqueia o campo e o deixa cinzelado.
Houve uma mudança aqui nos esquemas. Os campos de caixas de opção eu tive de mudá-los para grupo de opção (aquele que marcamos apenas um item no grupo). Isso significa que preciso de empurrão para desabilita-lo pois a formatação condicional também não funciona para esse tipo de controle. Rolling Eyes

E, falando em formatação condicional, tenho uma caixa de opção no formulário principal que o usuário marca para desabilitar todos os campos e considerar o registro finalizado e não-editável.
Preciso fazer uma referência a essa caixa no subformulário e no sub-subformulário. Tentei a expressão [Frm_Cadastro]![Fechada]=sim mas não quer funcionar.

Pensei se existe a possibilidade de ao clicar nessa caixa para marcar, ela fosse copiada para outra caixa na tabela secundaria do primeiro subformulário e na terceira tabela. Assim a formatação condicional para cada subformulário funcionaria.

Alguma sugestão? Wink

Convidad 2/3/2012, 19:59

Convidad

Convidad: Convidado

Mensagem nº7

Re: Formatação condicional para caixa de opção (checkbox)

Mensagem Convidad 2/3/2012, 19:59

Então, defina a propriedade do controle GrupoDeOpções como Enabled = False após a atualização do campo em questão, se ele não for Nulo.


Private Sub CampoAnterior_AfterUpdate()
   If Not IsNull(Me.CampoAnterior) Then
      Me.NomeDoSeuGrupoDeOpções.Enabled = False
   Else
      Me.NomeDoSeuGrupoDeOpções.Enabled = True
   End If
End Sub

julianovv 2/3/2012, 20:46

julianovv

julianovv: Super Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 680
Registrado : 14/12/2010

Mensagem nº8

Re: Formatação condicional para caixa de opção (checkbox)

Mensagem julianovv 2/3/2012, 20:46

Olá, obrigado pela resposta mas não funcionou. O quadro de opção continuou ativo.
O campo anterior a ele é um campo de texto (licitacao_pregao) e assim que digita algo nele, o quadro de opção deveria ser ativado.

Rolling Eyes

Convidad 2/3/2012, 21:08

Convidad

Convidad: Convidado

Mensagem nº9

Re: Formatação condicional para caixa de opção (checkbox)

Mensagem Convidad 2/3/2012, 21:08

Estando no evento AfterUpdate, o procedimento só altera o estado do quadro após a saída do campo. Não assim que se digita nele.
Para isso teria que se colocar o procedimento no evento Change.
Mas não é uma boa ideia, pois qualquer texto digitado no campo efetuaria alteração,
e vc talvez tenha uma regra de validação no evento BeforeUpdate.

Se após atualizar quiser ativar se não for Nulo, e desativar se for Nulo:


Private Sub CampoAnterior_AfterUpdate()
   If Not IsNull(Me.CampoAnterior) Then
      Me.NomeDoSeuGrupoDeOpções.Enabled = True
   Else
      Me.NomeDoSeuGrupoDeOpções.Enabled = False
   End If
End Sub

Se após atualizar quiser desativar se não for Nulo, e ativar se for Nulo:

Private Sub CampoAnterior_AfterUpdate()
   If Not IsNull(Me.CampoAnterior) Then
      Me.NomeDoSeuGrupoDeOpções.Enabled = False
   Else
      Me.NomeDoSeuGrupoDeOpções.Enabled = True
   End If
End Sub

julianovv 6/3/2012, 00:01

julianovv

julianovv: Super Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 680
Registrado : 14/12/2010

Mensagem nº10

Re: Formatação condicional para caixa de opção (checkbox)

Mensagem julianovv 6/3/2012, 00:01

Olá, segue uma versão compacta do sistema para vc analisar.

http://www.4shared.com/zip/9QurFEfw/Sistema_MIK_forum.html?

Obrigado!
Wink

julianovv 5/4/2012, 15:41

julianovv

julianovv: Super Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 680
Registrado : 14/12/2010

Mensagem nº11

Re: Formatação condicional para caixa de opção (checkbox)

Mensagem julianovv 5/4/2012, 15:41

Bom, não obtive mais respostas e por isso estou fechando o tópico sem resolver.
Para quem tentou ajudar, meu muito obrigado.

Rolling Eyes

**Leandro** 5/4/2012, 18:09

Leandro

Leandro: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1601
Registrado : 12/11/2009

Mensagem nº12

Re: Formatação condicional para caixa de opção (checkbox)

Mensagem Leandro 5/4/2012, 18:09

Julianow, desculpe resonder mesmo depois do tópico encerrado, mas acho que toda tentativa de ajudar é válida, eu inseri uns botões de opção num form e precisei fazer algo semelhante ao descrito por você, usei o mesmo príncipio utilizado para o SpecialEffect, na minha condição de Intermediário é só um pitaco, veja como ficou o código:

No seu caso imagino que seria aplicado no AfterUpdate.

Private Sub Opção13_GotFocus()
Me.Texto22.Enabled = True
Me.Texto24.Enabled = False
Me.Texto25.Enabled = False
Me.Texto26.Enabled = False
End Sub

Private Sub Opção15_GotFocus()
Me.Texto22.Enabled = False
Me.Texto24.Enabled = True
Me.Texto25.Enabled = False
Me.Texto26.Enabled = False
End Sub

Private Sub Opção17_GotFocus()
Me.Texto22.Enabled = False
Me.Texto24.Enabled = False
Me.Texto25.Enabled = True
Me.Texto26.Enabled = False
End Sub

Private Sub Opção20_GotFocus()
Me.Texto22.Enabled = False
Me.Texto24.Enabled = False
Me.Texto25.Enabled = False
Me.Texto26.Enabled = True
End Sub

.................................................................................
n

ALGUMAS SOLUÇÕES E IDEIAS EM ACCESS

Menu Treeview
Menu Treeview Atualização 2017
Restringir 'valores' lançados em caixa de combinação - Texto
Restringir valores lançados em caixa de combinação - Número
Modelo de Calendário

julianovv 5/4/2012, 18:48

julianovv

julianovv: Super Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 680
Registrado : 14/12/2010

Mensagem nº13

Re: Formatação condicional para caixa de opção (checkbox)

Mensagem julianovv 5/4/2012, 18:48

Não tem nada de misterioso. Só quero ativar o grupo de opção quando o usuário preencher o campo anterior. Se não, mantenha inativo (acinzelado).
A princípio ficarei apenas com o campo anterior (licitacao_pregao), o grupo de opção e o próximo campo (projeto) que está dentro de um subformulário. Os anteriores já resolvi com o formatação condicional.

Wink

**Leandro** 3/10/2012, 23:08

Leandro

Leandro: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1601
Registrado : 12/11/2009

Mensagem nº14

Re: Formatação condicional para caixa de opção (checkbox)

Mensagem Leandro 3/10/2012, 23:08

Teve êxito aqui?

Abraço

.................................................................................
n

ALGUMAS SOLUÇÕES E IDEIAS EM ACCESS

Menu Treeview
Menu Treeview Atualização 2017
Restringir 'valores' lançados em caixa de combinação - Texto
Restringir valores lançados em caixa de combinação - Número
Modelo de Calendário

**Leandro** 4/10/2012, 01:17

Leandro

Leandro: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1601
Registrado : 12/11/2009

Mensagem nº15

Re: Formatação condicional para caixa de opção (checkbox)

Mensagem Leandro 4/10/2012, 01:17

Será que era quase isso?:

.................................................................................
n

ALGUMAS SOLUÇÕES E IDEIAS EM ACCESS

Menu Treeview
Menu Treeview Atualização 2017
Restringir 'valores' lançados em caixa de combinação - Texto
Restringir valores lançados em caixa de combinação - Número
Modelo de Calendário

julianovv 4/10/2012, 18:16

julianovv

julianovv: Super Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 680
Registrado : 14/12/2010

Mensagem nº16

Res: Formatação condicional para caixa de opção (checkbox)

Mensagem julianovv 4/10/2012, 18:16

Boa tarde Leandro.
Obrigado pelo exemplo, está bem próximo do que precisava. Digo "precisava" porque infelizmente esse projeto precisou dar uma parada. A empresa adiou o trabalho e não sei quando vai retornar. Espero que seja para breve.
Os campos no seu exemplo ficam "travados" quando passa pro outro impedindo a edição. Meu objetivo é direcionar o usuário para não deixar nenhum campo em branco ou pular os campos, mas tbm que ele possa voltar para editar.
Gostaria que me enviasse um exemplo parecido mas que antes do grupo de opção viesse um campo de texto ou caixa de combinação.
Sem querer abusar.. rsrs
Obrigadão!

Wink

.................................................................................
Juliano

USO O ACCESS 2007 NO XP SP3
Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - GForce GT220 - Monitor AOC 24 pol G2HE524G2 - Impressora Epson T33 - Scanner Bright.
Smile

**Leandro** 4/10/2012, 18:50

Leandro

Leandro: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1601
Registrado : 12/11/2009

Mensagem nº17

Re: Formatação condicional para caixa de opção (checkbox)

Mensagem Leandro 4/10/2012, 18:50

Juliano, tente com esse que te mandei, veja a lógica do VBA e tente inserir a caixa de texto.

Para poder voltar e alterar você tem que colocar uma MsgBox VbYesNo.

Só estou te incentivando para que aprenda.

.................................................................................
n

ALGUMAS SOLUÇÕES E IDEIAS EM ACCESS

Menu Treeview
Menu Treeview Atualização 2017
Restringir 'valores' lançados em caixa de combinação - Texto
Restringir valores lançados em caixa de combinação - Número
Modelo de Calendário

julianovv 4/10/2012, 20:01

julianovv

julianovv: Super Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 680
Registrado : 14/12/2010

Mensagem nº18

Res: Formatação condicional para caixa de opção (checkbox)

Mensagem julianovv 4/10/2012, 20:01

Ok, Leandro, vou dar uma analisada e retorno.
Obrigado por tentar fazer eu aprender!

Wink

.................................................................................
Juliano

USO O ACCESS 2007 NO XP SP3
Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - GForce GT220 - Monitor AOC 24 pol G2HE524G2 - Impressora Epson T33 - Scanner Bright.
Smile

Conteúdo patrocinado

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº19

Re: Formatação condicional para caixa de opção (checkbox)

Mensagem Conteúdo patrocinado

MaximoAccess

MaximoAccess

MaximoAccess

Formatação condicional para caixa de opção (checkbox)

Formatação condicional para caixa de opção (checkbox)

Re: Formatação condicional para caixa de opção (checkbox)

Re: Formatação condicional para caixa de opção (checkbox)

Re: Formatação condicional para caixa de opção (checkbox)

Re: Formatação condicional para caixa de opção (checkbox)

Re: Formatação condicional para caixa de opção (checkbox)

Re: Formatação condicional para caixa de opção (checkbox)

Re: Formatação condicional para caixa de opção (checkbox)

Re: Formatação condicional para caixa de opção (checkbox)

Re: Formatação condicional para caixa de opção (checkbox)

Re: Formatação condicional para caixa de opção (checkbox)

Re: Formatação condicional para caixa de opção (checkbox)

Re: Formatação condicional para caixa de opção (checkbox)

Re: Formatação condicional para caixa de opção (checkbox)

Re: Formatação condicional para caixa de opção (checkbox)

Res: Formatação condicional para caixa de opção (checkbox)

Re: Formatação condicional para caixa de opção (checkbox)

Res: Formatação condicional para caixa de opção (checkbox)

Re: Formatação condicional para caixa de opção (checkbox)

Tópicos semelhantes

Tópicos semelhantes

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada