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


    [Resolvido]Form perdendo foco

    Bão
    Bão
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    Registrado : 04/05/2011

    [Resolvido]Form perdendo foco Empty Form perdendo foco

    Mensagem  Bão 3/6/2012, 22:39

    Estou tendo um problema para manter o foco num formulário que tem a seguinte rotina para impedir o fechamento inapropriado:

    Private Sub Form_Unload(Cancel As Integer)
    If IsNull(Me.CampoNome) Then
    Cancel = True
    Me.CampoNome.SetFocus
    MsgBox "Informe o Nome."
    End If
    End Sub


    O problema é que depois da MsgBox o foco não retorna para o form, fica uma marcação no botão fechar e a guia do form, que quando está ativado fica laranjada, acaba ficando cinza...

    Isso tem conserto!?!... ah, estou usando formulário com guias e não com janelas tradicionais... Agradeço toda a ajuda!
    avatar
    Convidad
    Convidado


    [Resolvido]Form perdendo foco Empty Re: [Resolvido]Form perdendo foco

    Mensagem  Convidad 3/6/2012, 22:59


    Antes da MsgBox o foco está sendo direcionado para um campo que não foi preenchido, para levar o usuário a inserir neste campo.

    Você pode direcionar o foco para o campo que quiser, alterando o nome do campo na linha antes da mensagem.

    Isto só seria necessário se o botão Fechar não estiver no form.
    Neste caso deve direcionar o foco primeiro para o form e depois para o campo.

    Bão
    Bão
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    Registrado : 04/05/2011

    [Resolvido]Form perdendo foco Empty Re: [Resolvido]Form perdendo foco

    Mensagem  Bão 4/6/2012, 01:22

    Assim?:

    If IsNull(Me.CampoNome) Then
    Cancel = True
    MsgBox "Informe o Nome."
    DoCmd.SelectObject acForm, "Form"
    Forms!Form.SetFocus
    Me.CampoNome.SetFocus
    End If


    Pois nem assim está funcionando....
    avatar
    Convidad
    Convidado


    [Resolvido]Form perdendo foco Empty Re: [Resolvido]Form perdendo foco

    Mensagem  Convidad 4/6/2012, 01:42


    Explique exatamente como este código é disparado, qual a estrutura do formulário, e onde você quer o foco.
    Sem os detalhes não dá pra entender.

    Bão
    Bão
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    Registrado : 04/05/2011

    [Resolvido]Form perdendo foco Empty Re: [Resolvido]Form perdendo foco

    Mensagem  Bão 4/6/2012, 01:54

    Desculpe Rost...

    O evento é "Ao descarregar" e quero que após o usuário clicar no botão fechar e em seguida no ok o foco retorne para o campo que está sem preenchimento (no caso, "CampoNome")...

    Mas não é isso que ocorre, o foco acaba ficando sobre o botão fechar do formulário...

    Só lembrando que estou usando formulário com guias e não com janelas tradicionais...
    avatar
    Convidad
    Convidado


    [Resolvido]Form perdendo foco Empty Re: [Resolvido]Form perdendo foco

    Mensagem  Convidad 4/6/2012, 02:07


    Se o botão Fechar está no mesmo form que o campo que deve receber o foco, o código deveria funcionar.
    A não ser que haja algum outro código interferindo, como este "ok" que eu não entendi.

    Há alguma mensagem de erro, tipo "O Access não pode mover o foco..." ?

    Talvez ajude se postar todo o código do botão.

    (Aliás, acho que fui eu que lhe passei este código. Não estava funcionando certinho?)

    Bão
    Bão
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    Registrado : 04/05/2011

    [Resolvido]Form perdendo foco Empty Re: [Resolvido]Form perdendo foco

    Mensagem  Bão 4/6/2012, 02:38

    Print
    avatar
    Convidad
    Convidado


    [Resolvido]Form perdendo foco Empty Re: [Resolvido]Form perdendo foco

    Mensagem  Convidad 4/6/2012, 02:59


    Pensei que tinha um botão Fechar personalizado, mas parece que está usando o do próprio formulário.

    A imagem não trouxe nenhuma luz. Não há campos visíveis...
    Tente colocando a msg antes de direcionar o foco. Mas não creio que faça diferença.

    Private Sub Form_Unload(Cancel As Integer)
    If IsNull(Me.CampoNome) Then
    Cancel = True
    MsgBox "Informe o Nome."
    Me.CampoNome.SetFocus
    End If
    End Sub

    Se não funcionar, só vendo o bd.
    Se puder postar na versão 2003 posso ver se descubro o problema.

    Bão
    Bão
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    Registrado : 04/05/2011

    [Resolvido]Form perdendo foco Empty Re: [Resolvido]Form perdendo foco

    Mensagem  Bão 4/6/2012, 13:22

    Maestro...

    Consegui, depois de muito matutar... cheguei a uma solução... veja só:

    Private Sub Form_Unload(Cancel As Integer)
    If IsNull(Me.CampoNome) Then
    Cancel = True

    Forms!Form.Visible = False
    MsgBox "Informe o Nome."
    Forms!Form.Visible = True
    Me.CampoNome.SetFocus
    End If
    End Sub


    Algo tão simples... Mas fundamental...
    Obrigado mestre... Até a próxima... Ah, e este código foi vc mesmo que me passou há alguns dias...
    Bão
    Bão
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    Registrado : 04/05/2011

    [Resolvido]Form perdendo foco Empty Re: [Resolvido]Form perdendo foco

    Mensagem  Bão 4/6/2012, 13:24

    Faltou o resolvido....
    avatar
    Convidad
    Convidado


    [Resolvido]Form perdendo foco Empty Re: [Resolvido]Form perdendo foco

    Mensagem  Convidad 4/6/2012, 13:35


    Bom que resolveu. Até a próxima.

    Grato pelo retorno.


    Conteúdo patrocinado


    [Resolvido]Form perdendo foco Empty Re: [Resolvido]Form perdendo foco

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 21:23