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

    Selecionar determinado campo apertando a tecla "Enter"

    Compartilhe
    avatar
    OLDRIVG
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 284
    Registrado : 20/07/2010

    Selecionar determinado campo apertando a tecla "Enter"

    Mensagem  OLDRIVG em 13/12/2018, 17:30

    Prezados, boa tarde.

    Estou tentando implementar uma rotina para quando o usuário apertar/teclar ENTER, o foco vá para um determinada combox/txtbox.

    Coloquei no evento Ao Pressionar Tecla do campo "txtInicial" o código

    If KeyCode = 13 Then
      Me.TipoDocumento.SetFocus
    End If


    no Formulário coloquei os códigos:

    no evento Ao Carregar

    Me.Form.KeyPreview = True

    Me.txtInicial.setfocus


    no Evento Ao Abrir

    Me.txtInicial.SetFocus

    Mas não funcionou.

    Caso alguém tenha alguma sugestão de como fazer a implementação para que funcione, ficarei grato por mais esta.

    Vi algumas dicas aqui no Fórum, e dentre elas retirei o primeiro código mas não funcionou.
    Obrigado
    avatar
    FranklinJSP
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 146
    Registrado : 25/02/2016

    Re: Selecionar determinado campo apertando a tecla "Enter"

    Mensagem  FranklinJSP em 14/12/2018, 18:37

    Oi Oldri

    Código:
    Private Sub CampoX_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyReturn
          CampoA.SetFocus
        Case Else
    End Select
    End Sub

    Saludos desde Bolivia


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    avatar
    OLDRIVG
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 284
    Registrado : 20/07/2010

    Re: Selecionar determinado campo apertando a tecla "Enter"

    Mensagem  OLDRIVG em 17/12/2018, 09:20

    Prezado JSP, bom dia.

    Agradeço-lhe a atenção, porém não funcionou.
    Agradecido.
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2010
    Registrado : 13/04/2012

    Re: Selecionar determinado campo apertando a tecla "Enter"

    Mensagem  Fernando Bueno em 17/12/2018, 13:47

    Olá boa tarde.

    Tente dessa forma:

    Código:
    Private Sub Form_Load()
     Me.KeyPreview = True
    End Sub

    Código:
    Private Sub txtInicial_KeyPress(KeyAscii As Integer)
     If KeyAscii = vbKeyReturn Then
      Me.TipoDocumento.SetFocus
      Else
     End If
    End Sub


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    avatar
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 07/12/2011

    Re: Selecionar determinado campo apertando a tecla "Enter"

    Mensagem  tauron em 17/12/2018, 15:38

    Nas propriedades do formulário - aba "evento" deixe a opção "visualizar Teclas" como sim
    avatar
    FranklinJSP
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 146
    Registrado : 25/02/2016

    Re: Selecionar determinado campo apertando a tecla "Enter"

    Mensagem  FranklinJSP em 18/12/2018, 02:15

    Oldri envía teu form, fica mais facil

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"

      Data/hora atual: 18/1/2019, 00:03