คงเป็นเพราะใน [fsale] ไม่มี ฟิลด์ cus_id ใช่ไหมครับ เพราะเชื่อมโยง Mainforms และ sub form ด้วย  voucher_s_id และ date_sale

มี error ครับ
debug บรรทัดที่ 7(If Not IsNull...........)

Private Sub Combo18_AfterUpdate()
Call CheckS_Price
End Sub
Sub CheckS_Price()
Dim LastDate As String
Dim strPurchase_history As String
If Not IsNull(Me.date_sale) And Not IsNull(Me.goods_id) And Not IsNull(Forms!voucher_s!txtcust_id) Then
strPurchase_history = Nz(DLookup("[cust_id]", "[fsale]", "[goods_id] = '" & goods_id & "' And [cust_id] =" & Forms!voucher_s!txtcust_id & ""), 0)

LastDate = Nz(DLast("date_sale", "[fsale]", "[goods_id] = '" & goods_id & "' And [cust_id] =" & Forms!voucher_s!txtcust_id & ""), 0)
Me.s_price = Nz(DLookup("[s_price]", "[fsale]", "cstr([date_sale]) ='" & LastDate & "' And [goods_id] ='" & goods_id & "' And [cust_id] =" & Forms!voucher_s!txtcust_id & ""), 0)
End If
Call CheckS_Price
End Sub

ถ้าราคาเคยขายดังนี้
01/02/63    ขาย  22.00
08/02/63           23.00
02/03/63           20.00
04/04/63           18.00
05/05/63            27.00
ถ้ามาออกบิล ขายสินค้า แทรก 31/03/63  จะได้ราคา 20.00 หรือไม่ครับ  หรือได้ราคา 27.00 ครับ 
ผมต้องการให้เป็นราคา ที่ 20.00 ต้องใช้ code? อย่างไรครับ

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

ยังไม่ได้ครับ

ออกรายงาน แต่หัวข้อไม่ running ครับ

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

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

กรุณาครับ ไม่เคยใช้คำสั่งแบบนี้ครับ ถึงตอนนี้ ยังหาทางไปไม่เจอครับ ไปไม่เป็นครับ อจ