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