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 ออกจากงานบันทึกนี้
เมื่อทำตามนี้แล้ว มันวนไปวนมา ไม่ยอมเลิก หรือ ไม่ยอมขึ้นรายการใหม่

The expression you entered has an invalid string.
A string can be up 2048 characters long. including opening and closing quotation marks.
ข้อความนี้บอกให้เราแก้อะไรครับท่าน

ต้นทุนรวม: DSum("Nz([b_vol]*[b_price])","fbuy","[goods_id]"='" & qry_จำนวนเข้า.จำนวนเข้า "')
รายได้รวม: DSum("Nz([s_vol]*[s_price])","fsale","[goods_id]"='" & qry_จำนวนออก.goods_id  "')**ลองเปลี่ยนเป็น goods_id บ้าง
 ไม่ขึ้น #error แต่ไม่มีค่าใดๆๆ

ผลลัพธ์ต้นทุนรวม และรายได้ก็ error ครับ ต้องแก้อย่างไรครับ

เนื่องจากบิลน้ำมันของปั๊ม ปตท  ค่าน้ำมัน 200 บาท แต่ในบิล 186.92 vat 13.08 ซึ่งเกิดจากปัดเศษ ถ้ามีบิลหลายบิลๆๆจะเกิดทศนิยมสะสม ค่าจะผิด ในการเขียนโปรแกรมจะใช้เทคนิคอย่างไร  ลองใช้ CDBL,ROUND,INT  ก็แก้ไม่หายครับ

ถ้าจะรวมสต๊อก 2รหัสในstock เหลือแค่ยอดรวมเท่านั้นจากหลายๆๆ entry

****error  The Output action was canceled***
ต้องการให้ "ต้องการพิมพ์ใบเสร็จ ตัวต้นฉบับ ออกทางเครื่องพิมพ์ 1 ใบ  และทั้งต้นฉบับและสำเนา เก็บไว้ที่ Path D:\  และ z:\

Private Sub Command285_Click()
On Error GoTo Command285_DblClick_Err
   Dim Filename As String
Dim Filename1 As String
Dim FilePath As String
  DoCmd.SetWarnings False
    Me.Refresh
    Dim sql As String
    sql = "SELECT [Forms]![ACC_á¡éä¢_ºÑ¹·Ö¡¢ÒÂÊÔ¹¤éÒ]![voucher_s_id] AS voucher_s_id INTO printbill;"
   DoCmd.RunSQL sql
   Filename = DLookup("voucher_s_id", "printbill") & " m"
    FilePath = "Z:\bills64\suzu64\IV\" & Filename & ".pdf"
    DoCmd.OutputTo acOutputReport, "ใบเสร็จ-ใบกำกับต้นบับ", acFormatPDF, FilePath
    FilePath = "d:\bills-suzu\INV\" & Filename & ".pdf"
    DoCmd.OpenReport "ใบเสร็จ-ใบกำกับต้นบับ", acViewPreview, Filename
    DoCmd.OutputTo acOutputReport, "ใบเสร็จ-ใบกำกับต้นบับ", acFormatPDF, FilePath
    'DoCmd.PrintOut , , , , 1
    DoCmd.OpenReport stDocName, acViewNormal
    sql = "SELECT [Forms]![ACC_á¡éä¢_ºÑ¹·Ö¡¢ÒÂÊÔ¹¤éÒ]![vouher_s_id] AS voucher_s_id INTO printbill;"
   DoCmd.RunSQL sql
   Filename1 = DLookup("voucher_s_id", "printbill") & " c"
    FilePath = "Z:\bills64\suzu64\IV\" & Filename1 & ".pdf"
    DoCmd.OutputTo acOutputReport, "ใบเสร็จ-ใบกำกับ สำเนา", acFormatPDF, FilePath
    FilePath = "d:\bills-suzu\INV\" & Filename1 & ".pdf"
     DoCmd.OutputTo acOutputReport, "ใบเสร็จ-ใบกำกับ สำเนา", acFormatPDF, FilePath
    'DoCmd.PrintOut , , , , 2
   
Command285_DblClick_Exit:
    Exit Sub
Command285_DblClick_Err:
    MsgBox Error$
    Resume Command285_DblClick_Exit
End Sub

code ที่แนะนำนี้ จะไปเพิ่ม ในโมดูลไหน หรือเพิ่มโมดูลใหม่