MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]Campo data necessita Duplo Enter para passar próximo campo

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4198
    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 em 17/2/2020, 09:05

    Bom dia Amigos

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

    Obrigado
    Anexos
    [Resolvido]Campo data necessita Duplo Enter para passar próximo campo Attachmenttestedata.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (93 Kb) Baixado 5 vez(es)


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

    Respeito às Regras 100%

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


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4198
    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 em 17/2/2020, 11:58

    Obrigado Marcelo


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3100
    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 em 17/2/2020, 12:04

    Grato pelo retorno, esquecestes o Resolvido Wink


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4198
    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 em 17/2/2020, 12:25

    Ops

    Falhou no enter


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

      Data/hora atual: 6/7/2020, 07:37