0 Replies - 1437 Views - Last Post: 10 March 2013 - 07:58 PM Rate Topic: -----

#1 Jovel Mark  Icon User is offline

  • D.I.C Head

Reputation: -3
  • View blog
  • Posts: 81
  • Joined: 22-November 11

DataReport Error

Posted 10 March 2013 - 07:58 PM

Hello Guys, I hav a Code For My Report in Daily .I don't know why there is nothing show the records. even though the Error not Popup. This is My code guys. Help Me Guys

Dim rsReport1 As New ADODB.Recordset

rsReport1.Open "Select purchase_date, BarCode, Price,  ProductName, Quantity, TotalPrice From Dailyrecord where purchase_date = " & DTPicker1.Value & " ", acd, adOpenForwardOnly


If rsReport1.RecordCount > 0 Then

    Set DataReport2.DataSource = rsReport1
        With DataReport2
            .Sections("Section1").Controls("txtcode").DataField = "BarCode"
            .Sections("Section1").Controls("txtproduct").DataField = "ProductName"
            .Sections("Section1").Controls("txtqty").DataField = "Quantity"
            .Sections("Section1").Controls("txtprice").DataField = "Price"
            .Sections("Section1").Controls("txtsub").DataField = "TotalPrice"
            .Sections("Section1").Controls("txtdate").DataField = "purchase_date"
            .Show
        End With

End If



Is This A Good Question/Topic? 0
  • +

Page 1 of 1