Private Function diretel.frm_input.btn_examinar_Click.1.txt

Calls out:


Exit Proc

Incoming calls for diretel.frm_input.btn_examinar_Click.1.txt


Decompiled source code follows:

On Error Resume Unknown
frm_principal.41.CD1.DialogTitle = "Abrir"
frm_principal.41.CD1.Filter = "Base de Datos Diretel(Diretel.mdb)|Diretel.mdb"
frm_principal.41.CD1.Flags = 4100
frm_principal.41.CD1.CancelError = True
frm_principal.41.CD1.ShowOpen
txt_ruta.Text = frm_principal.41.CD1.FileName
Set Local1 as Nothing
Exit Proc
End Sub