Varios reportes con template?

[Yoso]

Hola!

Pues estoy buscando ayuda porque al parecer no puedo dar con la respuesta a mis dos inquietudes. Empece hace como 3 dias a estudiar access de buena manera para elaborar sistemas en la oficina para que todos puedan ocuparle. Pues bien, todo va de maravilla a excepcion de dos problemas que no puedo sortear.

1) Es posible generar con una consulta que me devuelve una tabla con muchos nombres, diplomas? Es decir elaborar con un copiar y usar el template y usar un nombre por hoja? osease, tengo el template, y quiero q ese template sea uno por hoja y que el nombre de cada uno de los de la tabla aparezca uno en cada hoja/template.

2) Estoy elaborando un sistema de reportes q debe ser generado y despues firmado (parte facil y terminada), pero despues de ser firmado, debe ser escaneado y guardado en una carpeta que puede estar en la misma direcciòn, osease que busque con /carpeta/miCarpeta, solo vincularles pero q pueda ser subida esta imagen con el mismo sistema.. He estado en busqueda de el boton que me ayude y mas o menos he hallado algo. Acà pongo lo que llevo.

Del modulo

Código:

Option Compare Database
Option Explicit
Type OPENFILENAME
        lStructSize As Long
        hwndOwner As Long
        hInstance As Long
        lpstrFilter As String
        lpstrCustomFilter As String
        nMaxCustFilter As Long
        nFilterIndex As Long
        lpstrFile As String
        nMaxFile As Long
        lpstrFileTitle As String
        nMaxFileTitle As Long
        lpstrInitialDir As String
        lpstrTitle As String
        Flags As Long
        nFileOffset As Integer
        nFileExtension As Integer
        lpstrDefExt As String
        lCustData As Long
        lpfnHook As Long
        lpTemplateName As String
End Type
Public Const OFN_READONLY = &H1
Public Const OFN_OVERWRITEPROMPT = &H2
Public Const OFN_HIDEREADONLY = &H4
Public Const OFN_NOCHANGEDIR = &H8
Public Const OFN_SHOWHELP = &H10
Public Const OFN_ENABLEHOOK = &H20
Public Const OFN_ENABLETEMPLATE = &H40
Public Const OFN_ENABLETEMPLATEHANDLE = &H80
Public Const OFN_NOVALIDATE = &H100
Public Const OFN_ALLOWMULTISELECT = &H200
Public Const OFN_EXTENSIONDIFFERENT = &H400
Public Const OFN_PATHMUSTEXIST = &H800
Public Const OFN_FILEMUSTEXIST = &H1000
Public Const OFN_CREATEPROMPT = &H2000
Public Const OFN_SHAREAWARE = &H4000
Public Const OFN_NOREADONLYRETURN = &H8000
Public Const OFN_NOTESTFILECREATE = &H10000
Public Const OFN_NONETWORKBUTTON = &H20000
Public Const OFN_NOLONGNAMES = &H40000
Public Const OFN_EXPLORER = &H80000
Public Const OFN_NODEREFERENCELINKS = &H100000
Public Const OFN_LONGNAMES = &H200000
Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOPENFILENAME As OPENFILENAME) As Long
Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOPENFILENAME As OPENFILENAME) As Long
Declare Function GetFileTitle Lib "comdlg32.dll" Alias "GetFileTitleA" (ByVal lpszFile As String, ByVal lpszTitle As String, ByVal cbBuf As Integer) As Integer
Public Const OFN_SHAREFALLTHROUGH = 2
Public Const OFN_SHARENOWARN = 1
Public Const OFN_SHAREWARN = 0
Function DialogoComun(ObjForm As Form, FiltroArch As String, TipoArch As String, DirectIni As String) As String
    Dim file As OPENFILENAME, sFile As String, sFileTitle As String, lResult As Long, iDelim As Integer
    file.lStructSize = Len(file)
    file.hwndOwner = ObjForm.hwnd
    file.Flags = OFN_HIDEREADONLY + OFN_PATHMUSTEXIST + OFN_FILEMUSTEXIST
    file.lpstrFile = FiltroArch & String$(250, 0)
    file.nMaxFile = 255
    file.lpstrFileTitle = String$(255, 0)
    file.nMaxFileTitle = 255
    'Path Inicial en la pantalla Windows de Exploración
    file.lpstrInitialDir = ObjForm.RutaInicial 'Environ$(DirectIni)
    'Filtro
    file.lpstrFilter = TipoArch & Chr$(0)
    file.nFilterIndex = 1
    'Título del letrero de diálogo. Es un control no visible del formulario de Clientes
    file.lpstrTitle = ObjForm.Título
    lResult = GetOpenFileName(file)
    If lResult <> 0 Then
        iDelim = InStr(file.lpstrFile, Chr$(0))
        If iDelim > 0 Then
            sFile = Left$(file.lpstrFile, iDelim - 1)
        End If
        DialogoComun = sFile
    End If
End Function

Y la parte del formulario

Código:

Private Sub imgUpld_Click()
Dim MiPath As String
'Recoge del módulo los parámetros con la función definida
'como DialogoComun y lo deja en la variable MiPath
'y MiPath se asigna finalmente al campo RutaFoto
    MiPath = DialogoComun(Me, "", "", "")
    If MiPath <> "" Then
        Me.RutaFoto = MiPath
        End If
        RutaFoto_AfterUpdate
End Sub

Private Sub Form_Current()
   RutaFoto_AfterUpdate
End Sub

Private Sub RutaFoto_AfterUpdate()
'Asignación de la ruta al control de imagen llamado
'ImagenCliente pero como imagen -Picture-
If Not IsNull(RutaFoto) Then
    ImagenCliente.Picture = RutaFoto
Else
    ImagenCliente.Picture = ""
End If
End Sub

Que se supone se debe mostrar la imagen y guardar la ruta del archivo y de ser posible, tambien la imagen. Pero me muestra un errror, no me deja y es en la lìnea que no entiendo porque no deja se escriba en la variable.

Me.RutaFoto = MiPath

Espero porfavor alguien pueda echarme la mano con esto.

Saludos!