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!