
Cambia esto, solo hay que añadirle un dir
Private Sub cmdAbrir_Click()
txtRuta_Foto.SetFocus
Dim s As String
s = OpenCommDlg()
s = Dir(s, vbArchive)
If s <> "" Then
txtRuta_Foto = s
txtRuta_Foto_AfterUpdate
End If
End Sub
--
Salu2,
Ju@nK
********************************************************************************************
Has recibido este mensaje porque estás suscrito a Grupo "Ju@nK" de Grupos de Google.
Si quieres publicar en este grupo, envía un mensaje de correo
electrónico a ju...@googlegroups.com
Para anular la suscripción a este grupo, envía un mensaje a juank-un...@googlegroups.com
Para obtener más opciones, visita este grupo en http://groups.google.es/group/juank?hl=es.
**********************************************************************************************
Ju@nK [MVP Access] 2006/08
[DCE2003 ***] + VSTO [DCE2005 **]
http://juank.mvps.org
www.juank.tk
www.juank.es
¿Que es un MVP?, entérate en http://mvp.support.microsoft.com
**********************************************************************************************