Page 1 of 1

สอบถามเกี่ยวกับการใส่ลำดับการพิมพ์ report

Posted: Thu May 25, 2017 1:45 pm
by pondniizz
รบกวนสอบถามอาจารย์ค่ะ ในการสร้าง Report แล้วใน Report ต้องการให้ แสดงจำนวนครั้งที่ พิมพ์ report นั้นๆ ในแต่ละเดือน

เช่น รายการการใช้เครื่อง เดือนที่ 1 พิมพ์ ครั้งที่ 1
-------------"------- เดือนที่ 1 พิมพ์ครั้งที่ 2 .

แล้วพอเริ่มเดือน ใหม่ เดือนที่ 2 พิมพ์ครั้งที่ 1

โดยให้ข้อมูลนี้ไปแสดงในหน้า Report ทุกครั้งที่ สั่งพิมพ์ รายงาน พอจะมีวิธีแนะนำมัั้ยค่ะ

ขอบคุณค่ะ

Re: สอบถามเกี่ยวกับการใส่ลำดับการพิมพ์ report

Posted: Thu May 25, 2017 3:04 pm
by snasui
:D ต้องเก็บครั้งที่พิมพ์ไว้ใน Table ที่เกี่ยวข้องเมื่อสั่งพิมพ์ โปรแกรมจึงจะทราบว่ารายการใดพิมพ์ไปแล้วครั้งที่เท่าใดจึงจะครั้งที่พิมพ์นี้ไปแสดงในที่ใด ๆ ตามที่ต้องการได้ครับ

Re: สอบถามเกี่ยวกับการใส่ลำดับการพิมพ์ report

Posted: Thu May 25, 2017 3:16 pm
by pondniizz
snasui wrote::D ต้องเก็บครั้งที่พิมพ์ไว้ใน Table ที่เกี่ยวข้องเมื่อสั่งพิมพ์ โปรแกรมจึงจะทราบว่ารายการใดพิมพ์ไปแล้วครั้งที่เท่าใดจึงจะครั้งที่พิมพ์นี้ไปแสดงในที่ใด ๆ ตามที่ต้องการได้ครับ
ยัง งง กับการ เพิ่ม table ครั้งที่พิมพ์ ค่ะ มีตัวอย่างไหมค่ะ รบกวนด้วยค่ะ ยังมือใหม่อยู่ค่ะ

ขอบคุณค่ะ

Re: สอบถามเกี่ยวกับการใส่ลำดับการพิมพ์ report

Posted: Thu May 25, 2017 3:55 pm
by snasui
:D ต้องขออภัยที่ไม่มีตัวอย่างให้ครับ :(

Re: สอบถามเกี่ยวกับการใส่ลำดับการพิมพ์ report

Posted: Fri May 26, 2017 10:26 am
by pondniizz
snasui wrote::D ต้องขออภัยที่ไม่มีตัวอย่างให้ครับ :(
รบกวนช่วยดูโค้ดให้หน่อยค่ะ ว่าถูกต้องมั้ย

จะสร้างตาราง มาใหม่ โดย มี ฟิลด์ คือ rptnanme(text) / PrintDate(date/time) / PrintUser (txt)

แล้วใส่โค้ด นี้ ในปุ่มคำสั่งปริ้น report
Private Sub Command34_Click()
DoCmd.RunSQL "Insert Into tbReportHistory Value ('rpt_plan',Now(),'ชื่อผู้ใช้งาน');"
Dim prnCnt As Long
prnCnt = Nz(DCount(" rptName ", " tbReportHistory ", " rptName = & ' rpt_plan ' & ", Month("PrintDate") = " & Month(Now()) & ", Year("PrintDate") = " & Year(Now() ) & "))
DoCmd.OpenReport "rpt_plan", acViewNormal, , , , prnCnt


DoCmd.Close acForm, "frm_search"
End Sub

แล้วหน้า Report จะใช้ โค้ด ในการ event Report open เป็น

Private Sub Report_Open(Cancel As Integer)

On Error Resume Next
txprintcount = Me.OpenArgs
End Sub


แต่พอ กดคำสั่ง ปริ้น Report แล้ว แจ้งเตือนว่า !! wrong number of arguments or invalid property assignment !! ในหน้า ที่ใส่คำสั่งปริ้น Report

ไม่ทราบว่าผิด หรือ ติดตรงไหน รบกวนด้วยนะคะ

ขอบคุณคะ

Re: สอบถามเกี่ยวกับการใส่ลำดับการพิมพ์ report

Posted: Fri May 26, 2017 6:38 pm
by snasui
:D ลองแนบ DB ตัวอย่างพร้อม Code ที่เขียนเองแล้วมาด้วยจะได้ช่วยทดสอบให้ได้

การเขียน Code ในช่อง Comment ให้ครอบด้วย Tag เปิด [code] และ Tag ปิต [/code] จะได้สะดวกในการอ่านครับ ดูกฎการใช้่บอร์ดข้อ 5 ด้านบนประกอบครับ