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]Duvida com a Navegação

    avatar
    marc3l0
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 19/10/2012

    [Resolvido]Duvida com a Navegação Empty Duvida com a Navegação

    Mensagem  marc3l0 Ter 29 Jan - 15:30

    Olá tenho um formulário continuo e queria poder navegar nele como se ele fosse uma tabela, clicando nas setas e indo para os próximos campos, coisa que o formulário não o faz.

    É assim no formulário, quando eu seleciono um campo e insiro dados nele e não aperto o enter, eu tento apertar nas setas para o lado e ele não vai para o campo ao lado. Se eu clicar nas setas para cima ele vai para o campo acima, graças a esse comando:

    Código:
    If KeyCode = 40 Then
    DoCmd.GoToRecord , , acNext
    End If

    If KeyCode = 38 Then
    DoCmd.GoToRecord , , acPrevious
    End If

    Gostaria que me ajudassem a criar um comando desses para navegar entre os campos ao lado.
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Duvida com a Navegação Empty Re: [Resolvido]Duvida com a Navegação

    Mensagem  Leandro Ter 29 Jan - 16:23

    Tente assim:
    Move para a direita:
    If KeyCode = "SuaEscolha" Then
    SendKeys "{TAB}"
    End If

    Move para a esquerda:
    If KeyCode = "SuaEscolha" Then
    SendKeys "+{TAB}"
    End If

    avatar
    marc3l0
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 19/10/2012

    [Resolvido]Duvida com a Navegação Empty Re: [Resolvido]Duvida com a Navegação

    Mensagem  marc3l0 Ter 29 Jan - 17:17

    Leandro, não consegui fazer esse seu código funcionar.

    Coloquei:

    Código:
    If KeyCode = 37 Then
    SendKeys "{TAB}"
    End If

    If KeyCode = 39 Then
    SendKeys "+{TAB}"
    End If

    Mas continua não indo para os lados, ainda precisando apertar o enter para poder mover entre os campos.
    Você não saberia outro código?
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Duvida com a Navegação Empty Re: [Resolvido]Duvida com a Navegação

    Mensagem  Leandro Ter 29 Jan - 17:20

    Acontece que eu te mandei um código testado e que funcionou! Surprised
    Definiu a propriedade "Visualizar Teclas" como "sim", está na aba evento.
    Mesmo, assim se puder me envie seu banco ou parte dele, abraço

    avatar
    marc3l0
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 19/10/2012

    [Resolvido]Duvida com a Navegação Empty Re: [Resolvido]Duvida com a Navegação

    Mensagem  marc3l0 Ter 29 Jan - 18:17

    Realmente, esqueci do "Visualizar Teclas"

    Muito obrigado, deu certo.

    Conteúdo patrocinado


    [Resolvido]Duvida com a Navegação Empty Re: [Resolvido]Duvida com a Navegação

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex 22 Nov - 7:19