[Resolvido]Ativar e desativar Campo no Formulario

Boa Tarde!
Meu nome é Marcelo

Tenho um formulario Recibo

Nele coloquei um botão de Opção
Gostaria de Fazer o Seguinte:

Quando Marcado - Habilita o campo Nome
Quando Desmarcado - Habilita o campo Descrição

***************

No relatorio seria o mesmo

Quando Marcado - Habilita o campo Nome
Quando Desmarcado - Habilita o campo Descrição

Definido o campo ele imprimir no meu relatorio

Obrigado

Olá marcelo!

Sempre que surgirem duvidas, por favor de uma pesquisada aqui no Fórum, pois muitas vezes a duvida ja foi esclarecia!


O Codigo que precisará é o seguinte:

If Me.NomeCheckBox = -1 then
   Me.CampoNome.Enabled=True
   Me.CampoDescricao.Enabled=False
else
   Me.CampoDescricao.Enabled=True
   Me.CampoNome.Enabled=False
End if

Esse Código deve ser colocado no Evento Após atualizar de Sua CheckBox Observando e alterando os itens destacados de vermelho de acordo com os nomes de seus campos.

Pro Relatório, o código deve ficar na Guia Detalhe>Evento ao Formatar.

Bom dia!

Funcionou no formulario, mais no relatório não ele esta dando erro na hora de visualizar

Bom dia!

mrmuller_mar, No formulário o código deve ser

Código:

.Enabled = True
.Enabled = False

No relatório o código deve ser

Código:

.Visible = True
.Visible = False

Funcionou

Obrigado a todos

Apareceu novo problema!

No relatório ao imprimir o recibo duplicar, o segundo não funciona ele aparece com os valores um em cima do outro.

Grato ao Amigo BigFil por corrigir! Falta de Atenção minha!

Amigo, Posta aqui o Exemplo pra darmos uma Olhada!

segue

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
   If Me.Trocar = -1 Then
  Me.Nome.Visible = True
  Me.CPF.Visible = True
  Me.Outros.Visible = False
Else
  Me.Outros.Visible = True
  Me.Nome.Visible = False
  Me.CPF.Visible = False
End If
End Sub

Na hora de imprimir o segundo fica misturados os campos

O segundo Recibo, o nome do campo é diferente né amigo? Então tem que incluir ele no Código também!!!

Bom dia Fabio

Eu fiz a correção(alteração no campos)

Formulario: (Trocar)
Private Sub Trocar_AfterUpdate()
If Me.Trocar = -1 Then
Me.Nome.Enabled = True
Me.CPF.Enabled = True
Me.Outros.Enabled = False
Else
Me.Outros.Enabled = True
Me.Nome.Enabled = False
Me.CPF.Enabled = False
End If
End Sub

Relatorio:
Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
If Me.Trocar = -1 Then
Me.Nome.Visible = True
Me.CPF.Visible = True
Me.Outros.Visible = False
Else
Me.Outros.Visible = True
Me.Nome.Visible = False
Me.CPF.Visible = False
End If

Mais o problema esta na segunda via do recibo, como faço para ele sair igual o primeiro na impressão.

Boa tarde!

Tem como postar a parte do BD referente ?

Boa tarde!

Acho que descobri o por que esse erro

Para gerar a (2ª Via) você copiou os campos da (1ª Via) ?

Se sim, ao copiar os campos da (2ª Via) não mantem os mesmos nomes da (1ª Via), assim necessitando de um código para os campos da (2ª Via).

Exp:

(1ª Via) - CampoTroca = Troca

(2ª Via) - CampoTroca = Seleção01

Segue um modelo que fiz, espero que lhe ajude.

Boa Tarde!
Bigfill,

Funcionou 100%, era aquilo mesmo que estava acontecendo. o segundo recibo sai embolado.
Agradeço a todos que me ajudaram

Obrigado!!!!!

Que bom que resolveu, o fórum agradece.