Configurar botón para ir a una carpeta especifica y ver archivos. Para ello señalo la ruta actual donde me encuentro.

Private Sub BD3_Click()

On Error GoTo Err_BD3_Click

Dim stAppName As String

stAppName = "C:\Users\Jose Martinez\Documents\Jose Martinez\Jose Martinez\Aplicaciones en Access\APU en Diseño\Proyectos\"

‘Cambiar lo que está en rojo por algo así como:Application.CurrentProject.Path

Para que cuando cambie el archivo de carpeta me conserve la ruta de donde está´

Application.FollowHyperlink stAppName

Exit_BD3_Click:

DoCmd.Quit

Exit Sub

Err_BD3_Click:

MsgBox Err.Description

DoCmd.Quit

Resume Exit_BD3_Click

End Sub