[RESOLVED] Q: Data Report Sub-Report?

[cometburn]

Does Data Report supports sub-reports? i mean is it capable? coz i have 2 recordsets that the data report should have...

Anyone encountered this? any insights of how am i going to do this? advices?

Thanx...

[KGComputers]

Hi,

Yes, you may assign the appropriate controls in the details section to resemble as a subreport. but embedding another data report inside a data report
i think is not possible...I don't know with the other guys here...

Greg

[cometburn]

you know how to set a group header datasource programmatically? anyone?

[cometburn]

Still having problems here.. Please help!!! im almost finished with my work but not knowing how to set grouping on a datareport gives me hell of a headache.
i searched for the topic but leads me to nothing. please help!

[KGComputers]

Hi,

Can you post the a draft on your desired output/report?

Greg

[cometburn]

Solve it! Whew! I'll Paste the code here for Reference of those who will have the same problems as me.

[KGComputers]

Good job dude....

If you'll paste the code, don't forget to put VB tags on it...


Greg

[cometburn]

This is i want my Report to look like...

Group Header(Section4)---------------------

Computer Name: Comp1
Ip Address: Blah.blah.blah.blah

Detail(Section1)----------------------

Applications Used: VB
Excel
Etc...


this is how i achieve this programmatically:

Dim str, cond As String
Dim rs As New ADODB.Recordset
str = "Select * from tblUsers"
 
'Shaped Recordset
str = "SHAPE {" & str & "} APPEND "
str = str & "({SELECT * FROM qryUserApps} AS User "
str = str & "RELATE UserID TO UserID) AS UserApps"
 
 
 
Dim ConnStr As String
Dim Conn As New ADODB.Connection
Set Conn = New ADODB.Connection
 
ConnStr = "Data Provider=Microsoft.Jet.OLEDB.4.0; " & _
          "Provider=MSDataShape;Data Source=" & App.Path & "\Database.mdb;"
If Conn.State = 1 Then Conn.Close
Conn.ConnectionString = ConnStr
Conn.Open
 
If rs.State = 1 Then rs.Close
rs.Open str, Conn, 1, 3, 1
 
'For the controls on the group header section,
'add a textbox and set its datafield
 
'Set each Controls data members(controls which are located only on detail section of the data report)
With drCmiUser.Sections("Section1").Controls 
    .Item("txtApplication").DataMember = "UserApps"
     'UserApps is a Shaped Recordset
End With
'NOTE: Dont forget to set the Controls DataField on the Data Report
 
 
drCmiUser.Orientation = rptOrientLandscape
Set drCmiUser.DataSource = rs
drCmiUser.Show vbModal

Hope this help people in the future...

[rothj0hn]

thanks

________
Website design

[Encoder]

This is exactly what I'm looking for! Can you help me on this? DO I have to shape a recordset for my datareport? My question is here:

http://www.vbforums.com/showthread.php?t=554972

Please, please help me in the coding!