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

    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 383
    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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 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 : 10591
    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 : 383
    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 : 383
    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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 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 : 383
    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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 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 : 383
    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

      Data/hora atual: 8/7/2020, 04:17