Access - ADJUNTAR ARCHIVOS

   
Vista:

ADJUNTAR ARCHIVOS

Publicado por MARIA JOSE majo1272@hotmail.com (14 intervenciones) el 18/09/2014 16:52:41
Quisiera saber como forzar la ruta para el cuadro diálogo de adjuntar mensajes para una bbdd concreta ya que cada Dpto. tiene aplicaciones diferentes y carpetas compartidas diferentes.

He probado con codigo y de momento consigo guardar la ruta de los archivos seleccionados en un campo, aunque lo que quisiera es adjuntarlos a la aplicación.

Necesita ayuda urgente ya que se poco muy poco de programación. Paso el código:



Function EscogeFichero_Con_OpenDialog() As String
'Se necesita referenciar en el editor de VBA Microsoft Office XX.X Object Library

Dim vrtSelectedItem As Variant
Dim fd As FileDialog, ESCOGIDO As String
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.AllowMultiSelect = True 'Solo dejo coger VARIOS fichero ( multiseleccion)
.InitialView = msoFileDialogViewPreview 'aqui hemos puesto la vista previa
.Filters.Add "Todos los archivos: ", "*.*", 1 'solo dejo ficheros de texto"
.InitialFileName = "C:\Users\Javier\Desktop\+STUDIO\+STUDIO NUEVO" 'aqui digo en qué carpeta se tiene que abrir por defecto
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
Archivo = vrtSelectedItem
Forms![TINTE_ARGUIMODE]![Nota] = Archivos & vbCrLf & Archivo
Next vrtSelectedItem

EscogeFichero_Con_OpenDialog = ESCOGIDO
Else
EscogeFichero_Con_OpenDialog = ""
End If
End With
Set fd = Nothing
End Function
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