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

    como saber focus anterior

    avatar
    hytech
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 17/03/2012

    como saber focus anterior Empty como saber focus anterior

    Mensagem  hytech 30/3/2012, 14:42

    o negocio é o seguinte, num form principal tenho dois subs com campos iguais(cep). ai quando estou num sub ou noutro sub chama uma tela de consulta de ceps off com o objetico de acha o cep desejado baseado nos filtros, o que quero é quando clicar duas vezes no cep desejado ele mandar o valor para o focus do subform anterior.

    If EstáCarregado("formcadastroempregado") Then
    XCEP = Forms![form_cadastro_cidades]![Incorporado0].Form![cep:]

    Forms![formcadastroempregado]![Filho76].Form![cep:].SetFocus


    'DoCmd.GoToRecord , , acNewRec

    Forms![formcadastroempregado]![Filho76].Form![cep:] = XCEP



    End If
    funcionado para o focus especificado, o que eu quero é que tem dois subs com o mesmo campo, como faco pra jogar o valor do cep para o controle anterior do focu que clicou.

    ajuda ai quem sabe
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    como saber focus anterior Empty Re: como saber focus anterior

    Mensagem  criquio 30/3/2012, 14:57

    Uma saída, talvez, pode ser criar uma variável no escopo do módulo do formulário, vamos supor, de nome varFoco, e do tipo String, e no evento "Ao perder foco" do controle do subformulário, colocar:

    varFoco = Me.Name

    No evento "Após atualizar" do CEP:

    Código:
    If varFoco = "Form1" Then
        Forms!FormPrincipal!NomeSubForm1.Form!NomeCampo.SetFocus
    Else
        Forms!FormPrincipal!NomeSubForm2.Form!NomeCampo.SetFocus
    End If


    .................................................................................
    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.


      Data/hora atual: 12/5/2024, 23:04