กำหนดจำนวนบรรทัด detail ในรายงาน
กระทู้เก่าบอร์ด อ.Yeadram

 1,197   1
URL.หัวข้อ / URL กำหนดจำนวนบรรทัด detail ในรายงาน

ตอนนี้อยากจะกำหนด detail ในรายงานที่เราสร้าง ตามความต้องการ
อย่าง 30 บรรทัด จะทำให้มัเป็น default ตอนสั่งรันรายงานครับ

ขอบคุณครับ
โดย: boykrab เมื่อ: 10 พ.ค. 2557 , 16:44

1 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R18567
http://thai-access.com/yeadram_view.php?topic_id=2542

ผมก็ทำตามวิธี อ. yeadram ได้ผลครับ

ยกตัวอย่างโค๊ตในโปรแกรมที่ทำ ผมให้หน้าหนึงออกมา 15 row ครับ

Sub ChkPointForReport()
Dim DB As DAO.Database
Dim rs As DAO.Recordset
Dim Db2 As DAO.Database
Dim Rs2 As DAO.Recordset
Dim x As Integer
Set DB = CurrentDb
Set Db2 = CurrentDb
Set rs = DB.OpenRecordset("Select * from QWHTaxSpRpt1 Order by txcdat asc")
Set Rs2 = Db2.OpenRecordset("Select * from WHTaxSpRpt order by Txcdat asc")
Rs2.MoveFirst
Trs = rs.RecordCount
If (Trs Mod 15) = 0 Then
Else
   TrsRPT = (15 - (Trs Mod 15))
   Trs = Trs + TrsRPT
End If
For i = 1 To Trs
        If Rs2.EOF = False Then
            Rs2.Edit
            Rs2.Fields("ID").Value = i
            Rs2.Update
            Rundat = Left(Rs2.Fields("TxcDat"), 2)
            RunCom = Rs2.Fields("Com")
            Rs2.MoveNext
          Else
            x = x + 1
              Rs2.AddNew
              Rs2.Fields("Com").Value = RunCom
              Rs2.Fields("Txcdat").Value = Rundat + x & "999"
              Rs2.Fields("ID").Value = i
              Rs2.Update
          End If
Next
'Run Data
DoCmd.SetWarnings False
DoCmd.OpenQuery "AppendToWHTaxSpRpt", acViewNormal
DoCmd.SetWarnings True
'MsgBox "Success Run Data For Report "
End Sub

โดย: sjs เมื่อ: 13 พ.ค. 2557 , 16:06
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3142s