| Pregunta: | 19235 - IMPRIMIR INFORME DE ACCES2000 |
| Autor: | Badtoy |
| Que instrucciones debo seguir para visualizar e imprimir un informe hecho en Access 2000, desde una aplicación hecha con VB6?
Gracias | |
| Respuesta: | Daniel Guevara |
| Bueno la verdad no lo he hecho desde visual basic 60 con Access 2000
lo he hecho desde visual 5 con access 97 espero que re sirva, rescate una rutinita que tenia Private Sub Command1_Click() On Error GoTo meserr Dim aplicAccess As New Access.Application Dim mconsulta As String If Option1.Value = True Then mconsulta = "((CITAS.fecha) = #0" & Calendar1.Value & "#)" ' mconsulta = "((CITAS.fecha) = #2/7/99#)" Else mconsulta = "(((CITAS.fecha) = #" & Calendar1.Value & "#) And ((IPS.CIPS) = " & DBCombo1.BoundText & "))" End If Set aplicAccess = CreateObject("Access.Application.8") aplicAccess.OpenCurrentDatabase (directorio) aplicAccess.DoCmd.OpenReport "CITAS POR PROFESIONAL REPO", acPreview, "", mconsulta Dim MBD As Database Dim MRE As String Set MBD = OpenDatabase(directorio) MRE = MBD.QueryDefs("CITAS POR IPS POR FECHA").SQL aplicAccess.DoCmd.Maximize On Error GoTo 0 Exit Sub meserr: MsgBox ("NO PUEDO REALIZR EL INFORME EN EL MOMENTO" & Err.Description) End Sub | |