[Resolvido] Erro em conversão de macro para código

Bom dia! Estou tentando converter uma macro para código mas está dando o erro "Erro de compilação. Era esperado END SUB". A macro abre o formulário de cadastro para editar somente um item escolhido na caixa de combinação. Usando só a macro funciona beleza mas o código está dando erro.
Alguém sabe onde está o erro?
Obrigado!


Private Sub Comando13_Click()

Function Mcr_Abrir_esta_PVE()
On Error GoTo Mcr_Abrir_esta_PVE_Err

DoCmd.OpenForm "Frm_Cadastro", acNormal, "", "[Cod_pve]=[Forms]![Frm Consulta Lista Geral - vei]![Sub Frm Cst PVE-MIK]![Cod_pve]", , acNormal
DoCmd.OpenForm "Frm_Cadastro", acNormal, "", "[Cod_pve]=[Forms]![Frm Consulta Lista Geral - descr]![Sub Frm Cst PVE-MIK]![Cod_pve]", , acNormal
DoCmd.OpenForm "Frm_Cadastro", acNormal, "", "[Cod_pve]=[Forms]![Frm Consulta Lista Geral - modelo]![Sub Frm Cst PVE-MIK]![Cod_pve]", , acNormal


Mcr_Abrir_esta_PVE_Exit:
Exit Function

Mcr_Abrir_esta_PVE_Err:
MsgBox Error$
Resume Mcr_Abrir_esta_PVE_Exit

End Function

Olá Juliano
Veja que o próprio Access está dizendo onde está o erro:

"Erro de compilação. Era esperado END SUB

Mas você colocou a função dentro do evento click do comando13
Então faça assim:

Código:


Private Sub Comando13_Click()
Call Mcr_Abrir_esta_PVE() '- Aqui você chama a Função
End Sub


' Esta é a função propriamente dita:

Function Mcr_Abrir_esta_PVE()
On Error GoTo Mcr_Abrir_esta_PVE_Err

DoCmd.OpenForm "Frm_Cadastro", acNormal, "", "[Cod_pve]=[Forms]![Frm Consulta Lista Geral - vei]![Sub Frm Cst PVE-MIK]![Cod_pve]", , acNormal
DoCmd.OpenForm "Frm_Cadastro", acNormal, "", "[Cod_pve]=[Forms]![Frm Consulta Lista Geral - descr]![Sub Frm Cst PVE-MIK]![Cod_pve]", , acNormal
DoCmd.OpenForm "Frm_Cadastro", acNormal, "", "[Cod_pve]=[Forms]![Frm Consulta Lista Geral - modelo]![Sub Frm Cst PVE-MIK]![Cod_pve]", , acNormal


Mcr_Abrir_esta_PVE_Exit:
Exit Function

Mcr_Abrir_esta_PVE_Err:
MsgBox Error$
Resume Mcr_Abrir_esta_PVE_Exit

End Function


Abraços

Obrigado. Amanhã dou uma olhada e retorno.

Olá, deu certo mas tive de excluir as duas linhas que fazem referência aos outros formulários pois veio a mensagem de erro "inserir valor do parâmetro" pedido o formulário seguinte. As duas que exclui foram:

DoCmd.OpenForm "Frm_Cadastro", acNormal, "", "[Cod_pve]=[Forms]![Frm Consulta Lista Geral - descr]![Sub Frm Cst PVE-MIK]![Cod_pve]", , acNormal
DoCmd.OpenForm "Frm_Cadastro", acNormal, "", "[Cod_pve]=[Forms]![Frm Consulta Lista Geral - modelo]![Sub Frm Cst PVE-MIK]![Cod_pve]", , acNormal

A macro que criei era um grupo de formulários que são iguais a esse (veículos) mas tinham os outros (modelo e descrição). A estrutura era a mesma mas mudavam os tipos.

Vou adaptando para os outros então.
Obrigado!

Resolvido então?

Obrigado pelo retorno
Não esqueça do Resolvido.

Boa Sorte !