[Resolvido]Teclas de atalho

Tenho esse código em um form e funciona bem.

mas ai o colei em outro form. e nao funciona

So preciso ate F4 nesse form, por isso os outros estao desabilitados
o que fazer?


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

'F1 - Calcular Parcelas
If KeyCode = 112 Then
Comando29_Click
KeyCode = 0
End If
'F2 - Excluir parcelamento
If KeyCode = 113 Then
btn_exc_Click
KeyCode = 0
End If
'F3 - Finalizar Parcelamento
If KeyCode = 114 Then
DoCmd.Close
KeyCode = 0
End If
'F4 - Calculadora
If KeyCode = 115 Then
SelecionarCliente_Click
KeyCode = 0
End If
'F5 - Ativar Lista de Vendas
'If KeyCode = 116 Then
' Comando170_Click
' KeyCode = 0
'End If
'F6 - Cancelar Venda
'If KeyCode = 117 Then
' cmdCancelar_Click
' KeyCode = 0
'End If
'F7 - Leva O Foco para o Campo Dinheiro
'If KeyCode = 118 Then
' Me.Dinheiro.SetFocus
'KeyCode = 0
'End If
'F8 - Leva o Foco para o campo Quantidade
'If KeyCode = 119 Then
' Me.txtQtde.SetFocus

' KeyCode = 0
'End If
'F9 - Leva o Foco para o Campo Desconto
'If KeyCode = 120 Then
' Me.txtDesconto.SetFocus
' KeyCode = 0
'End If
'F10 - Leva o Foco para O Campo Acrescimento
'If KeyCode = 121 Then
' Me.txtAcrescimo.SetFocus
' KeyCode = 0
'End If
'F11 - Parcelamento
'If KeyCode = 122 Then
' Forms!frmVENDAA.Dinheiro.SetFocus
' KeyCode = 0
'End If
'F12 - Finalizar
'If KeyCode = 123 Then
' cmdTotalizar_Click
' KeyCode = 0
'End If
End Sub

Visualizar chave = sim colocou?

Olhe se o evento "Visualizar teclas" está definido com Sim. Se não estiver, coloque-o em Sim.

Coloquei o evento em SIM e mesmo assim não funcionou, quando teclo F1 ele fala sobre ter chamado uma ajuda no formato windows blablabla...

Mas é evidente amigão. A Tecla F1 é usada pelo Windows para chamar o seu próprio sistema de ajuda, logo não deve ser usada para qualquer outro tipo de acontecimento. Utilize outra tecla ou combinação de teclas. Aliás todas as teclas superiores do F1 ao F8, não deveriam ser usadas.

O seu problema foi resolvido??? Agradecemos o retorno.

Migão para desabilitar as funções nativas do access dentra das teclas de função, Crie uma macro

No Access 2010 (creio que no 2007 seja igual)

nome da macro: AutoKeys

{F1}
{F2}
{F3}
Até F12...

No Access 97

nome da macro: TeclasAtalho

{F1}
{F2}
{F3}
Até F12...

Obs.: Fazendo essas macros as teclas de funções não funcionarão mais, a não ser que você efetue o tratamento no seu código...

Após isso, na minha função uso dessa maneira:

Public Sub Form_Load()

Keypreview = true

End Sub

----------------------------------------------------------------

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode

Case vbKeyF1

MsgBox Aplicativo & " " & AppVersao, vbInformation + vbOKOnly, "...::: SEI :::..."

Case vbKeyF2

DoCmd.OpenForm "frm_Consultas_Clientes"

Case vbKeyF4

If TypeOf Screen.ActiveControl Is ComboBox Then
Screen.ActiveControl.Dropdown
End If

Case vbKeyF5

If bto_Duplicar.Enabled = False Then Exit Sub
Call BTO_DUPLICAR_Click

Case vbKeyF6

If bto_Arquivo.Enabled = False Then Exit Sub
Call bto_Arquivo_Click

Case vbKeyF7

If BTO_IMPRIMIR.Enabled = False Then Exit Sub
Call BTO_IMPRIMIR_Click

Case vbKeyF8

If BTO_PESQUISAR.Enabled = False Then Exit Sub
Call BTO_PESQUISAR_Click

Case vbKeyF9

If BTO_LIMPACAMPOS.Enabled = False Then Exit Sub
Call BTO_LIMPACAMPOS_Click

Case vbKeyF10

If BTO_CONFIRMA.Enabled = False Then Exit Sub
Call BTO_CONFIRMA_Click

Case vbKeyF12

If bto_Scanear.Enabled = False Then Exit Sub
Call bto_Scanear_Click

Case vbKeyEscape

'FECHA FORMULÁRIO
Beep
If MsgBox("Deseja sair da tela de manutenção das OS? Todos os dados na tela serão perdidos.", vbQuestion + vbYesNo, Aplicativo & " " & AppVersao) = vbYes Then

