MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Visualizar campos a traves de uma combobox

    Compartilhe

    TiagoBranco
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 26
    Registrado : 24/03/2014

    [Resolvido]Visualizar campos a traves de uma combobox

    Mensagem  TiagoBranco em Seg 14 Abr - 10:46

    Muito Boa Tarde a Todos
    Eu tenho este código no Access

    Private Sub ComboRespondido_BeforeUpdate(Cancel As Integer)
    If [ComboRespondido] = -1 Then
    [CampoQuemRespondeu].Visible = True
    [CampoData].Visible = True
    Else
    [CampoQuemRespondeu].Visible = False
    [CampoData].Visible = False
    End If
    End Sub

    O Meu Objetivo é quando alguém meter sim na caixa de combinação aparecer as 2 caixas de texto, se meter não ou não responder não aparecer nada
    Mas não esta a dar erro nem a funcionar corretamente
    O [ComboRespondido] é uma Caixa de combinação
    Com  as Opções:  Sim ; Não
    Os outros dois caixa de texto
    Alguem me pode ajudar?
    Obrigado

    rdrck
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 983
    Registrado : 11/03/2014

    Re: [Resolvido]Visualizar campos a traves de uma combobox

    Mensagem  rdrck em Seg 14 Abr - 11:47

    Olá Tiago,
    Já tentou:

    Private Sub ComboRespondido_BeforeUpdate(Cancel As Integer)
    If [ComboRespondido] = "SIM" Then
    [CampoQuemRespondeu].Visible = True
    [CampoData].Visible = True
    Else
    [CampoQuemRespondeu].Visible = False
    [CampoData].Visible = False
    End If
    End Sub

    Pode tentar também no evento Ao Alterar da combo.
    Pode também tentar incluir a linha abaixo aqui:

    Private Sub ComboRespondido_BeforeUpdate(Cancel As Integer)
    DoCmd.RunCommand acCmdRefresh
    If [ComboRespondido] = "SIM" Then
    ...


    .................................................................................
    Meu Programa / OS:
    Access 2007 - Windows 7.

    TiagoBranco
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 26
    Registrado : 24/03/2014

    Re: [Resolvido]Visualizar campos a traves de uma combobox

    Mensagem  TiagoBranco em Seg 14 Abr - 12:04

    Boa tarde rdrck

    Sim já tentei em vez de -1 meter Sim mas não da
    Eu meti  como Caixa de combinação mas em vez de o tipo de dados ser texto meti Sim/Não
    Por traz do sim esta o -1
    assim esta a funcionar mais ou menos , quando esta escolhido o não, não aparece as caixas de texto quando escolho sim já aparece ate aqui tudo bem mas quando eu passo para o próximo registo as caixas continuam visíveis, ou au contrario eu estou num registo que esta escolhido o não mas quando eu passo para outro registo que já esta sim as caixas não se veem

    clynton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 307
    Registrado : 08/07/2013

    Re: [Resolvido]Visualizar campos a traves de uma combobox

    Mensagem  clynton em Seg 14 Abr - 13:44

    TiagoBranco, mande seu BD por favor.

    TiagoBranco
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 26
    Registrado : 24/03/2014

    Re: [Resolvido]Visualizar campos a traves de uma combobox

    Mensagem  TiagoBranco em Ter 15 Abr - 5:57

    ele ainda esta tudo ao monte mas é para ver se tudo funciona os campos sao
    CampoData:
    CampoQuemRespondeu
    ComboRespondido
    Anexos
    Correspondencia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.9 Mb) Baixado 9 vez(es)

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3231
    Registrado : 20/04/2011

    Re: [Resolvido]Visualizar campos a traves de uma combobox

    Mensagem  Silvio em Ter 15 Abr - 6:34

    Tente isso nos eventos abaixo...

    Código:
    Private Sub Form_Load()
    If [ComboRespondido] = -1 Then '-1 = True = verdadeiro = sim
    [CampoQuemRespondeu].Visible = True
    [CampoData].Visible = True
    Else
    [CampoQuemRespondeu].Visible = False '= 0 = falso = não
    [CampoData].Visible = False
    End If
    End Sub


    Código:
    Private Sub registo_seguinte_Click()
    If [ComboRespondido] = -1 Then '-1 = True = verdadeiro = sim
    [CampoQuemRespondeu].Visible = True
    [CampoData].Visible = True
    Else
    [CampoQuemRespondeu].Visible = False '= 0 = falso = não
    [CampoData].Visible = False
    End If
    End Sub

    Retire o Date() da tabela Correspondência, pois está gerando inconsistência de dados


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    TiagoBranco
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 26
    Registrado : 24/03/2014

    Re: [Resolvido]Visualizar campos a traves de uma combobox

    Mensagem  TiagoBranco em Ter 15 Abr - 7:04

    Bom dia silvio continua a mesma coisa aprece e desaparece no registo atual mas assim que eu passo para o próximo se estiver não continua visível os campos sucessivamente

    esta bem vou tirar o data() Obrigado

    rdrck
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 983
    Registrado : 11/03/2014

    Re: [Resolvido]Visualizar campos a traves de uma combobox

    Mensagem  rdrck em Sex 25 Abr - 7:56

    Olá Tiago,
    Já conseguiu resolver o problema?
    Se sim, não esqueça de clicar no [Resolvido] para não deixar o tópico em aberto.
    Valeu.


    .................................................................................
    Meu Programa / OS:
    Access 2007 - Windows 7.

    TiagoBranco
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 26
    Registrado : 24/03/2014

    Re: [Resolvido]Visualizar campos a traves de uma combobox

    Mensagem  TiagoBranco em Seg 28 Abr - 12:30

    boa tarde sim já resolvi o que queria estava neste mesmo fórum

    [Você precisa estar registrado e conectado para ver este link.]

    Obrigado a todos

      Data/hora atual: Seg 5 Dez - 12:35