MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]VBA para interromper a tabulação no ultimo campo (access2010)

    Compartilhe

    Baumgratz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 05/10/2015

    [Resolvido]VBA para interromper a tabulação no ultimo campo (access2010)

    Mensagem  Baumgratz em Sex 23 Out 2015, 23:52

    Olá Forumeiros de plantão!

    Imagine que em um formulário eu tenha 8 campos. Daí vou preenchendo cada campo, descendo, usado o Tab ou Enter, até chegar no ultimo campo.
    O que eu preciso é que: ao chegar no ultimo campo o foco não passe para o próximo registro vazio - fique parado.
    Tem como??

    Obrigado
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 10/04/2014

    Re: [Resolvido]VBA para interromper a tabulação no ultimo campo (access2010)

    Mensagem  biligo em Sab 24 Out 2015, 02:44

    Boas amigo,

    Ta tela "Evento" habilite a visualização de teclas.
    No seu ultimo campo adicione o seguinte em ao pressionar tecla:

    Select Case KeyCode

    Case vbKeyTab
    Me.UltimoCampo.SetFocus

    End Select

    Baumgratz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 05/10/2015

    Re: [Resolvido]VBA para interromper a tabulação no ultimo campo (access2010)

    Mensagem  Baumgratz em Sab 24 Out 2015, 21:10

    Infelizmente nada aconteceu!
    Sad
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 10/04/2014

    Re: [Resolvido]VBA para interromper a tabulação no ultimo campo (access2010)

    Mensagem  biligo em Sab 24 Out 2015, 21:31

    Malz agora vai XD,
    Substitua por este. By Lupércio

    If KeyCode = 9 Then
    KeyCode = 0
    End If
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]VBA para interromper a tabulação no ultimo campo (access2010)

    Mensagem  Noobezinho em Sab 24 Out 2015, 22:34

    Simples amigo

    Crie uma caixa de texto de nome : tab

    Pode colocar ela onde quiser, mas ela será a ultima tabulação do teu form.
    Não a deixe invisível, mude as cores dela para a cor do fundo do form.
    diminua ela até fica assim: |
    No evento ao entrar dela, coloque para qual controle deseja ter o foco, pode ser num botão do form,
    como por exemplo, o botão fechar ou  mudar o foco para o primeiro controle.

    [ ]'s


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

    Baumgratz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 05/10/2015

    Re: [Resolvido]VBA para interromper a tabulação no ultimo campo (access2010)

    Mensagem  Baumgratz em Sab 24 Out 2015, 23:42

    Nobre biligo, fiz como sugeriu mas não deu.

       Private Sub TxtSituacao_Exit(Cancel As Integer)
          If KeyCode = 9 Then
          KeyCode = 0
          End If
       End Sub

    Todavia uma outra ajuda que recebi deu certo. Vou aqui compartilhar com voce(s).

    Abri a Folha de Propriedades do formulário; fui na aba Todas; fui na opção Ciclo e escolhi a opção Registro Atual.

    Fazendo assim os campos preenchidos no formulário só foram para a tabela depois que eu cliquei em Salvar. Mesmo eu usando uma Textbox acoplada. Eu testei várias vezes e deu certo.

    Obrigado biligo e também Noobezinho.

      Data/hora atual: Qui 19 Out 2017, 08:18