[Resolvido]Atalho para F3

Gostaria que quando a tecla F3 fosso clicada aparecesse uma informação no campo.
Tentei esse código, mas não deu certo:

If KeyCode = vbKeyF3 Then
Me.Localização = Agosto
Else
End If
End Sub

O campo de chama Localização e a informação que devrá aprecer no campo ao clicar F3 deverá ser Agosto

Podem me ajudar?

Oi Lu, tente assim:

If KeyCode = vbKeyF3 Then
Me.Localização = "Agosto"
KeyCode = 0
End If

Um detalhe importante: se você colocar esse código no evento de tecla do próprio campo, só irá funcionar se o foco estiver no campo. Para que ele funcione sem que o foco esteja no campo, você deve mudar para o evento do formulário e o evento "Visualizar tecla" tem que estar como Sim.

Oi Fera!!!!!

Quero quando o foco estiver no campo mesmo. Vou tentar com o código que me passou e já retorno.

Att,

Lu

Certo. Mas, não seria melhor deixar esse campo com o valor padrão "Agosto" ao invés de inserir o evento? A não ser que você tenha em mente colocar outros atalhos de teclado para outras possibilidades, como pro exemplo F1 para Janeiro, F2 para Fevereiro, etc.

Fera,

Agosto foi só o exemplo, na realidade eu quero colocar Secretaria de Administração. Esse campo é modificado frequentemente. Toda vez que o processo retorna tenho que digitar Secretaria de Administração. Esse é o termo mais digitado no bd. Pelo menos apertando F3 agilizo essa modificação.

Att

Criquio só uma pergunta, você já testou com o F1, como está a ensinar ?

JPaulo, tenho uma aplicação aqui na qual eu uso o F1 para chamar o arquivo de ajuda e uso todas as outras teclas de função para abrir formulários ou realizar outros procedimentos dessa forma e está a funcionar que é uma beleza:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF1 Then
Call btnAjuda_Click
KeyCode = 0
ElseIf KeyCode = vbKeyF2 Then
Call btnSalvar_Click
KeyCode = 0
...
End If
End Sub

Não disse que não funcionava, apenas se um usuario inesperiente utilizar o F1, abrirá em conjunto a Ajuda do Access (Help) e fica sem saber resolver, existem teclas que não devem ser utilizadas para esse efeito a menos que se faça um tratamento adequado.

Se você utilizar por exemplo o Ctrl+1, Ctrl+2, Ctrl+3, etc.... pode sem ERROS tirar muito mais proveito.

E sempre no evento do formulario, nunca no evento VBA direto dos campos.

Deste modo até pode automatizar o preenchimento de muitos campos sem o foco neles.

Veja só:


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case CtrlDown, vbKey1
Me.SeuCampo1 = "Secretaria de Administração"
Case CtrlDown, vbKey2
Me.SeuCampo2 = "Secretaria"
Case CtrlDown, vbKey3
Me.SeuCampo3 = "Secr"
End Select
End Sub

Entendo, mas no que eu fiz aqui o F1 chama meu arquivo de ajuda sem abrir a ajuda do Access.

Aqui o que me garante abrir o meu arquivo sem abrir o arquivo de ajuda do Access, é a linha KeyCode = 0. Eu coloquei o evento "Visualizar tecla" como não e testei no evento de um campo e obtive o mesmo efeito. Se não tiver KeyCode = 0, abre os dois aventos, tanto o que a gente definir quanto o padrão do Access, já com essa linha, abre apenas o que a gente definir.

Fera,

Coloquei dessa maneira:

If KeyCode = vbKeyF3 Then
Me.Localização = "Secretaria de ASdministração"
KeyCode = 0
End If

If KeyCode = vbKeyF4 Then
Me.Localização = "Departamento de Contabilidade"
KeyCode = 0
End If

If KeyCode = vbKeyF5 Then
Me.Localização = "Gabinete"
KeyCode = 0

