Access - SnapShot

   
Vista:

SnapShot

Publicado por elio (169 intervenciones) el 27/11/2008 15:53:22
hola a todos

bien tengo un informe que lo quiero guardar en una carpeta, en formato SnapShot en el formulario le tengo puesto un boton con este codigo

DoCmd.OutputTo acReport, "Operarios", "SnapShot Format(*.snp)", "C:DATOSRECEPCIONDatosActualesMis Documentos 07programasFichero.snp", False, ""

el asunto es que cuando lo mando a ejecutar

me sale este mensaje,

En el registro de windows faltan los formatos que permiten crear datos ............

sin embargo cuando estoy creandolo desde el asitente de access si me deja crear el fichero, que puede suceder.

muchas gracias, saludos.
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

Solucion

Publicado por elio (169 intervenciones) el 04/12/2008 19:07:31
Gracias mi menda por tu tiempo, mira buscando por la red vi este codigo y lo adapte a lo que queria y me funciona bien ahora solo tengo que enviarlo por email un millon de gracias
para que otros lo vean si les interesa este codigo lo que hace es que un informe lo transforma a formato SnapsShot, y lo deja en la misma carpeta donde esta la BBDD

Private Sub Comando6_Click()
Dim rpt As Report
Dim FormatoExp As String
Dim OnlyOnce As Boolean

'se genera el informe en formato Snapshot
FormatoExp = "Snapshot Format(*.snp)"

'Abrimos el informe en vista previa
Dim stDocName As String

stDocName = "Nombre_Informe"
DoCmd.OpenReport stDocName, acPreview
Set rpt = Reports("Nombre_Informe")
rpt.Visible = False 'y con esta opcion lo ocultamos para no verlo
'en formato access

'exportamos el informe al formato Snapshot
DoCmd.OutputTo acOutputReport, "Nombre_Informe", _
FormatoExp, CurrentProjectPath & "Nombre_Informe.snp"
DoCmd.Close acReport, rpt.Name
Set rpt = Nothing

Exit Sub
End Sub

Function CurrentProjectPath() As String
'esta funcion lo que hace es localizar en que directorio esta la BBDD

CurrentProjectPath = Left(CurrentDb.Name, _
Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name)) - 1)

End Function

Saludos y muchas garcias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar