(Resolvido) Tecla De Atalho De Acordo Com O Formulario

[Humm]

como eu faço para que em determinado form apenas a tecla F4 por exemplo faça determinada ação?

por exemplo..

no form CUPOM quando eu pressionar F4 ele abre o FORM PAGAMENTOS

Editado Maio 25, 2007 por MrMALJ

[MrMALJ]

Crie uma macro e nome-a TeclasAtalho (tem que ser este nome), depois va na estrutura dessa macro na coluna "Nome da Macro" (se essa coluna não estiver sendo mostrada vá no menu exibir e selecione ela) coloque lá {F4}, então na "Ação" selecione "AbrirFormulário" e escolha o form que deseja abrir quando essa tecla for apertada.

A partir daí em qualquer formulário que você estiver, sempre que você apertar F4 esse formulário será aberto.

[Humm]

Crie uma macro e nome-a TeclasAtalho (tem que ser este nome), depois va na estrutura dessa macro na coluna "Nome da Macro" (se essa coluna não estiver sendo mostrada vá no menu exibir e selecione ela) coloque lá {F4}, então na "Ação" selecione "AbrirFormulário" e escolha o form que deseja abrir quando essa tecla for apertada.

A partir daí em qualquer formulário que você estiver, sempre que você apertar F4 esse formulário será aberto.

hehe ddesculpe.. ach o que eu n expliquei bem

isso eu já sei fazer..

eu quero fazer é o seguinte.. que essa tecla de atalho somente funcione dentro de formulario tal e não em qualquer formulario.

entendeu?

somente dentro do form CUPOM é que a F4 vai funcionar.. isso que eu procuro.

abracos

[Neros]

O jeito mais fácil de fazer é transformar essa macro em um módulo, e colocar no formulário, no evento AoPressionarTecla. Coloque a propriedade VisualizarTeclas como Sim.

[Humm]

isso!!!

vejam o que eu fiz:

setei a propriedade de eventos "visualizar teclas" como "sim"

abri o VB (tecla alt+f11)

dei 2 clics no form que eu quero

colei isso:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyF4
    MsgBox "voce pressionou F4"
    End Select
End Sub

onde está o msgbox você pode colocar o docmd. que voce deseja

cada case é uma tela

as teclas no vb são interpretadas por:

Constante Valor Descrição

VbKeyLButton 0x1 Botão esquerdo do mouse

VbKeyRButton 0x2 Botão direito do mouse

vbKeyCancel 0x3 Tecla CANCEL

vbKeyMButton 0x4 Botão central do mouse

vbKeyBack 0x8 Tecla BACKSPACE

vbKeyTab 0x9 Tecla TAB

vbKeyClear 0xC Tecla CLEAR

vbKeyReturn 0xD Tecla ENTER

vbKeyShift 0x10 Tecla SHIFT

vbKeyControl 0x11 Tecla CTRL

vbKeyMenu 0x12 Tecla MENU

vbKeyPause 0x13 Tecla PAUSE

vbKeyCapital 0x14 Tecla CAPS LOCK

vbKeyEscape 0x1B Tecla ESC

vbKeySpace 0x20 BARRA DE ESPAÇOS

vbKeyPageUp 0x21 Tecla PAGE UP

vbKeyPageDown 0x22 Tecla PAGE DOWN

vbKeyEnd 0x23 Tecla END

vbKeyHome 0x24 Tecla HOME

vbKeyLeft 0x25 Tecla SETA À ESQUERDA

vbKeyUp 0x26 Tecla SETA ACIMA

vbKeyRight 0x27 Tecla SETA À DIREITA

vbKeyDown 0x28 Tecla SETA ABAIXO

vbKeySelect 0x29 Tecla SELECT

vbKeyPrint 0x2A Tecla PRINT SCREEN

vbKeyExecute 0x2B Tecla EXECUTE

vbKeySnapshot 0x2C Tecla SNAPSHOT

vbKeyInsert 0x2D Tecla INSERT

vbKeyDelete 0x2E Tecla DELETE

vbKeyHelp 0x2F Tecla HELP

vbKeyNumlock 0x90 Tecla NUM LOCK

As teclas de A a Z são iguais a seus equivalentes A – Z em ASCII:

Constante Valor Descrição

vbKeyA 65 Tecla A

vbKeyB 66 Tecla B

vbKeyC 67 Tecla C

vbKeyD 68 Tecla D

vbKeyE 69 Tecla E

vbKeyF 70 Tecla F

vbKeyG 71 Tecla G

vbKeyH 72 Tecla H

vbKeyI 73 Tecla I

vbKeyJ 74 Tecla J

vbKeyK 75 Tecla K

vbKeyL 76 Tecla L

vbKeyM 77 Tecla M

vbKeyN 78 Tecla N

vbKeyO 79 Tecla O

vbKeyP 80 Tecla P

vbKeyQ 81 Tecla que

vbKeyR 82 Tecla R

vbKeyS 83 Tecla S

vbKeyT 84 Tecla T

vbKeyU 85 Tecla Usuário

vbKeyV 86 Tecla V

vbKeyW 87 Tecla W

vbKeyX 88 Tecla X

vbKeyY 89 Tecla Y

vbKeyZ 90 Tecla Z

As teclas de 0 a 9 são iguais a seus equivalentes 0 – 9 em ASCII:

Constante Valor Descrição

vbKey0 48 Tecla 0

vbKey1 49 Tecla 1

vbKey2 50 Tecla 2

vbKey3 51 Tecla 3

vbKey4 52 Tecla 4

vbKey5 53 Tecla 5

vbKey6 54 Tecla 6

vbKey7 55 Tecla 7

vbKey8 56 Tecla 8

vbKey9 57 Tecla 9

As seguintes constantes representam teclas no teclado numérico:

Constante Valor Descrição

vbKeyNumpad0 0x60 Tecla 0

vbKeyNumpad1 0x61 Tecla 1

vbKeyNumpad2 0x62 Tecla 2

vbKeyNumpad3 0x63 Tecla 3

vbKeyNumpad4 0x64 Tecla 4

vbKeyNumpad5 0x65 Tecla 5

vbKeyNumpad6 0x66 Tecla 6

vbKeyNumpad7 0x67 Tecla 7

vbKeyNumpad8 0x68 Tecla 8

vbKeyNumpad9 0x69 Tecla 9

vbKeyMultiply 0x6A Tecla SINAL DE MULTIPLICAÇÃO (*)

vbKeyAdd 0x6B Tecla SINAL DE MAIS (+)

vbKeySeparator 0x6C Tecla ENTER

vbKeySubtract 0x6D Tecla SINAL DE MENOS (-)

vbKeyDecimal 0x6E Tecla PONTO DECIMAL (.)

vbKeyDivide 0x6F Tecla SINAL DE DIVISÃO (/)

As seguintes constantes representam teclas de função:

Constante Valor Descrição

vbKeyF1 0x70 Tecla F1

vbKeyF2 0x71 Tecla F2

vbKeyF3 0x72 Tecla F3

vbKeyF4 0x73 Tecla F4

vbKeyF5 0x74 Tecla F5

vbKeyF6 0x75 Tecla F6

vbKeyF7 0x76 Tecla F7

vbKeyF8 0x77 Tecla F8

vbKeyF9 0x78 Tecla F9

vbKeyF10 0x79 Tecla F10

vbKeyF11 0x7A Tecla F11

vbKeyF12 0x7B Tecla F12

vbKeyF13 0x7C Tecla F13

vbKeyF14 0x7D Tecla F14

vbKeyF15 0x7E Tecla F15

vbKeyF16 0x7F Tecla F16

[MrMALJ]

Fera agradeço por postar a sua solução para a nossa comunidade!

Valeu!