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]ActiveControl (foco)

    Compartilhe

    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 56
    Registrado : 07/06/2013

    [Resolvido]ActiveControl (foco)

    Mensagem  M2013 em Qui 09 Abr 2015, 15:28

    Prezados,

    Tenho um Formulário (frm_Cod) que tem um Subformulário (frmSub_Cod) com 2 campos : [código] e [inscrição] . Coloquei no rodapé dese subformulário um campo desvinculado que chamei de 'Info' onde através da função ' Lookup ' busco as informações sobre o código e inscrição. Como estou com um campo único para exibir as informações de um campo ou de outro , pensei em usar ActiveControl onde quando o foco estiver no campo [código] o campo  [Info] exibiria as informações complementares de "código" se o foco estiver no campo [inscrição] o campo  [Info] exibiria as informações complementares de "inscrição".  Tentei mas uma mensagem de erro diz que  ActiveControl  tem de estar na janela ativa. Se alguém puder ajudar.... obrigado

    '***********Evento 'no atual' do subformulário*******************************

    Dim ctlCurrentControl As control
    Dim strControlName As String

    Set ctlCurrentControl = Me.ActiveControl
    strControlName = ctlCurrentControl.Name

    if ctlCurrentControl.Name= "código" then
    Me.Info = DLookup("[CodDescr]", "tb_Cod_dm", "[Codd1]=Forms![frm_Cod]![frmSub_Cod].Forms![código] ")

    Elseif ctlCurrentControl.Name= "inscrição" then
    Me.Info = DLookup("[InscDescr]", "tb_Insc", "[InscNum]=Forms![frm_Cod]![frmSub_Cod].Forms![inscrição] ")

    End if
    '***************************************************************************************

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2484
    Registrado : 29/06/2012

    Re: [Resolvido]ActiveControl (foco)

    Mensagem  Noobezinho em Sab 23 Maio 2015, 22:27

    Marcelo

    Se ainda não resolveu experimente:

    Function Verificar()
    if Me.ActiveControl.Name = "código" then
           Me.Info = DLookup("[CodDescr]", "tb_Cod_dm", "[Codd1]= " & Me![frmSub_Cod].Forms![código])
    Elseif Me.ActiveControl.Name= "inscrição" then
           Me.Info = DLookup("[InscDescr]", "tb_Insc", "[InscNum]=Forms![frm_Cod]![frmSub_Cod].Forms![inscrição] ")
    Endif
    End function

    Dentro da folha de propriedades, na propriedade ao ENTRAR de cada caixa de texto (código e inscrição), digite:

    =Verificar()


    [ ]'s

    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 56
    Registrado : 07/06/2013

    ActiveControl (foco)

    Mensagem  M2013 em Seg 25 Maio 2015, 14:28

    Prezado,

    Obrigado pela solução funcionou perfeitamente.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2484
    Registrado : 29/06/2012

    Re: [Resolvido]ActiveControl (foco)

    Mensagem  Noobezinho em Seg 25 Maio 2015, 14:40

    Que ótimo!

    Valeu o retorno

    Boa sorte!


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

      Data/hora atual: Sab 03 Dez 2016, 15:35