[RESOLVED] data report

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

i attached picture.
tnx

What are you doing now that isn't working?

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?

Code:

---

  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?

Code:

---

  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?

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

Greg

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

Quote:

---

"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.

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....

Code:

---

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

---

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