[Resolvido]Atalho por Teclas Formulário para subformulário

Gostaria de uma luz referente a atalho de teclas
Uso o código abaixo para teclas

Private Sub Form_KeyDown(KeyCode As Integer, shift As Integer)
If KeyCode = vbKeyF4 Then
Call Comando205_Click
KeyCode = 0
End If
End Sub

Em formulário com sub_¬form. não funciona, como devo fazer para funcionar.
Agradeço a atenção

tinha esse mesmo problema

tinha criado

num formulario(listbox)
deu certo

mas com sub formulario
não coseguie

Leam, vamos aguardar um luz do pessol.

No evento do SubFormulário: Ao apertar tecla

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF3 'Tecla F3
DoCmd.RunMacro "M01-AbrirFormularios.TiposDespachos"
Case vbKeyF4 'Tecla F4
DoCmd.RunMacro "M01-AbrirFormularios.DOCxSubStatus"
End Select
End Sub

Não esqueça de colocar um rótulo para informar as teclas a serem acionadas.

qual seu projeto?

Vileman, neste caso tem que se criar macros??

Sim, neste caso é usado com macros, até agora não fiz de outra forma.

Amigo Leam, a qual projeto se refere, não entendi ? Usei um formulário e um subformulário vinculado ao 1º e o atalho feito usando as macros já existentes para abrir tais formulários, é isso?

o projeto que está fazendo em access
qual sua finalidade?

O projeto no qual usei o exemplo do atalho por teclas já foi finalizado, e foi usado para cadastramento no formulário principal e no subformulário para adicionar registros relacionados ao registro principal. No exemplo das teclas F3 e F4 acionavam os formulários dos tipos de despachos padrão (campo obrigatório) e o Status do registro atual (campo obrigatório), respectivamente, ou seja, precisava abrir essas tabelas e escolher o texto apropriado para cada situação inclusa no subformulário, deu para entender ?

Bom dia Naldo;

Transforme o Private do seu botão no subform em Public

Public Sub Comando205_Click()
.....
End Sub

Agora já pode invocar a chamada no form, assim;

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF4 Then
Call SeuSubForm.Form.Comando205_Click
KeyCode = 0
End If
End Sub


Recomendo que altere o nome desse botão que foi criado por defeito, ele poderá existir no formulario também.

Coloque por exemplo: cmdQualquerCoisa

Desculpe-me JP, não consegui fazer com sua explicação, tenho pouco conhecimento em VBA.

Transforme o Private do seu botão no subform em Public(não sei como fazer)

Sou grato pela sua atenção, abraços