A  ยอดผลลัพธ์ จากตาราง เมื่อเกินอายุใช้งานมีค่า =1
B  หาผลรวม ไม่ได้ ???????

จากกระทู้หัวข้อเรื่องดึงราคาฯ  Mainforms Voucehr_s (table voucher_s มี ฟิลด์ cust_id) และ SubForms fsale(table fsale เดิมไม่มี ฟิลด์ cust_id มาเพิ่มฟิลด์ cust_id ภายหลัง )   ผมขอวิธีจะเอาข้อมูลจาก cust_id ของ voucher_s ไปใส่ใน ฟิลด์ใหม่ cust_id ของ fsale โดยผูกกันด้วย voucher_s_id

จะทำอย่างไรบ้างครับ  ถ้าต้องการเก็บข้อมูลผู้ใช้โปรแกรมว่า -ไปเมนูไหน  -เพิ่ม/ลบ/แก้ไข บิลไหน   โดยเก็บเลขที่บิล หรือวันที่บิล   ก็พอครับ

=IIf([discount_sale]<>0,([s_vol]*([s_price]-[text27])),([s_vol]*([s_price]*(1-([discount_sale_rate])/100))))
ผลลัพธ์จากสูตร  1 ถ้ามีค่า= เท่ากับตัวเลขคำนวณ  2 ถ้าไม่มีค่า =0 
เขียนสูตรแบบไหน ต้องการให้ 2 ถ้าไม่มีค่า= "  "   (ค่าว่าง)

ป้อนข้อมูลฟิลด์ เลือกหมวดทรัพย์สิน ทำให้สัมพันธ์อัตราค่าเสื่อม

หาวิธีสร้าง ผลรวม มากกว่า 1 กลุ่ม ไฟล์ตัวอย่าง  กลุ่มที่ 1 shop_id   กลุ่มที่ 2  voucher_s_id (หาวิธีสร้างกลุ่มนี้ไม่ได้) ขอคำแนะนำครับ อจ

ฟอร์มบันทึกข้อมูล มีฟิลด์รายการเยอะ เมื่อลงรายการขายครบจึง จะไปยังหน้าลงบัญชี ...ถ้าต้องการให้หน้าลงรายการสินค้า กับ บันทึกบัญชี คนละหน้ากัน  ต้องการเช่นนี้เพราะหน้าจอคอมฯกว้างไม่พอ  หรือยาวไม่พอครับ เลยจะแยกหน้า  ขอคำแนะนำหน่อย จะทำอย่างไร หรือมีคำแนะนำเปลี่ยนไปทำตามที่ท่านเคยทำ

Private Sub Command202_Click()
   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_ขายสินค้า]![text185] AS voucher_s_id INTO printbill;"
   DoCmd.RunSQL sql
   Filename = DLookup("voucher_s_id", "printbill") & " m"
    FilePath = "d:\bills-suzu\RE\" & 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-suzu\RE\" & Filename1 & ".pdf"
     DoCmd.OutputTo acOutputReport, "สำเนาใบเสร็จรับเงิน", acFormatPDF, FilePath
    DoCmd.PrintOut , , , , 2
Command202_DblClick_Exit:
    Exit Sub
Command202_DblClick_Err:
    MsgBox Error$
    Resume Command202_DblClick_Exit
End Sub