If KeyCode = vbKeyF6 Then
Me.Localização = "Fundo Saúde"
KeyCode = 0
End If
End If

End Sub

Com esse código o único problema é que o F6 não quer funcionar. Coloquei alguma coisa errada?

Att

If KeyCode = vbKeyF5 Then
Me.Localização = "Gabinete"
KeyCode = 0
End If

If KeyCode = vbKeyF6 Then
Me.Localização = "Fundo Saúde"
KeyCode = 0
End If


End Sub
Tinha colocado 2 End If vbCode6

olá Luciana, pelo que entendi vc está querendo que apareça a descrição "Secretaria de Administração" fixa em 1 determinado campo, é isso? Se sim é só vc usar essa código no evento ao receber foco do seu campo:

Private Sub SeuCampo_GotFocus()
Me.SeuCampo = "Secretaria de Administração"
End Sub

Quando temos várias condições em um mesmo bloco, não precisa colocar um bloco If para cada uma. Você pode definir Apenas um If, colocar ElseIf e terminar com um End If, assim:

If KeyCode = vbKeyF3 Then
Me.Localização = "Secretaria de Administração"
KeyCode = 0

ElseIf KeyCode = vbKeyF4 Then
Me.Localização = "Departamento de Contabilidade"
KeyCode = 0

ElseIf KeyCode = vbKeyF5 Then
Me.Localização = "Gabinete"
KeyCode = 0

ElseIf KeyCode = vbKeyF6 Then
Me.Localização = "Fundo Saúde"
KeyCode = 0

End If

Continuo a apostar no Select Case KeyCode, com o Ctrl+1,2,3,4,5,6,7,8,9...

Um dia irão dar-me razão...

Outra solução seria usando Select Case no lugar do If, como sugeriu JPaulo. É aqui uma ótima oportunidade de você aprender mais esse recurso do Access, que seria assim:

Select Case KeyCode

Case vbKeyF3
Me.Localização = "Secretaria de Administração"
KeyCode = 0

Case vbKeyF4
Me.Localização = "Departamento de Contabilidade"
KeyCode = 0

Case vbKeyF5
Me.Localização = "Gabinete"
KeyCode = 0

Case= vbKeyF6
Me.Localização = "Fundo Saúde"
KeyCode = 0

End Select

Ctrl + Num. tambem é bacana, uma vez que não existem nenhum evento próprio do Access associado a esses atalhos. Já Ctrl + letra, existem alguns.

Sim, mas é preciso que repare no erro que cometeu anteriormente. assim é que se aprende.

O teu sistema é óptimo, mas a título de Pepanp adorei este e deve ser considerado como uma alternativa

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case CtrlDown, vbKey1
Me.SeuCampo1 = "Secretaria de Administração"
Case CtrlDown, vbKey2
Me.SeuCampo2 = "Departamento de Contabilidade"
Case CtrlDown, vbKey3
Me.SeuCampo3 = "Gabinete"
Case CtrlDown, vbKey4
Me.SeuCampo4 = "Fundo Saúde"
End Select
End Sub

Aos poucos as feras vão caminhando pelo caminho das pedras sem caír...

Estão a chegar lá, quando eu referi um dia irão dar-me razão.

