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

    biligo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    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

    biligo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    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

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2511
    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: Sex 09 Dez 2016, 11:30