RE:gran problema datareport
Mira esté código y estudiate las secciones del informe saludos.
Tabla = "select Datos.Cod_Accion as 'Código de Acción',Datos.Cod_Socio as 'Código de Socio' ,Max(Datos.Fecha) as Fecha From Datos" & Control.LocalHostName & " Datos Inner Join Accion on Datos.Cod_Socio=Accion.Cod_Socio Inner Join datos_socios Clientes on Datos.Cod_Socio=Clientes.Codigo_Cliente Inner Join Cobrador on Clientes.Id_Cobrador=Cobrador.Id_Cobrador Where Accion.Accion='" & Accion & "' And Cobrador.Apellido_Cob='" & Cobrador & "' Group By Datos.Cod_Accion ,Datos.Cod_Socio"
Set Rs = New ADODB.Recordset
Rs.Open Tabla, Cn2, adOpenStatic, adLockReadOnly
If Rs.RecordCount > 0 Then
Set DataAccion.DataSource = Rs
With DataAccion.Sections("Sección1").Controls
.Item("TextAccion").DataField = "Código de Acción"
.Item("TextSocio").DataField = "Código de Socio"
.Item("TextFecha").DataField = "Fecha"
End With
With DataAccion.Sections("Sección4").Controls
.Item("LblTitulo").Caption = Accion
End With
If MsgBox("¿Desea ver los Datos x Pantalla?", vbInformation + vbYesNo, "Sistemas") = vbYes Then
DataAccion.Show vbModal
Else
DataAccion.PrintReport
End If
Else
MsgBox "No Hay Datos para Imprimir", vbInformation, "Sistemas"
End If
Tabla = ""
Set Rs.DataSource = Nothing