กระทู้เก่าบอร์ด อ.Yeadram
        
           2,811   4		  
          
					  
		    URL.หัวข้อ / 
		    URL
        
        ปริ้น Report ของ record ปัจจุบัน      
    
      คำถามคือ 
1. มี record อยู่ 10 record
2. เปิดrecord ที่ 5 แล้วกดปุ่ม Print
เพื่อที่จะปริ้นหน้า 5 แล้วมันปริ้นหน้าล่าสุดแทน
ขอความช่วยเหลือด้วยคะ
    
  1. มี record อยู่ 10 record
2. เปิดrecord ที่ 5 แล้วกดปุ่ม Print
เพื่อที่จะปริ้นหน้า 5 แล้วมันปริ้นหน้าล่าสุดแทน
ขอความช่วยเหลือด้วยคะ
				4 Reply in this Topic. Dispaly 1  pages and you are on page number 1 
				
        
    2 @R10556    
        
  
      ยังไม่ได้เริ่มสร้างมาถามก่อนว่า เวลาสร้างมีขั้นตอนอย่างไรทำอย่างไร
เดี๋ยวจะไปลองสร้างก่อนถ้าติดปัญหาจะมาถามอีกครั้งนะคะ
ขอบคุณมากคะที่ให้คำแนะนำ
    
  เดี๋ยวจะไปลองสร้างก่อนถ้าติดปัญหาจะมาถามอีกครั้งนะคะ
ขอบคุณมากคะที่ให้คำแนะนำ
        
    3 @R10558    
        
  
      ได้ลองทำตามโค้ดนี้ แล้วได้ แต่พอปิดแล้วปิดขึ้นมาใหม่เพื่อทดสอบสั่งปริ้น
อีกครั้งแล้วมัน error ช่วยดูให้หน่อยได้ไหมคะ ว่าเราทำผิดตรงไหน
โค้ดนี้ใส่ที่ปุ่ม Command Button >> On click
Dim strDocName As String
Dim strWhere As String
strDocName = "rptSomeReport" 'ปริ้นใบส่งสินค้า
strWhere = "[RunID]=" & me!RunID ' ลำดับใบส่งสินค้า
DoCmd.OpenReport strDocName, acPreview, , strWhere
ภาพ Error ดังนี้
 
    
    
  อีกครั้งแล้วมัน error ช่วยดูให้หน่อยได้ไหมคะ ว่าเราทำผิดตรงไหน
โค้ดนี้ใส่ที่ปุ่ม Command Button >> On click
Dim strDocName As String
Dim strWhere As String
strDocName = "rptSomeReport" 'ปริ้นใบส่งสินค้า
strWhere = "[RunID]=" & me!RunID ' ลำดับใบส่งสินค้า
DoCmd.OpenReport strDocName, acPreview, , strWhere
ภาพ Error ดังนี้
 
    
        
    4 @R12956    
        
    
      แปลให้อีกทีครับ........
Private Sub Command75_Click()
Dim strDocName As String
Dim strWhere As String
strDocName = "reportAdd" 'ชื่อรีพ็อท
strWhere = "[id]=" & Me!id ' คีหลัก
DoCmd.OpenReport strDocName, acPreview, , strWhere
End Sub
แค่นี้ก็ได้แล้วครับ
    
  Private Sub Command75_Click()
Dim strDocName As String
Dim strWhere As String
strDocName = "reportAdd" 'ชื่อรีพ็อท
strWhere = "[id]=" & Me!id ' คีหลัก
DoCmd.OpenReport strDocName, acPreview, , strWhere
End Sub
แค่นี้ก็ได้แล้วครับ
      Time: 0.0626s
    
      
		
ถ้าใช้วิซาร์ดช่วยสร้าง ต้องเลือกตัวเลือกให้ถูกนะครับ ว่าต้องการปริ๊นท์เรคคอร์ดปัจจุบันหรือเปล่า
ถ้าเลือกถูกแล้ว ต้องดูต่อไปว่า ข้อมูลของคุณมี index หรือเปล่า ถ้าไม่มี index หรือไม่มี ฟิลด์ใดๆ ที่เป็น Primary มันอาจจะระบุเรคคอร์ดไม่ได้ ทำให้การเปิดรายงานแบบมีเงื่อนไข ที่วิซาร์ดสร้างให้นั้น มันเปิดผิดเรคคอร์ด
ถ้าคุณสร้างปุ่มคำสั่งเอง และเขียนโค้ดเอง ก็ต้องดูว่า โค้ดของคุณเขียนว่าอย่างไร ได้ใช้เงื่อนไขในการเปิดรายงานหรือไม่ เงื่อนไขว่าอย่างไร การใช้เครื่องหมายในเงื่อนไข เหมาะสมกับชนิดข้อมูลที่เป็นเงื่อนไขหรือไม่อย่างไร