Access - Ahorrar código

Usualmente en nuestras aplicaciones tenemos que abrir bastantes formularios que corresponden a diferentes tareas.
Como sabemos, si lo hago con un "botón", el código para esto es:

Private Sub AbreFormulario_Click()
On Error GoTo Err_AbreFormulario_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "NombreFormulario"
DoCmd.OpenForm stDocName, , , stLinkCriteria


Exit_AbreFormulario_Click:
Exit Sub

Err_AbreFormulario_Click:
MsgBox Err.Description
Resume Exit_AbreFormulario_Click
End Sub

Pregunta: Se puede crear, en un módulo, una función que tome este código y después cuando se quiera abrir un formulario llamar a esa función poniendo sólo el nombre del formulario que deseo abrir ??
De lo contrario, como lo tengo hasta ahora, sólo queda copiar este código cada vez que deseo abrir un formulario ??
Pretendo ahorrar un poco de código.
Gracias.
Marcos

Hola Marcos:

En el Módulo

Public Sub AbreFormulario(dimeForm As String)
Docmd.OpenForm dimeForm
End Sub

Para llamar al procedimiento

AbreFormulario "NombreFormularioQueremosAbrir"

Pero no te ahorrarás código, porque el código que pones es el que te da el asistente, que lo puedes reducir a:

Docmd.OpenForm "NombreFormularioQueremosAbrir"

Como ves una sola línea, sín contar con la gestión de errores, y te evitas el módulo.

Un Saludo

O
DoCmd.OpenQuery "NombreFormulario"

O
En módulos abrí una función que se llame AbrirFormularios (podés copiar exactamente esto)

Function AbrirFormularios (NombreFormulario)
On Error GoTo Err_AbreFormulario_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = NombreFormulario
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_AbreFormulario_Click:
Exit Function

Err_AbreFormulario_Click:
MsgBox Err.Description
Resume Exit_AbreFormulario_Click
End Function

En el formulario que tenés el botón para abrir el formulario hacés

Dim NombreFormulario As String
NombreFormulario = "frmagentes"
Call AbrirFormularios(NombreFormulario)

‘-frmagentes es el nombre del formulario

suerte