SoloCodigo

Hola gente, priemero que nada gracias por la ayuda, segundo por cuestiones de la vida aparque un poco la programacion y no entro por aqui hace bastante tiempo.

El tema es el siguiente: Tengo un proyecto personal que maneja mas de 30 Tablas y que apartir del ingreso de 3 datos me genera unas 80 hojas de texto a imprimir
despues de mas de 5 años con el proyecto desde su nacimiento y desarrollo poco a poco esta casi acabado salvo la parte de impresion que en si es lo que me esta faltando

El programa es un sistema de numerologia, unico CREERME que es UNICO no existe nada semejante en cuanto a la profundidad que abarca, hay similares pero con un 10% aproximadamente de los datos que yo manejo

El problema es que todo se hace dinamicamente por tanto no puedo arrastrar un command al datarport, no se porque cojones pero el datareport no me permite modificar los reportes via codigo con lo sencillo que seria, a su vez hay datos que no siempre se imprimen o mejor dicho no siempre aparecen por tanto no puedo enviar para imprimir una cantidad cierta de textbox ya que pueden pasar de ser 4 a 3 o mas dependiendo de la necesidad. etc, esto creo que va para largo..... dios como hecho de menos Clipper Summer 87 jajajajaja

Por tema laboral solo puedo conectarme a internet un par de veces por semana
si tardo en responder, porfavor tratar de comprenderme. Perdon por el ladrillo.
Gracias a todos de antemano

Con lo q pones no llego a ver el problema , sorry
 

ok a ver si entendi el tema es el siguiente

ej

Nombre | Apellido | Telefono | Movil | Fax
-------------------------------------------------
El          | Loco      | No lo se | 1111  |1122
-------------------------------------------------

vos queres q cuando te pinchen en el nombre obtener los datos del resto de la fila

1) solucion seria crear una matriz de 5 por ej ya q son 5 los campos
y cargarlas con 1 for por ej
e ir avanzando columna a columna

el tema es q el datagrid es bastante jodido para algunas cosas
pero pienso q la opcion de arriba es bastante valida como otras q ya te dieron

no se me ocurre otra cosa
 

 Holas gente!!

Comento 1 par de cosas la sentencia select que puse es a modo de EJEMPLO
lo que si tuve que hazer Brroz es cambiar la sentencia que usaba para el datagrid que es T-SQL y usar el sql de access

Voy a revisar de nuevo el codigo que paso Ebolo a ver que encuentro

Ebolo si pongo el Object Library 9 no me funciona porque yo tengo el 10
no tengo idea porque pero en fin , creo que nada tiene que ver con que sea accsess 97 o 2000 sino con que libreria tengas instalada.

Brroz lo de crear la consulta ya lo habia hecho y apartir de ahi cree el informe de accsess , y sin las lineas de ebolo no me funciona!

Una ultima cosa de momento solucione uno de los problemas que tenia de
la siguiente manera

1) creo un comando en el data environment , Dynamico y que devuelva un RS
2) Creo 1 datareport y lo vinculo al Comando
3) Como no se porque motivo no me lo filtra opte por cerrarlo
y abrirlo con cada sentencia select que necesito cuando le doy al boton Imprimir

 

Igualmente me sigue interesando el tema de Access

Gracias a Todos!!

Hola, Primero antes que nada gracias por la brevedad

2) Por amor de dios los Indetados PLEASE!!
3) Tuve que modificar un par de cosas y funciono
Pero!!!!
en mi caso es VB 6 SP 5 con Access 2000
ojo al dato, si es XP el SO  la referencia es Microsoft Access 10 Object library
aparte hay un tema lindo, NO MUESTRA EL INFORME sino que abre el ACCESS salvo que el ACCESS abierto de antemano, en ese caso muestra el informe sin problemas

