Access - Se ha producido el error '438' en tiempo de ejecucion

   
Vista:

Se ha producido el error '438' en tiempo de ejecucion

Publicado por Fernando Zelaya (1 intervención) el 13/01/2015 22:50:40
Estimados Sres.:

Tengo problemas al querer explorar una ruta en un Archivo de Acces cuando quiero abrir el cuadro para explorar la ruta me sale "Se ha producido el error 438 en tiempo de ejecucion" tengo Office 2010 le doy depurar y me resalta la siguiente linea de comando en amarillo. (CommonDialog1.CancelError = True)

si alguien me puede ayudar a solucionarlo se lo agradeceria mucho. Gracias de ante mano.


Sub cargar()
CommonDialog1.CancelError = True
On Error GoTo ErrHandler

CommonDialog1.Flags = cdlOFNHideReadOnly

CommonDialog1.Filter = "Base Data File " & _
"(*.bdf)|*.bdf|Base Data File(*.bdf)|*..dbf"

CommonDialog1.FilterIndex = 2
CommonDialog1.FileName = NameFilterFile
CommonDialog1.ShowOpen
FileN = CommonDialog1.FileName
Select Case Op
Case 1
Me.txt_DNomina = FileN
Op = 0
Case 2
Me.Devengado = FileN
Op = 0
Case 3
Deduccion = FileN
Op = 0
Case 4
Me.Fuente = FileN
Op = 0
Case 5
Me.Nombramiento = FileN
Op = 0
Case 6
Me.Titulo = FileN
Op = 0


End Select

Exit Sub
ErrHandler:
' El usuario ha hecho clic en el botón Cancelar
MsgBox Err.Description
Exit Sub



End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder