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

    [Resolvido]Campo data necessita Duplo Enter para passar próximo campo

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Campo data necessita Duplo Enter para passar próximo campo Empty [Resolvido]Campo data necessita Duplo Enter para passar próximo campo

    Mensagem  Assis 17/2/2020, 09:05

    Bom dia Amigos

    Este campo Data é óptimo para quem tem de digitar muitas vezes a data.

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3873
    Registrado : 21/04/2011

    [Resolvido]Campo data necessita Duplo Enter para passar próximo campo Empty Re: [Resolvido]Campo data necessita Duplo Enter para passar próximo campo

    Mensagem  Marcelo David 17/2/2020, 11:39

    Grande Assis, bom dia!

    Evento KeyPress do campo txt_data:

    Código:
       Dim ws As Object 'Declaro uma variável do tipo objeto
        
        Set ws = CreateObject("WScript.Shell") 'Crio um objeto do tipo VBS
        
        If KeyAscii = 13 Then 'Caso a tecla pressionada for Enter
            ws.SendKeys "{TAB}" 'Envio a tecla TAB para o foco ir para o próximo campo indexado
        End If
        
        Set ws = Nothing 'Apaga o objeto da memória

       'Uso o SenKeys do VBS e não do VBA porque há um bug nunva corrigido em que ao usar o sendkeys, é acionado a tecla NumLock
       'do teclado. E pelo VBS não há esse problema.

    Obs.: A propriedade Visualizar teclas do formulário em questão deve está como Sim.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Campo data necessita Duplo Enter para passar próximo campo Marcel11
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Campo data necessita Duplo Enter para passar próximo campo Empty Re: [Resolvido]Campo data necessita Duplo Enter para passar próximo campo

    Mensagem  Assis 17/2/2020, 11:58

    Obrigado Marcelo


    .................................................................................
    *** Só sei que nada sei ***
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3873
    Registrado : 21/04/2011

    [Resolvido]Campo data necessita Duplo Enter para passar próximo campo Empty Re: [Resolvido]Campo data necessita Duplo Enter para passar próximo campo

    Mensagem  Marcelo David 17/2/2020, 12:04

    Grato pelo retorno, esquecestes o Resolvido Wink


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Campo data necessita Duplo Enter para passar próximo campo Marcel11
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Campo data necessita Duplo Enter para passar próximo campo Empty Re: [Resolvido]Campo data necessita Duplo Enter para passar próximo campo

    Mensagem  Assis 17/2/2020, 12:25

    Ops

    Falhou no enter


    .................................................................................
    *** Só sei que nada sei ***

    Conteúdo patrocinado


    [Resolvido]Campo data necessita Duplo Enter para passar próximo campo Empty Re: [Resolvido]Campo data necessita Duplo Enter para passar próximo campo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 22:39