Visual Basic - Urgente, Solo expertos

Life is soft - evento anual de software empresarial
 
Vista:

Urgente, Solo expertos

Publicado por Cesar (80 intervenciones) el 13/12/2002 20:50:53
Hola Amigos :
Tengo un programa finalmente terminado y tengo mis informes creados en la base de datos(Acces 97) pero resulto que a dicha base de datos tuve que colocarle claves y hora no puede ejecutar los informes desde el programa y como entenderan es un gran problema cambiar los informes a Crystal R. por el tiempo la pregunta es ¿ como llamos los informes que poseen clave en la base de datos desde Visual Basic ... ?
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

RE:Urgente, Solo expertos

Publicado por Francisco (65 intervenciones) el 15/12/2002 14:56:59
Verás... No soy experto; de hecho no tengo estudios formales en programación. Sin embargo me apasiona al punto que de tanto compartir en este tipo de páginas algo he aprendido. Pero no estaba preparado para lo que acabo de leer.
¿Se puede ejecutar informes de Acces desde VB (tengo el 5.0)?
Sería para mi un gran descubrimiento. Y, además, me sentiría bastante estúpido por haber luchado todo este tiempo con las peculiaridades de Crystal.
Si tú o alguien más puede aclarar este tema, le estaré muy agradecido.
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

RE:Urgente, Solo expertos

Publicado por Joni (18 intervenciones) el 17/12/2002 12:10:59
Echale un vistazo a esta funcion que es la que yo uso.
AccionInforme =2 > presentacion preliminar
AccionInforme =1 > imprime directamente

Public Function ImprimirInforme(Informe As String, sql As String, AccionInforme As Integer) As Integer
Dim XL As Object, i As Integer

If AccionInforme = 1 Then
ImprimirInforme = True
Exit Function
End If
On Error GoTo noimprime
Screen.MousePointer = 11
Set XL = CreateObject("Access.application")
XL.Opencurrentdatabase FilePath:=PathDB
'si es presentacion preliminar mostramos Access
If AccionInforme = 2 Then XL.Visible = True

'para imprimir directamente, y aplicar un filtro(sentencia WHERE sin el WHERE)
XL.DoCmd.OpenReport Informe, AccionInforme, , sql
If AccionInforme = 2 Then XL.DoCmd.maximize

Set XL = Nothing
ImprimirInforme = True
Screen.MousePointer = 0
Exit Function

noimprime:
Call MensajeError("Problemas al imprimir, verifique impresora y Access.", Err)
ImprimirInforme = False
Exit Function
End Function
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