MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Combo Box com formulario visible false para true

    victor.zero
    avatar
    victor.zero
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 16/02/2012
    • Mensagem nº1

    [Resolvido]Combo Box com formulario visible false para true Empty Combo Box com formulario visible false para true

    Mensagem  victor.zero 27/2/2012, 19:16

    Saudações

    Tenho um form com um subform em modo vible como false
    tenho uma combo box que pega os valores da tabela cad_Funcao, gostaria que se afunção for definida no combo box como Motorista o subform fique visivel.

    tentei assim mais não sei onde posso estar errando

    Private Sub Funcao_AfterUpdate()
    ' Apos Atualizar
    If Me.Funcao.Value = Motorista Then
    Me.frm_Empregados_Complemento_Subform.Visible = True
    End If
    Me.Motivo_Afastamento.SetFocus
    End Sub
    • Ir para o topo
    criquio
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009
    • Mensagem nº2

    [Resolvido]Combo Box com formulario visible false para true Empty Re: [Resolvido]Combo Box com formulario visible false para true

    Mensagem  criquio 27/2/2012, 19:32

    Coloque o "Motorista" entre aspas, caso contrário, o Access pensará que está passando o nome de uma função ou variável. Todo texto deve ficar entre aspas. Sem aspas apenas números, nomes de função ou de variável.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br
    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº3

    [Resolvido]Combo Box com formulario visible false para true Empty Re: [Resolvido]Combo Box com formulario visible false para true

    Mensagem  Convidad 27/2/2012, 19:34


    Olá!

    Confirme os Nomes dos campos, a coluna acoplada da combo, e tente assim:


    Private Sub Funcao_AfterUpdate()
    ' Apos Atualizar
       If Me.Funcao.Value = "Motorista" Then
          Me.frm_Empregados_Complemento_Subform.Visible = True
       Else
          Me.frm_Empregados_Complemento_Subform.Visible = False
       End If
       Me.Motivo_Afastamento.SetFocus
    End Sub



    • Ir para o topo
    victor.zero
    avatar
    victor.zero
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 16/02/2012
    • Mensagem nº4
    [Resolvido]Combo Box com formulario visible false para true Empty Re: [Resolvido]Combo Box com formulario visible false para true
    Mensagem  victor.zero 27/2/2012, 20:13
    Ok, funcionou, mais quando abro e fecho o form e passo os registros salvos na tabela independente do valor da combo ser (motorista) ou não o subform fica invisível, estou passando o script a baixo no evento da combo após atualizar.

       If Me.Funcao.Value = "Motorista" Then
          Me.frm_Empregados_Complemento_Subform.Visible = True
       Else
          Me.frm_Empregados_Complemento_Subform.Visible = False
       End If
       Me.Motivo_Afastamento.SetFocus
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº5
    [Resolvido]Combo Box com formulario visible false para true Empty Re: [Resolvido]Combo Box com formulario visible false para true
    Mensagem  Convidad 27/2/2012, 20:20

    Private Sub Form_Current()
    ' No atual do formulário
       If Me.Funcao.Value = "Motorista" Then
          Me.frm_Empregados_Complemento_Subform.Visible = True
       Else
          Me.frm_Empregados_Complemento_Subform.Visible = False
       End If
    End Sub

    • Ir para o topo
    victor.zero
    avatar
    victor.zero
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 16/02/2012
    • Mensagem nº6
    [Resolvido]Combo Box com formulario visible false para true Empty Re: [Resolvido]Combo Box com formulario visible false para true
    Mensagem  victor.zero 28/2/2012, 12:05
    Ok, obrigado pela ajuda ate agora.

      tenho um segundo sub form frm_Exames, ao invés de deixa-lo visível como no exemplo acima gostaria de deixar apenas um determinado campo tipo:

    Private Sub Funcao_AfterUpdate()
    ' Apos Atualizar
       If Me.Funcao.Value = "Motorista" Then

    Oftamologico = True
    Psico = True

    else

    Oftamologico = false
    Psico = false
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº7
    [Resolvido]Combo Box com formulario visible false para true Empty Re: [Resolvido]Combo Box com formulario visible false para true
    Mensagem  Convidad 28/2/2012, 12:18

    Você tem o subform frm_Exames e quer deixar os campos Oftalmologico e Psico visíveis ou não dependendo de o valor do campo Função ser Motorista (então visível) ou outro (então invisível)?


    • Ir para o topo
    victor.zero
    avatar
    victor.zero
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 16/02/2012
    • Mensagem nº8
    [Resolvido]Combo Box com formulario visible false para true Empty Re: [Resolvido]Combo Box com formulario visible false para true
    Mensagem  victor.zero 28/2/2012, 12:23
    Sim, tem como?
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº9
    [Resolvido]Combo Box com formulario visible false para true Empty Re: [Resolvido]Combo Box com formulario visible false para true
    Mensagem  Convidad 28/2/2012, 12:36

    Os eventos ficam os mesmos, apenas acrescentei os comandos para os campos do subform frm_Exames.

    Private Sub Funcao_AfterUpdate()
    ' Apos Atualizar
       If Me.Funcao.Value = "Motorista" Then
          Me.frm_Empregados_Complemento_Subform.Visible = True
          Me.frm_Exames.Oftalmologico.Visible = True
          Me.frm_Exames.Psico.Visible = True
       Else
          Me.frm_Empregados_Complemento_Subform.Visible = False
          Me.frm_Exames.Oftalmologico.Visible = False
          Me.frm_Exames.Psico.Visible = False
       End If
       Me.Motivo_Afastamento.SetFocus
    End Sub

    Private Sub Form_Current()
    ' No atual do formulário
       If Me.Funcao.Value = "Motorista" Then
          Me.frm_Empregados_Complemento_Subform.Visible = True
          Me.frm_Exames.Oftalmologico.Visible = True
          Me.frm_Exames.Psico.Visible = True
       Else
          Me.frm_Empregados_Complemento_Subform.Visible = False
          Me.frm_Exames.Oftalmologico.Visible = False
          Me.frm_Exames.Psico.Visible = False
       End If
    End Sub

    • Ir para o topo
    victor.zero
    avatar
    victor.zero
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 16/02/2012
    • Mensagem nº10
    [Resolvido]Combo Box com formulario visible false para true Empty Re: [Resolvido]Combo Box com formulario visible false para true
    Mensagem  victor.zero 28/2/2012, 13:44
    já tinha tentado dessa maneira mais dar erro de compilação, esse subform frm_Exame estar em um controle de quia pagina 2 será que tem ave para ta dando esse error, outra quando estou digitando apos (Me.frm_Exames.) o campo Oftalmologico não aparece no construtor de código.
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº11
    [Resolvido]Combo Box com formulario visible false para true Empty Re: [Resolvido]Combo Box com formulario visible false para true
    Mensagem  Convidad 28/2/2012, 13:53

    Provavelmente o campo Oftalmologico tem um nome diferente na sua propriedade Nome.
    O ideal é sempre definir o Nome como ele está na tabela.
    Corrija isto e teste.

    Se não funcionar informe os detalhes do erro.
    Talvez seja necessário referenciar a página do controle Guia...

    Quanto mais claras forem as informações que vc passa, mais eficiente será o auxílio que recebe.
    • Ir para o topo
    victor.zero
    avatar
    victor.zero
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 16/02/2012
    • Mensagem nº12
    [Resolvido]Combo Box com formulario visible false para true Empty Re: [Resolvido]Combo Box com formulario visible false para true
    Mensagem  victor.zero 28/2/2012, 14:18
    o nome na propriedade estar igual, "Error de compilação: método ou membro de dados não encontrado".

    desde já muito obrigado pela ajuda e paciência.
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº13
    [Resolvido]Combo Box com formulario visible false para true Empty Re: [Resolvido]Combo Box com formulario visible false para true
    Mensagem  Convidad 28/2/2012, 14:20

    E quando clica em Depurar, qual a linha que fica indicada?
    • Ir para o topo
    victor.zero
    avatar
    victor.zero
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 16/02/2012
    • Mensagem nº14
    [Resolvido]Combo Box com formulario visible false para true Empty Re: [Resolvido]Combo Box com formulario visible false para true
    Mensagem  victor.zero 28/2/2012, 14:31
    Quando o error acontece o Oftamologico fica selecionado e alinha indicada é a Private Sub Funcao_AfterUpdate().


    na janela onde aparece o botões fim e depurar aparece a seguinte mensage

    erro em tempo de execução '91': avariável do objeto ou a variável do bloco 'With' não foi definida.
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº15
    [Resolvido]Combo Box com formulario visible false para true Empty Re: [Resolvido]Combo Box com formulario visible false para true
    Mensagem  Convidad 28/2/2012, 15:27

    Creio que já sei o que é ...
    Qual é o nome do form principal ?
    • Ir para o topo
    victor.zero
    avatar
    victor.zero
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 16/02/2012
    • Mensagem nº16
    [Resolvido]Combo Box com formulario visible false para true Empty Re: [Resolvido]Combo Box com formulario visible false para true
    Mensagem  victor.zero 28/2/2012, 15:33
    Nome do formulário é frm_CDT_Empregado
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº17
    [Resolvido]Combo Box com formulario visible false para true Empty Re: [Resolvido]Combo Box com formulario visible false para true
    Mensagem  Convidad 28/2/2012, 16:16

    Tente assim:

    Private Sub Funcao_AfterUpdate()
    ' Apos Atualizar a combo
       If Me.Funcao.Value = "Motorista" Then
          Me.frm_Empregados_Complemento_Subform.Visible = True
          Forms!frm_CDT_Empregado!frm_Exames!Oftalmologico.Visible = True
          Forms!frm_CDT_Empregado!frm_Exames!Psico.Visible = True
       Else
          Me.frm_Empregados_Complemento_Subform.Visible = False
          Forms!frm_CDT_Empregado!frm_Exames!Oftalmologico.Visible = False
          Forms!frm_CDT_Empregado!frm_Exames!Psico.Visible = False
       End If
       Me.Motivo_Afastamento.SetFocus
    End Sub

    Private Sub Form_Current()
    ' No atual do formulário
       If Me.Funcao.Value = "Motorista" Then
          Me.frm_Empregados_Complemento_Subform.Visible = True
          Forms!frm_CDT_Empregado!frm_Exames!Oftalmologico.Visible = True
          Forms!frm_CDT_Empregado!frm_Exames!Psico.Visible = True
       Else
          Me.frm_Empregados_Complemento_Subform.Visible = False
          Forms!frm_CDT_Empregado!frm_Exames!Oftalmologico.Visible = False
          Forms!frm_CDT_Empregado!frm_Exames!Psico.Visible = False
       End If
    End Sub

    • Ir para o topo
    victor.zero
    avatar
    victor.zero
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 16/02/2012
    • Mensagem nº18
    [Resolvido]Combo Box com formulario visible false para true Empty Re: [Resolvido]Combo Box com formulario visible false para true
    Mensagem  victor.zero 28/2/2012, 18:15
    Ok, só tá dando erro em tempo de execução '2455';

    Você inseriu uma expressão que contém uma referência inválida à Propriedade Form/Report. 

    ao de depurar alinha em amarelo se destaca.

    Private Sub Form_Current()
    ' No atual do formulário
       If Me.Funcao.Value = "Motorista" Then
          Me.frm_Empregados_Complemento_Subform.Visible = True
          Forms!frm_CDT_Empregado!frm_Exames!Oftalmologico.Visible = True
          Forms!frm_CDT_Empregado!frm_Exames!Psico.Visible = True
       Else
          Me.frm_Empregados_Complemento_Subform.Visible = False
          Forms!frm_CDT_Empregado!frm_Exames!Oftalmologico.Visible = False
          Forms!frm_CDT_Empregado!frm_Exames!Psico.Visible = False
       End If
    End Sub 

    o que posso estar errando?
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº19
    [Resolvido]Combo Box com formulario visible false para true Empty Re: [Resolvido]Combo Box com formulario visible false para true
    Mensagem  Convidad 28/2/2012, 20:30

    No form frm_CDT_Empregado

    Private Sub Funcao_AfterUpdate()
    ' Apos Atualizar a combo
       If Me.Funcao.Value = "Motorista" Then
          Me.frm_Empregados_Complemento_Subform.Visible = True
          Forms!frm_CDT_Empregado!frm_Exames!Oftalmologico.Visible = True
          Forms!frm_CDT_Empregado!frm_Exames!Psico.Visible = True
       Else
          Me.frm_Empregados_Complemento_Subform.Visible = False
          Forms!frm_CDT_Empregado!frm_Exames!Oftalmologico.Visible = False
          Forms!frm_CDT_Empregado!frm_Exames!Psico.Visible = False
       End If
       Me.Motivo_Afastamento.SetFocus
    End Sub


    Private Sub Form_Current()
    ' No atual do formulário
       If Me.Funcao.Value = "Motorista" Then
          Me.frm_Empregados_Complemento_Subform.Visible = True
       Else
          Me.frm_Empregados_Complemento_Subform.Visible = False
       End If
    End Sub



    No subform frm_Exames

    Private Sub Form_Current()
    ' No atual do formulário
       If Forms!frm_CDT_Empregado!Funcao = "Motorista" Then
          Me.Oftalmologico.Visible = True
          Me.Psico.Visible = True
       Else
          Me.Oftalmologico.Visible = False
          Me.Psico.Visible = False
       End If
    End Sub

    • Ir para o topo
    victor.zero
    avatar
    victor.zero
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 16/02/2012
    • Mensagem nº20
    [Resolvido]Combo Box com formulario visible false para true Empty Re: [Resolvido]Combo Box com formulario visible false para true
    Mensagem  victor.zero 29/2/2012, 11:27
    Perfeito, estar funcionando da maneira que eu queria, ainda estou aprendendo a programar.

    Obrigado norbs.
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº21
    [Resolvido]Combo Box com formulario visible false para true Empty Re: [Resolvido]Combo Box com formulario visible false para true
    Mensagem  Convidad 29/2/2012, 11:32

    Também ainda estou aprendendo!

    Disponha e grato pelo retorno.
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº22
    [Resolvido]Combo Box com formulario visible false para true Empty Re: [Resolvido]Combo Box com formulario visible false para true
    Mensagem  Conteúdo patrocinado 
        
    
    
    • Ir para o topo

                  
      
                
      
                
                
      
                        
      		
                        
      		
                
      
                      
                
      
            
      Data/hora atual: 7/11/2024, 21:54