กระทู้เก่าบอร์ด อ.Yeadram
1,065 2
URL.หัวข้อ /
URL
ต้องการพิมพ์รายงานที่แสดงเฉพาะข้อมูลบนฟอร์มปัจจุบั
ผมต้องการพิมพ์รายงานในหน้าปัจจุบันที่เปิดฟอร์มอยู่ โดยมี key หลักของฟอร์มที่เปิดอยู่คือ id_teacher และสร้างรายงาน ชื่อ rp_teacher ใช้โค๊ดที่ได้จากเว็บนี้ครับ คือ
http://www.thai-access.com/suphap.php?topic_id=70
จาก อ.สุภาพ ปรากฏว่า เมื่อคลิ๊กที่ Command549 ก็ขึ้นหน้ารายงานเปล่าๆ ไม่เห็นปริ๊น อะไรเลยครับ ใช้ Access 2010 ครับ ไม่ทราบว่า โค๊ดต้องแก้ไขตรงไหนครับ ท่าน
Private Sub Command549_Click()
Dim strDocName As String
Dim strWhere As String
strDocName = "rp_teacher"
strWhere = "[id_teacher] =" & Me!id_teacher
DoCmd.OpenReport strDocName, acPreview, , strWhere
End Sub
http://www.thai-access.com/suphap.php?topic_id=70
จาก อ.สุภาพ ปรากฏว่า เมื่อคลิ๊กที่ Command549 ก็ขึ้นหน้ารายงานเปล่าๆ ไม่เห็นปริ๊น อะไรเลยครับ ใช้ Access 2010 ครับ ไม่ทราบว่า โค๊ดต้องแก้ไขตรงไหนครับ ท่าน
Private Sub Command549_Click()
Dim strDocName As String
Dim strWhere As String
strDocName = "rp_teacher"
strWhere = "[id_teacher] =" & Me!id_teacher
DoCmd.OpenReport strDocName, acPreview, , strWhere
End Sub
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R21009
ได้แล้วครับ แก้ไขมาเป็น โค๊ดนี้ครับ
Private Sub Command549_Click()
On Error GoTo Command549_Click_Err
Dim strDocName As String
Dim strWhere As String
strDocName = "rp_teacher_current"
strWhere = "[id_teacher]=" & "'" & Me![id_teacher] & "'"
DoCmd.OpenReport strDocName, acViewNormal, , strWhere
Command549_Click_Exit:
Exit Sub
Command549_Click_Err:
MsgBox Error$
Resume Command549_Click_Exit
End Sub
จากเว็บ http://www.utteraccess.com/forum/lofiversion/index.php/t1997428.html
Private Sub Command549_Click()
On Error GoTo Command549_Click_Err
Dim strDocName As String
Dim strWhere As String
strDocName = "rp_teacher_current"
strWhere = "[id_teacher]=" & "'" & Me![id_teacher] & "'"
DoCmd.OpenReport strDocName, acViewNormal, , strWhere
Command549_Click_Exit:
Exit Sub
Command549_Click_Err:
MsgBox Error$
Resume Command549_Click_Exit
End Sub
จากเว็บ http://www.utteraccess.com/forum/lofiversion/index.php/t1997428.html
Time: 0.4275s
DoCmd.OpenReport strDocName, acPreview, , strWhere