Otro problema que tuve fue que no me permite hacer una consulta por mes
a decir por ej listar los cumpleaños del mes de setiembre donde la sentencia seria
mas o menos asi
SELECT * FROM PERSONAL WHERE [Fecha Nacimiento] like '%%/09/%%%%'

solo que yo ya tengo diseñada 1 consulta en acces donde le paso el mes por parametros pero tampoco funciona
AAAAAAAaaaaaaaaaaaaaaaaaahhhhhhhhhhhhhhhh

Esto de los reportes me va a dejar maás loco todavia

A continuacion adjunto el codigo modificado
---------------------------------------------------------------------------------------
Option Explicit
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public Function Imprimir(ByVal Formato As String, ByVal Filtro As String _
, Optional ByVal VistaPrevia As Boolean) As Boolean

' No se si es 1 tare de XP pero hay que tener el Acces Abierto
' si no esta abierto lo abre pero no carga el informe
' IMPORTANTE AGREGAR REFERENCIA Microsoft Access 8.0 Object library O SUPERIOR
' SE LLAMA ASI:
' Imprimir("Tu_informe_de_access", consulta2, True)
'Donde:
'    -" Tu_informe_de_access", es el nombre que le has dado al informe y que pasa 'como "Formato" al módulo.
'    -  consulta2, es el Filtro que le pasamos al módulo que lo usará para abrir el informe.
'    -  True o false, por si queremos vista previa ó no.


On Error GoTo Error_Imprimir

Dim sngMouseP As Single
sngMouseP = Screen.MousePointer
Screen.MousePointer = 11
DoEvents

Dim dbW, ObjAccess As Object

'(Estos 2 pasos siguientes se los añado yo porque sino no me abría la base de datos)
'Creamos el objeto

Set ObjAccess = CreateObject("access.application.10")
' CAMBIAR EL 10 POR LA VERSION Microsoft Access Object library QUE SE USE
'Si la base de datos fuera de access 2000 tendríamos que poner un 9, en vez de 8( que es para access 97).
'Abrimos la B.D. que nos interesa

'ObjAccess.OpenCurrentDatabase "BaseDeDatos.mdb" ' Da ERROR 7866 con esta linea

ObjAccess.OpenCurrentDatabase app.path & "\Tiradentes2.mdb"

Set dbW = GetObject(App.Path & "\Tiradentes2.mdb")

If VistaPrevia Then ShowWindow dbW.hWndAccessApp, 3

On Error Resume Next
dbW.UserControl = False
On Error GoTo Error_Imprimir
Dim int1 As Integer

If VistaPrevia Then int1 = 2 '2 = acViewPreview , 0 = acViewNormal

If dbW.Reports.Count = 0 Then
    dbW.DoCmd.OpenReport Formato, int1, , Filtro   'muy importante esta línea que se 'ponga como está, en el orden: "Formato", "int1" que es la vistaprevia, " " espacio en 'blanco,y  "Filtro" que es la consulta que le pasamos al módulo.
Else
    Dim lng1 As Long
    For lng1 = 0 To dbW.Reports.Count - 1
        If dbW.Reports(lng1).Name = Formato Then
            dbW.Reports(Formato).Filter = Filtro
            GoTo Exit_Fn
        End If
    Next lng1
    dbW.DoCmd.OpenReport Formato, int1, , Filtro
End If

Exit_Fn:
Imprimir = True

Salir_Imprimir:
On Error Resume Next
If Not VistaPrevia Then
    dbW.Quit
Else
    dbW.DoCmd.Maximize
    dbW.UserControl = True
End If
Set dbW = Nothing
Screen.MousePointer = sngMouseP
Exit Function

Error_Imprimir:
MsgBox "Fallo al imprimir informe '" & Formato & "'" & String(2, vbCrLf) _
& "(" & Err.Number & ") " & Err.Description, vbCritical, "Imprimir"
VistaPrevia = False
Resume Salir_Imprimir

End Function

-----------------------------------------------------------------------------------

Simplemente con una nueva coneccion de ODBC deberia bastar