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]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 2014, 15: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
    avatar
    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 2014, 16: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 2014, 17: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
    avatar
    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 2014, 18: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 2014, 10: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)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em Ter 15 Abr 2014, 11: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 2014, 12: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
    avatar
    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 2014, 12: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 2014, 17: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: Sab 22 Jul 2017, 09:39