Access - Directorio , Copia ,Mover y renombrar

Estimados muy buenos días.

La verdad es que hace mucho que visito vuestro sitio y me ha sido de mucha ayuda

Les vengo a solicitar vuestra ayuda con lo siguiente (sé que hay algunos temas similares pero no como lo que necesito precisamente)

Tengo una base de datos de personal, cada uno con fotos, el nombre lo relaciono con su RUT

"actualmente copio las fotos manualmente a una carpeta (X:\FOTOSTIP) y desde un acceso directo las vinculo. Este campo se llama RUTAFOTO"

Lo que deseo hacer es lo siguiente:
En un formulario:
1.- mediante un botón seleccionar el archivo... (Imagen JPG)
2.-copiar el archivo y moverlos a (X:\FOTOSTIP)
3.-REMONBRAR la imagen con RUT, que es TEXTO
4.-en el campo RUTAFOTO escribir la ruta (X:\FOTOSTIP/imagen_NOMBRERUT.jpg)

Se los agradecería inmensamente.

NOTA: ADJUNTO IMAGEN DE FORMULARIO .
Saludos.

Hola.

Para lo de seleccionar archivo, te adjunto un ejemplo.

Una vez seleccionado, puedes utilizar la instrucción de VBA para copiar y renombrar el archivo.


Espero que te sirva.

Un saludo,

Norberto.

• DlgBox.zip(22,2 KB)

Excelente!!! , sabía que alguien tan capo como tú me podría ayudar.

Es exactamente lo que necesitaba.

Muchas gracias.

Que tengas buena semana.

NOTA: TEMA CERRADO

Estimado Norberto estoy haciendo algo de curiosidad en otros ejemplos problemas en los que aprendo mucho de las respuestas, que dan los expertos. Hasta ahora no he preguntado sobre que significa y que hace el Me. en los codigos tu colocas en ejemplos:
Me.RutaFoto = NuevaRuta & NuevoNombre

Que hace el Me?????

Gracias

Buenos dias Felix .

el "Me." , es indicar es para hacer referencia al valor de una tabla activa.

en el caso de Me.RutaFoto = NuevaRuta & NuevoNombre
quiere decir Me.RutaFoto se escriba el valor de la ubicacion , Nuevo Nombre.

en mi caso quedo asi:

Me.RutaFoto = ("X:\fotosTIP\wmf\" & Me.RUT & Me.EXTENSION)
entonces en mi campo RutaFoto se escribira por ejemplo:
X:\fotosTIP\wmf/12762101.JPG

donde :

RUT :el nombre del archivo copiado. en mi caso numerico.
EXTENSION : ".jpg "o lo copiado te quedar como archivo sin extension
RUTAFOTO :campo texto ( para crear hipervinculo a la foto)

* son campos de mi tabla.

Ojala te pueda ayudar .

Saludos.