รายงานแบบบัญชีใน Access
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 349   9
URL.หัวข้อ / URL
รายงานแบบบัญชีใน Access

เรียนถามอาจารย์สุภาพครับ ผมได้จัดทำโปรแกรมสำหรับเก็บข้อมูลเงินเดือนในหน่วยงาน ซึ่งผมได้ติดอยู่กับปัญหาของการทำรายงานซึ่งออกรายงานในรูปแบบของการทำบัญชี ซึ่งในบรรทัดสุดท้ายของแต่ละหน้าต้องเป็นคำว่า " ยอดยกไป " และในหน้าต่อไป ก้อเป็นคำว่า " ยอดยกมา " ซึ่งในบรรทัดสุดท้ายของหน้าสุดท้ายได้เปลี่ยนข้อความจากคำว่า " ยอดยกไป " เป็นคำว่า " รวมทั้งสิ้น " ซึ่งผมไม่สามารถทำรายงานรูปแบบอย่างนี้ได้ และผมได้อ่านประวัติของอาจารย์แล้ว ซึ่งอาจารย์สุภาพเองก้อเคยทำโปรแกรมด้านเงินเดือนของพนักงานมาก่อน จึงขอเรียนปรึกษาครับ อย่างไรแล้วถ้าอาจารย์มี file ประกอบด้วยจะยิ่งดีมากกว่าครับ

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

1 @R02766
ลองดูกระทู้ http://www.thai-access.com/suphap.php?topic_id=205 แล้วลองปรับใช้ดูนะครับ

2 @R02767
ขอเรียนปรึกษาต่อนะครับ ว่า ถ้าต้องการให้มีการให้หน้าถัดไปได้รวมยอดของ pagesum จากหน้าที่แล้วด้วยล่ะครับ แล้วผมสามารถเพิ่ม ฟิวด์ที่มีรวมมากกว่า1 ฟิวด์ได้รึเปล่า ต้องเพิ่มเติมอะไรบ้าง
3 @R02771
ให้คลิกที่ Text Box ชื่อ RunSum แล้วกำหนดให้ Visible เป็น Yes ก็จะได้ Running Sum ตามที่ต้องการครับ เผอิญผมกำหนดให้เป็น No เพื่อซ่อนมันไว้ครับ

4 @R02774
เนื่องจากผมใช้ access ครับ เมนูเป็นภาษาไทย ไม่ทราบว่าการกำหนดให้ Visible เป็น Yes อยู่ตรงไหนครับ
5 @R02781
ตอนที่อยู่ในโหมด Design ของรายงาน ให้คลิกที่ Text Box ชื่อ RunSum แล้วไปที่เมนู View>Properties แล้วมองหา Visible เพื่อเปลี่ยนให้เป็น Yes ครับ
6 @R02793
ผมได้นำข้อมูลของอาจารย์มาแก้ไขเพิ่มเติมครับ แต่ก้อยังมีอะไรติดบ้างเช่น ในหน้าแรกตรงยอดรวมหัวกระดาษ ยังไม่มี ข้อมูล ผมจะไม่นำมาโชว์ใน report ซึ่งจะโชว์ก้อต้องเป็นหน้าต่อไป และเมื่อถึงหน้าสุดท้ายแล้ว ในบรรทัดรวมสุดท้ายที่เขียนว่า"ยอดยกไป" ให้เปลี่ยนข้อความเป็น "รวมทั้งสิ้น" แทน แล้วย้ายข้อมูลบรรทัดรวมทั้งสิ้นไปอยู่ในส่วนท้ายของรายงานแทนครับ แนบตัวอย่างด้วยครับ...
7 @R02814
แล้วคุณนกสีฟ้า ทำได้รึยังค่ะ แล้วที่โหลดไป ก้อใกล้แล้ว ถ้าทำได้ช่วยส่งให้ดูกันบ้างล่ะ น่าสนใจ
8 @R02821
ลองใช้โค้ดนี้กับส่วนของ PageHeader โดยใช้กับเหตุการณ์ OnFormat

Private Sub PageHeader_Format(Cancel As Integer, FormatCount As Integer)
' ถ้าเป็นหน้า 1 ไม่ต้องแสดง ยอดยกมา
If Me.Page = 1 Then
Me.Text54.Visible = False
Me.Text43.Visible = False
Me.Label40.Visible = False
Else
Me.Text54.Visible = True
Me.Text43.Visible = True
Me.Label40.Visible = True
End If
End Sub

และโค้ดนี้กับ PageFooter กับ OnFormat เช่นกันครับ

Private Sub PageFooter_Format(Cancel As Integer, FormatCount As Integer)
' ถ้าเป็นหน้าสุดท้ายไม่ต้องแสดง ยอดยกไป
If Me.Page = Me.Pages Then
Me.Label34.Visible = False
Me.Text54.Visible = False
Me.PageSum.Visible = False
Else
Me.Label34.Visible = True
Me.Text54.Visible = True
Me.PageSum.Visible = True
End If
End Sub

9 @R02841
ใช้ได้แล้วครับ ขอบคุณอาจารย์มากครับ ผมศึกษามาตั้งนานก้อไม่ได้ หาตัวอย่างที่ไหนก้อไม่ได้ด้วย เพราะที่ทำงานใช้แต่โปรแกรม forpro ซึ่งเค้าก้อยังทำไม่ได้ครับ ผมแนบไฟล์ไว้เป็นตัวอย่างครับ เพื่อใครสนใจ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0464s