Call BTO_FECHAR_Click

End If

End Select

End Sub

Espero que isso ajude em algo...

Sds,


Pablo

OLá Pablo

O Mestre JPaulo ainda à bem pouco tempo num tópico aqui do fórum, manifestou reservas com o uso da tecla F1, desaconselhando o uso desta e das teclas superiores. Aconselhou o uso de combinação de teclas.

Todos sabemos que não implica que não possam ser usadas. Mas também implica nos menos experientes a possibilidade de erros, sem saberem porquê. Temos pois que ter algum cuidado.

Se o tópico fosse convenientemente lido, Tanto o Criquio, quanto eu já tinhamos orientado o colega no sentido de "Olhe se o evento "Visualizar teclas" está definido com Sim. Se não estiver, coloque-o em Sim."

Agora a resposta:

Coloquei o evento em SIM e mesmo assim não funcionou, quando teclo F1 ele fala sobre ter chamado uma ajuda no formato windows blablabla...

Então?

Opa bom dia Vieira!

Não entendi sua colocação. Se foi uma chamada de atenção, uma critica ou afins...

Quando o access esta aberto as funções executadas pelas teclas F1, F2, etc... São pertinentes ao prórpio access, nada tendo a ver com o SO Windows, pelo menos até onde eu entendo...

Com relação a leitura do tópico

O ato de setar o keypreview (Visualiza Tecla) como true (SIM) não sana o problema do colega, irá possibilitar somente o monitoramento das teclas pressionadas no formulário ativo...

Agora a resposta:

Coloquei o evento em SIM e mesmo assim não funcionou, quando teclo F1 ele fala sobre ter chamado uma ajuda no formato windows blablabla...

Então?

Em minha observação consta:

Obs.: Fazendo essas macros as teclas de funções não funcionarão mais, a não ser que você efetue o tratamento no seu código...

Acrescento: Não funcionarão mais com os comandos padrões (help, etc...) dentro de seu banco de dados quando estiver executando a aplicação, estando totalmente normal no modo de programação e nos outros aplicativos...

Então, usando o exposto, ao se pressionar a tecla F1 não abrirá mais o help padrão do access, o que na maioria dos casos nada tem haver com o conteúdo da aplicação que esta rodando, até confundido o usuário final...

Amigos com traquilidade chegamos todos ao caminho das pedras.

Vejam com atenção este tópico:

http://maximoaccess.forumeiros.com/t2007-resolvidoatalho-para-f3#15028

Amigão

Foi apenas um Alerta. Quem sou eu para criticar.

Pergunto:

Ao criar a macro, chamo ela em qual funcão, onde eu a aplico?

Grato
Harysohn

Não precisa chamar a macro. Macros de nome AutoKeys e AutoExec se auto executam no aplicativo.

Bem companheiros... Descobri o porque o código que eu utulizava, bem como o do amigo pablo.. não funcionou no meu form....

Se observarem, no comeco do Tópico, eu coloquei o código que funcionava em um form que eu tinha, mas não funcionava em outro...
Recebi diversas dicas do colegas e testei todas...

Tanto o codigo que eu utilizava, como o do pablo, bem como o ex. do Joào paulo, do criquio..
todos funcionam...

Então porque no meu form não estava funcionado?

RESPOSTA...

No meu form havia um sub-formulário.. e ao abrir o form o foco era remetido a um campo do sub-formulario, portanto, quando qu clicava as teclas de atalho, elas estavam rementendo ao código do sub-form (onde nao havia código tratado para as teclas)
então o código do form não entrava em acao, pois o foco estava no sub_form....

O quefiz.. no evento ao abri do form.. movi o foco para um comando do form principal
ai sim o codigo funcionou...

Agora...


tem uma tecla que vai remeter o foco para o sub_formulario, para fazer o recebimento de uma parcela...ai tenho que usar novamente a tecla de atalho. mas como o foco vai estar no sub_form... não ira funcionar.. como então voltar o foco para o form Principal


Muito.. muito Obrigado


Em Tempo... caro Pablo, se puder me enviar um modelo da macro para a desativacao das teclas, fico grato, pois fiz uma macro aqui e nao funcionou direito

Harysohn

muda o foco do sub para o form principal

Private Sub teucampo_KeyPress (Keyascii As Integer)
If Keyascii = 13 Then
Forms!teuformulario!campo.SetFocus
End If
End Sub

utiliza a tecla enter

ENtendi ricado...

mas preferi colocar o codigo que me enviou no evento ao atualizar do campo que eu utulizo no sub form, pois no meu caso so utilizo uma vez..

entao quando o foco vai para o sub form, eu faco a aleteracao e ao atualizar o foco ja volta pra o form principal...

Agradecido a todos
Fiquem com Deus