Private Sub Command64_Click()
On Error GoTo Err_Command64_Click
    DoCmd.GoToRecord , , acNewRec

Exit_Command64_Click:
    Exit Sub

Err_Command64_Click:
    'MsgBox Err.Description
    'Resume Exit_Command64_Click
    'DoCmd.GoToRecord , , acNewRec

End Sub
****************
เจตนาว่าเมื่อป้อนข้อมูลแล้ว  กดปุ่มบันทึก  มีข้อความ "ต้องการบันทึกหรือไม่ Y/N" ถ้า Y ขึ้นหน้าใหม่   ถ้า N ออกจากงานบันทึกนี้
เมื่อทำตามนี้แล้ว มันวนไปวนมา ไม่ยอมเลิก หรือ ไม่ยอมขึ้นรายการใหม่

dbs.Execute "INSERT INTO voucher (voucher_id,voucher_date,bill_id,bill_no,bill_date,remark,type_id,book_id,budget_year,
refer_acc,cust_id,type_vat_acc,period_vat) SELECT Voucher_s.voucher_s_id,Voucher_s.date_sale,Voucher_s.bill_id,Voucher_s.bill_no,
Voucher_s.bill_date,Voucher_s.remark2,Voucher_s.type_id,Voucher_s.book_id,Voucher_s.budget_year,Voucher_s.remark_acc,Voucher_s.cust_id,Voucher_s.type_vat_acc,Voucher_s.period_vat FROM Voucher_s;"


**ใช้คำสั่งนี้   โอนข้อมูลใน table  voucher_s ในฟอร์ม ไป table voucher แต่สังเกตุว่าต้องกรอกข้อมูลลง form.voucher_s ทุก ฟิลด์ การโอนจึงไปครบ table voucher  มีคำสั่งไหนไหมครับ ไม่ต้องกรอกครบทุกฟิลด์ ก็ได้

  sql = "SELECT [Forms]![ACC_ใบกำกับภาษี]![text185] AS voucher_s_id INTO printbill;"
   DoCmd.RunSQL sql
   Filename = DLookup("voucher_s_id", "printbill") & " m"
    FilePath = "Z:\bills64\suzu64\IV\" & Filename & ".pdf"
    FilePath = "d:\bills-suzu\INV\" & Filename & ".pdf"
    DoCmd.OpenReport "ใบกำกับ 7_1", acViewPreview, Filename
    DoCmd.OutputTo acOutputReport, "ใบกำกับ 7_1", acFormatPDF, FilePath
   'DoCmd.PrintOut , , , , 1

   คำสั่ง print ทำงานได้ดี แต่ได้แค่ path เดียว  แต่ถ้าต้องการพิมพ์พร้อมกัน 2 path ไม่ได้ตรับ   ****ต้องเพิ่มคำสั่งใดครับ***

ผมสร้าง report ต้องการกรองอะไรจะใช้ criteria ใน query ผูกเงื่อนไข  รู้สึกว่า query จะเยอะไปหรือเปล่าไม่ทราบล่ะ  จึงอยากจะใช้ property sheet ผูกเงื่อนไขแทน ผมจะทำได้ไหมครับ ใช้ even ไหนครับ

ในรายงานต่างๆ ใน Criteria between[ตั้งแต่ วว/ดด/ปป]and[ถึง วว/ดด/ปป] ถ้าจะป้อนโดยพิมพ์ ววดดปป ไม่ต้องลืมป้อน "/" ทำอย่างไรได้ครับ

มีตาราง A และตาราง ฺB เหมือนกัน แต่ตาราง B ขาดรายการบิลที่ป้อนในเดือนมีนาคม 63(date_sale) ทั้งเดือน เราจะใช้ query แบบ append ได้ไหมครับ และ criteria จะระบุช่วงเดือนอย่างไร?

รายงานค่าเสื่อม ณ 31/12/62
1 ค่าเสื่อมสะสม  ถ้าทรัพย์สินไหนตัดค่าเสื่อมครบแล้ว จะคงมูลค่าปลายงวด ไว้ "1" และค่าเสื่อมสะสมจะหักออก "1"
2 ค่าเสื่อมสะสม เป็นทรัพย์สินที่ยังมีอายุการใช้งาน เกิน 31/12/62 มูลค่าปลายงวด ยังไม่ต้องสำรองไว้ 1  และค่าเสื่อมสะสมก็ไม่ต้องหัก 1