[Resolvido]Comando Adicionar Novo em um Formulário para Funcionar em outro

Saudações!!!

Tenho uma Duvida que a seguinte:

Tenho os Formulários FVendas e FPagamento

Ao apertar a tencla F3 dentro do FPagamento eu gostaria que:

*Imprimir Relatorio "Cupom"
*Fechar FPagamento
*Efetuar Comando NovoRegistro para FVendas

Obrigado Aguardo retorno

Cria uma macro

Os eventos ao Apertar Tecla do seu Formulario ficaria assim:

Código:


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'----------------------------------------------------------------
Select Case KeyCode
'Ao pressionar F3
  Case vbKeyF3
  'Imprime direto o relatório na impressora padrão.
  DoCmd.OpenReport "Copm"
  'Fecha o Formulario Aberto
  DoCmd.Close
  'Abre o Formulario FVendas e Cria Novo registro
  DoCmd.OpenForm "FVendas"
  DoCmd.GoToRecord , , acNewRec
'Caso queira novas funçoes ao pressionar outras teclas:
Case vbKeyF4
'Ao pressionar F4 Abre o Formulario1
DoCmd.OpenForm “formulario1”
'Ao pressionar F5 Abre o Formulario2
Case vbKeyF5
DoCmd.OpenForm “formulario2”
End Select
'----------------------------------------------------------------
End Sub


So lembrando que isso é no Evento do Formulário.
E seu formulario na Guia EVENTOS, na Opção: Visualizar Teclas (ultimo Evento desta guia) deve estar com SIM.

Fabio muito obrigado! Funcionou perfeitamente.

Valeu. O forum agradece.