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

    avatar
    M2013
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]ActiveControl  (foco) Empty [Resolvido]ActiveControl (foco)

    Mensagem  M2013 9/4/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
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]ActiveControl  (foco) Empty Re: [Resolvido]ActiveControl (foco)

    Mensagem  Noobezinho 23/5/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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    M2013
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]ActiveControl  (foco) Empty ActiveControl (foco)

    Mensagem  M2013 25/5/2015, 14:28

    Prezado,

    Obrigado pela solução funcionou perfeitamente.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]ActiveControl  (foco) Empty Re: [Resolvido]ActiveControl (foco)

    Mensagem  Noobezinho 25/5/2015, 14:40

    Que ótimo!

    Valeu o retorno

    Boa sorte!


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


    [Resolvido]ActiveControl  (foco) Empty Re: [Resolvido]ActiveControl (foco)

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 15:24