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


3 participantes

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

    avatar
    Baumgratz
    Novato
    Novato


    Respeito às regras : 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) Empty [Resolvido]VBA para interromper a tabulação no ultimo campo (access2010)

    Mensagem  Baumgratz 23/10/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
    biligo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  biligo 24/10/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
    avatar
    Baumgratz
    Novato
    Novato


    Respeito às regras : 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) Empty Re: [Resolvido]VBA para interromper a tabulação no ultimo campo (access2010)

    Mensagem  Baumgratz 24/10/2015, 21:10

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  biligo 24/10/2015, 21:31

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

    If KeyCode = 9 Then
    KeyCode = 0
    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]VBA para interromper a tabulação no ultimo campo (access2010) Empty Re: [Resolvido]VBA para interromper a tabulação no ultimo campo (access2010)

    Mensagem  Noobezinho 24/10/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


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


    Respeito às regras : 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) Empty Re: [Resolvido]VBA para interromper a tabulação no ultimo campo (access2010)

    Mensagem  Baumgratz 24/10/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.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/3/2024, 02:11