[RESOLVED] data report

[basti42]

hi!
how could i show my date only once in data report?
i mean place rpttextbox in header?

i attached picture.
tnx

[Hack]

What are you doing now that isn't working?

[basti42]

i can't insert my date (box with red color) in heading
if my rpttext put in the detail section it will show many dates
if i try rpttext in the heading it is forbidden...
how?

[basti42]

  DE1.rsCommand3.Open "SELECT * FROM tbl", con, adOpenDynamic, adLockOptimistic
     If DE1.rsCommand3.EOF <> True Then
     Me.MousePointer = vbHourglass
     
     Set rpt.DataSource = DE1.rsCommand3
       With rptCheckpointsReport.Sections("Section2")
        .Controls("lblDateIssued").Caption = "date" + DE1.rsCommand3.Fields("lblDateIssued").Value
      End With

error msg:
Item cannot be found in the collection corresponding to the requested name or ordinal

what's wrong?

[basti42]

  DE1.rsCommand3.Open "SELECT * FROM tbl", con, adOpenDynamic, adLockOptimistic
     If DE1.rsCommand3.EOF <> True Then
     Me.MousePointer = vbHourglass
     
     Set rpt.DataSource = DE1.rsCommand3
       With rptCheckpointsReport.Sections("Section2")
        .Controls("lblDateIssued").Caption = "date" + DE1.rsCommand3.Fields("lblDateIssued").Value
      End With

error msg:
Item cannot be found in the collection corresponding to the requested name or ordinal

what's wrong?

[KGComputers]

Have you checked the name of your controls in the data report?

Greg

[basti42]

attached is tha design time in datareport.
did you see the red box? i will just want to change it to:
"date issued : 03/10/2008"
tnx to you

[wes4dbt]

"date" + DE1.rsCommand3.Fields("lblDateIssued").Value

This doesn't look like a field name. Do you actually have a field in the table named "lblDateIssued"? It looks like a datareport control name.

[basti42]

ya you're right, i already changed the field to "0" and declare a new rpt
and now its working perfectly...
tnx to your support....

dim rptCheckpointsReport as New rptCheckpointsReport 'ADDED
 DE1.rsCommand3.Open "SELECT * FROM tbl", con, adOpenDynamic, adLockOptimistic
     If DE1.rsCommand3.EOF <> True Then
     Me.MousePointer = vbHourglass
     
       With rptCheckpointsReport.Sections("Section2")
        .Controls("lblDateIssued").Caption = "date" + DE1.rsCommand3.Fields(0).Value
      End With

[KGComputers]

Good work..Mark your thread as resolved...