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]Desativar a Tecla Tab

    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 05/03/2017

    [Resolvido]Desativar a Tecla Tab Empty [Resolvido]Desativar a Tecla Tab

    Mensagem  fazerbem em 24/10/2018, 13:18

    Bom dia, preciso de uma macro que desabilite a Tecla TAB e o comando para ativa-lo novamente.

    Obrigado

    Andre
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 674
    Registrado : 22/11/2016

    [Resolvido]Desativar a Tecla Tab Empty Re: [Resolvido]Desativar a Tecla Tab

    Mensagem  IvanJr. em 24/10/2018, 14:35

    Qual a finalidade? Pois dependendo dela, a outra saída mais adequada.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Desativar a Tecla Tab Empty Re: [Resolvido]Desativar a Tecla Tab

    Mensagem  JPaulo em 24/10/2018, 14:42

    Sim, diga-nos qual a finalidade por curiosidade, mas se quiser prosseguir é assim;

    O seu formulario tem de ter o KeyPreview = True

    Código:
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 9 Then
     MsgBox "Tecla Tab desabilitada.", vbInformation, "Alerta"
     KeyCode = 0
    End If
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Desativar a Tecla Tab Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Desativar a Tecla Tab Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Desativar a Tecla Tab Folder_announce_new Instruções SQL como utilizar...
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 05/03/2017

    [Resolvido]Desativar a Tecla Tab Empty Re: [Resolvido]Desativar a Tecla Tab

    Mensagem  fazerbem em 24/10/2018, 15:13

    É que coloquei uma opcao no meu Form de vendas, que ao ser carregado ele abre num tamanho, ao entar com os itens na caixa de texto, o Form se redimensiona maior e aparece mais detalhe do Form. Mas antes de abrir o redimensionamento, se eu precionar o TABs a parte oculta aparece, nao quero que apare,ca, por isso quero bloquear o Tab e caso precise , habilito ele num botao.

    Andre
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 05/03/2017

    [Resolvido]Desativar a Tecla Tab Empty Re: [Resolvido]Desativar a Tecla Tab

    Mensagem  fazerbem em 24/10/2018, 15:14

    onde vejo isso : O seu formulario tem de ter o KeyPreview = True
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 674
    Registrado : 22/11/2016

    [Resolvido]Desativar a Tecla Tab Empty Re: [Resolvido]Desativar a Tecla Tab

    Mensagem  IvanJr. em 24/10/2018, 15:38

    Folha de propriedades do formulário, guia Eventos, última opção (Visualizar teclas)
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Desativar a Tecla Tab Empty Re: [Resolvido]Desativar a Tecla Tab

    Mensagem  vieirasoft em 24/10/2018, 15:47

    Pode desaativar o TAB e activar o "ENTER" desta forma

    Private Sub Form_KeyPress(KeyAscii As Integer)
    'Primeiro para eliminar o evento do TAB
    If KeyAscii = 9 Then '9 é a tecla ASCII do TAB
    KeyAscii = 0
    End If
    'Depois para activar o Enter, enviando pelo SendKeys o evento TAB
    If KeyAscii = 13 Then '13 é a tecla ASCII do Enter
    SendKeys "{Tab}"
    KeyAscii = 0
    End If
    End Sub

    Não esqueça de activar nas propriedades do Form, o VerChave para Sim, pois caso contrário não irá funcionar.
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 05/03/2017

    [Resolvido]Desativar a Tecla Tab Empty Re: [Resolvido]Desativar a Tecla Tab

    Mensagem  fazerbem em 24/10/2018, 16:12

    Não esqueça de activar nas propriedades do Form, o VerChave para Sim, pois caso contrário não irá funcionar.

    Nao achei esse verchave nas propriedades do Form, aqui a versao e 2013
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 674
    Registrado : 22/11/2016

    [Resolvido]Desativar a Tecla Tab Empty Re: [Resolvido]Desativar a Tecla Tab

    Mensagem  IvanJr. em 24/10/2018, 16:15

    VerChave = KeyPreview = Visulizar Teclas
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Desativar a Tecla Tab Empty Re: [Resolvido]Desativar a Tecla Tab

    Mensagem  vieirasoft em 24/10/2018, 16:23

    Pré-visualizar chave=Sim ----em português se o sistema estiver em PT
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 05/03/2017

    [Resolvido]Desativar a Tecla Tab Empty Re: [Resolvido]Desativar a Tecla Tab

    Mensagem  fazerbem em 24/10/2018, 16:43

    Muito Obrigado.

    Andre

    Conteúdo patrocinado

    [Resolvido]Desativar a Tecla Tab Empty Re: [Resolvido]Desativar a Tecla Tab

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/7/2019, 06:31