MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Ativar e desativar Campo no Formulario

    Compartilhe

    mrmuller_mar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 05/10/2017

    [Resolvido]Ativar e desativar Campo no Formulario

    Mensagem  mrmuller_mar em Dom 12 Nov 2017, 17:35

    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
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3417
    Registrado : 14/08/2013

    Re: [Resolvido]Ativar e desativar Campo no Formulario

    Mensagem  FabioPaes em Seg 13 Nov 2017, 12:34

    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.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    mrmuller_mar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 05/10/2017

    Re: [Resolvido]Ativar e desativar Campo no Formulario

    Mensagem  mrmuller_mar em Ter 14 Nov 2017, 11:26

    Bom dia!

    Funcionou no formulario, mais no relatório não ele esta dando erro na hora de visualizar
    avatar
    bigfill
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 226
    Registrado : 27/03/2015

    Re: [Resolvido]Ativar e desativar Campo no Formulario

    Mensagem  bigfill em Ter 14 Nov 2017, 11:34

    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

    mrmuller_mar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 05/10/2017

    Re: [Resolvido]Ativar e desativar Campo no Formulario

    Mensagem  mrmuller_mar em Ter 14 Nov 2017, 11:44

    Funcionou

    Obrigado a todos

    mrmuller_mar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 05/10/2017

    Re: [Resolvido]Ativar e desativar Campo no Formulario

    Mensagem  mrmuller_mar em Ter 14 Nov 2017, 12:09

    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.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3417
    Registrado : 14/08/2013

    Re: [Resolvido]Ativar e desativar Campo no Formulario

    Mensagem  FabioPaes em Ter 14 Nov 2017, 12:39

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

    Amigo, Posta aqui o Exemplo pra darmos uma Olhada!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    mrmuller_mar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 05/10/2017

    Re: [Resolvido]Ativar e desativar Campo no Formulario

    Mensagem  mrmuller_mar em Ter 14 Nov 2017, 13:32

    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
    Anexos
    RE_Recibo.pdf
    Você não tem permissão para fazer download dos arquivos anexados.
    (24 Kb) Baixado 7 vez(es)

    mrmuller_mar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 05/10/2017

    Re: [Resolvido]Ativar e desativar Campo no Formulario

    Mensagem  mrmuller_mar em Ter 14 Nov 2017, 13:36

    Na hora de imprimir o segundo fica misturados os campos
    Anexos
    Sem título.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (57 Kb) Baixado 10 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3417
    Registrado : 14/08/2013

    Re: [Resolvido]Ativar e desativar Campo no Formulario

    Mensagem  FabioPaes em Ter 14 Nov 2017, 13:46

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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    mrmuller_mar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 05/10/2017

    Re: [Resolvido]Ativar e desativar Campo no Formulario

    Mensagem  mrmuller_mar em Ter 14 Nov 2017, 14:35

    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.
    avatar
    bigfill
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 226
    Registrado : 27/03/2015

    Re: [Resolvido]Ativar e desativar Campo no Formulario

    Mensagem  bigfill em Ter 14 Nov 2017, 14:40

    Boa tarde!

    Tem como postar a parte do BD referente ?
    avatar
    bigfill
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 226
    Registrado : 27/03/2015

    Re: [Resolvido]Ativar e desativar Campo no Formulario

    Mensagem  bigfill em Ter 14 Nov 2017, 14:57

    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. Very Happy
    Anexos
    Enable.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (46 Kb) Baixado 4 vez(es)

    mrmuller_mar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 05/10/2017

    Re: [Resolvido]Ativar e desativar Campo no Formulario

    Mensagem  mrmuller_mar em Ter 14 Nov 2017, 15:33

    Boa Tarde!
    Bigfill,

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

    Obrigado!!!!!
    avatar
    bigfill
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 226
    Registrado : 27/03/2015

    Re: [Resolvido]Ativar e desativar Campo no Formulario

    Mensagem  bigfill em Ter 14 Nov 2017, 16:07

    Que bom que resolveu, o fórum agradece. cheers

      Data/hora atual: Ter 21 Nov 2017, 17:31