อยากให้เลขที่บิล auto Run ต่อจากเลขที่บิลของข้อมูลที่ป้อน



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

08 ม.ค. 63 , 10:39:48
ตอบกลับ #16

kunlek

ต้องการให้ printout ทางเครืองพิมพ์ ต้นฉบับ=1 แผ่น   สำเนา=2 ฉบับ แต่ code นี้ กลายเป็น ต้นฉบับ=2  สำเนา=1 ฉบับ  ผิดตรงไหนไม่ทราบ
    sql = "SELECT [Forms]![ACC_????????????]![text185] AS voucher_s_id INTO printbill;"
   DoCmd.RunSQL sql
   Filename = DLookup("voucher_s_id", "printbill") & " m"
    FilePath = "d:\bills-stmitsu\INV\" & Filename & ".pdf"
    DoCmd.OpenReport "ใบกำกับขาย-ต้นฉบับ", acViewPreview, Filename
    DoCmd.OutputTo acOutputReport, "ใบกำกับขาย-ต้นฉบับ", acFormatPDF, FilePath
    DoCmd.PrintOut , , , , 1
    sql = "SELECT [Forms]![ACC_บันทึกการขาย]![text185] AS voucher_s_id INTO printbill;"
   DoCmd.RunSQL sql
   Filename1 = DLookup("voucher_s_id", "printbill") & " c"
    FilePath = "d:\bills-stmitsu\INV\" & Filename1 & ".pdf"
     DoCmd.OutputTo acOutputReport, "ใบกำกับขาย-สำเนา", acFormatPDF, FilePath
    DoCmd.PrintOut , , , , 2
Command285_DblClick_Exit:
    Exit Sub

 

08 ม.ค. 63 , 11:59:55
ตอบกลับ #17

UnKnown

ติดตรงที่สั่งดูตัวอย่างต้นฉบับคาใว้อยู่หรือเปล่าน้ออ  :question:  ลองปิดแล้วเทสดูครับ
โค๊ด: [Select]
DoCmd.OpenReport "ใบกำกับขาย-ต้นฉบับ", acViewPreview, Filename

 
โพสต์นี้ได้รับคำขอบคุณจาก: pattaya48150


บอร์ดเรียนรู้ Access สำหรับคนไทย