Notem que Ctrl+Numero pode quase ser infinito, já as teclas F`s só existem 12 e com numeros já não interferem com o bom funcionamento dos aplicativos.

No meu caso, eu uso as teclas de função para tirar a função padrão delas. Eu não quero que o usuário clique no F1 e abra a ajuda do Access. Para não ficar sem nada no F1, eu coloco para ele abrir a ajuda que eu desenvolver para o aplicativo, uma vez que F1 é tecla padrão de ajuda na maioria dos aplicativos. Então, adiciono KeyCode = 0 ao final para barrar a ação padrão dela no Access.

olá amigos, estou postando um exemplo para ver se não serve para a nossa colega

Amigo Alves obrigado pela sua contribuíção, mas amigão repare que o usuário em dificuldade, quer varias descrições no mesmo campo e assim não funfa.

certo JPaulo, mas pelo que entendi, esse campo ela modifica constantemente, mas a descrição "Secretaria de Administração" é a que ela mais usa no campo e ao invés de ainda pressionar combinações de teclas para chamar essa descrição com o código o campo ao receber o foco disponibiliza automático essa descrição, evitando a sua digitação, ou será que entendi errado?

O seu pensamento está correto, mas imagine que assim ao receber o foco ele digita logo "Secretaria de Administração"

Se o usuario não quiser o "Secretaria de Administração" e quiser o "Departamento Contabilidade" terá o dobro do trabalho, que é deletar o "Secretaria de Administração" e digitar o que pretende.

Não leve a mal, isto não passa de um aprendizado para todos nós.

com certeza amigo, quem sou eu para contradizer o PAPA do access, rsrs

Que nada PAPA, aqui existem muitas feras, acredite.

Neste tópico até podemos brincar com as teclas;

Outra forma, mas usando na mesma o Ctrl+Numero (1,2,3,4)


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim IntTeclaControl As Integer
IntTeclaControl = (Shift And acCtrlMask) > 0
If IntTeclaControl And KeyCode = 49 Then
Me.SeuCampo = "Secretaria de Administração"
ElseIf IntTeclaControl And KeyCode = 50 Then
Me.SeuCampo = "Departamento de Contabilidade"
ElseIf IntTeclaControl And KeyCode = 51 Then
Me.SeuCampo = "Gabinete"
ElseIf IntTeclaControl And KeyCode = 52 Then
Me.SeuCampo = "Fundo Saúde"
End If
End Sub

O tópico rendeu. Podemos ver várias formas de se usar atalhos pelo Access e que pode, cada uma, ser útil em determinadas situações. Como eu disse, gosto de tirar a função das teclas de funções para que elas não interfiram no funcionamento do aplicativo. Acho que a maior utilidade nesse caso, é atribuir o nosso arquivo de ajuda personalizado à tecla F1, por ela ser padrão nessa função. A dica do JPaulo é ótima para casos em que tenhamos um grande número de condições e por aí vai. O importante é que sempre ampliamos nosso nível de conhecimento

pois é amigo criquio, mas isso é salutar ao fórum, pois temos várias opiniões que de alguma forma acabam servindo para outros amigos, quanto a colocação de PAPA amigo JPaulo, é para descontrair um pouco, mas sem demagogia o meu respeito é grandioso pelo auto grau de conhecimento que vc tem sobre o access.

Obrigado pelas suas palavras amigo Alves, na verdade ainda sou um simples Padre...

Cuidado Mestre, modéstia a mais vai pagar imposto no Pec IV (rsrsrsrs)

Desculpem, mas fiz besteira e desintalei o Access. Só vou conseguir intala-lo novamente amanhã, por isso só vou não vou peder testar as ideias hoje. Amanhã posto se consegui ou não.

Att

amigos JPaulo e Criquio, um cliente me pediu para eu fazer uma rotina parecida com a que a nossa amiga Luciana queria neste tópico, postei aquele exemplo, mas JPaulo me fez ver que ainda faltava algo, acho que esse exemplo atende a nossa amiga, deixei o campo em questão ao receber o foco que disponibilze a descrição "Secretaria de Administração" se não for esse o departamento desejado é só pressionar o F2 para chamar "Departamento de Contabilidade", F3 "Gabinete" e F4 para "Fundo de Saúde", dêem uma olhada no novo exemplo

Obs: Desculpas a JPaulo, por escolher o caminho dos Fs.

Desculpem a demora, mas consegui resolver.

Valeu feras!!!!!

Desculpem a demora, mas consegui resolver.

Valeu feras!!!!!

ok luciana, de qualquer maneira fica o exemplo para que alguém precise de algo do gênero