Access - dialogo busqueda archivos

Hola Guillermo

******Prueba con este codigo******

Option Compare Database
Option Explicit
'***************************************************************
'& &*
'& &*
'& &*
'& &*
'& Jefferson Jimenez (JJJT) &*
'& Cabimas - Venezuela &*
'& Julio - 2009 &*
'& &*
'& &*
'& &*
'& &*
'& &*
'***************************************************************
Public Var As String
' Función Api GetOpenFileName _
para abrir el cuadro de diálogo seleccionar archivo
Public Declare Function JJJT_Dialog Lib "comdlg32.dll" _
Alias "GetOpenFileNameA" ( _
pOpenfilename As OPENFILENAME) As Long

' Estructure de datos _
OPENFILENAME para usar con GetOpenFileName
Public Type OPENFILENAME
Tamaño_JJJT As Long
Hwnd_JJJT As Long
Ins_JJJT As Long
Filtro_JJJT As String
CFiltro_JJJT As String
MFiltro_JJJT As Long
IFila_JJJT As Long
Fila_JJJT As String
MFila_JJJT As Long
LTitulo_JJJT As String
MTitulo_JJJT As Long
Disco_JJJT As String
Titulo_JJJT As String
JJJT_flags As Long
O_JJJT As Integer
Ext_JJJT As Integer
DE_JJJT As String
C_JJJT As Long
HO_JJJT As Long
N_JJJT As String
End Type

Function JJJT_CuadroDialog(tltFiltro, Directorio As String, Ctr As Control)
Dim El_Archivo As OPENFILENAME

With El_Archivo
.Tamaño_JJJT = Len(El_Archivo)
.Ins_JJJT = 1
.Filtro_JJJT = tltFiltro
.Fila_JJJT = Space$(254)
.MFila_JJJT = 255
.LTitulo_JJJT = Space$(254)
.MTitulo_JJJT = 255
.Disco_JJJT = Directorio
.Titulo_JJJT = "Busque la Base de Datos"
.JJJT_flags = 0
End With

'Abrimos el cuadro de diálogo pasándole _
a GetOpenFileName la estructura anterior
If JJJT_Dialog(El_Archivo) Then
MsgBox "Ud. Seleccionó: " + Trim$(El_Archivo.Fila_JJJT), , "Cuadro Dialogo"
Ctr = Trim$(El_Archivo.Fila_JJJT)
Else
MsgBox "Cancelado", , "Dialog"
End If

End Function

o si lo prefieres descarga el ejemplo desde esta direccion http://4313523533579166434-a-1802744773732722657-s-sites.googlegroups.com/site/jjjt1973/Home/abrir-cuadro-dialogo/CuadroDialogo_JJJT.rar?

Desde Venezuela
Jefferson

En el diseño de código, en Herramientas->Referencias, añade una a Microsoft Office X.X Object Library.

Saludos
José Bengoechea Ibaceta