วิธีการเพิ่มรายการขายสินค้าใหม่โดย ดึงราคาล่าสุด แต่แก้ไขราคาได้


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

15 ก.ค. 63 , 11:22:20
ตอบกลับ #16

kunlek

ขอบพระคุณครับท่าน  ถ้าไม่ได้การช่วยรีโมท สงสัยฟอร์มจะเละไปใหญ่ ตอนนี้ก็ยังไม่เข้าใจ textbox กับ label ต่างกัน?
Code ที่ถูกต้องแล้ว

Private Sub goods_id_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!ACC_ºÑ¹·Ö¡¢ÒÂÊÔ¹¤éÒ!txtcust_id) Then
strPurchase_history = Nz(DLookup("[cust_id]", "[fsale]", "[goods_id] = '" & goods_id & "' And [cust_id] ='" & Forms!ACC_ºÑ¹·Ö¡¢ÒÂÊÔ¹¤éÒ!txtcust_id & "'"), 0)

LastDate = Nz(DLast("date_sale", "[fsale]", "[goods_id] = '" & goods_id & "' And [cust_id] ='" & Forms!ACC_ºÑ¹·Ö¡¢ÒÂÊÔ¹¤éÒ!txtcust_id & "'"), 0)
Me.s_price = Nz(DLookup("[s_price]", "[fsale]", "cstr([date_sale]) ='" & LastDate & "' And [goods_id] ='" & goods_id & "' And [cust_id] ='" & Forms!ACC_ºÑ¹·Ö¡¢ÒÂÊÔ¹¤éÒ!txtcust_id & "'"), 0)
End If
 End Sub

 

15 ก.ค. 63 , 11:35:17
ตอบกลับ #17

PNR

อ้างถึง
ตอนนี้ก็ยังไม่เข้าใจ textbox กับ label ต่างกัน?


Label ก็คือ ป้าย,ชื่อ หรือข้อความ  ไว้แสดงบนฟอร์มครับ หรือรายงาน
เวลาเราสร้าง Control ก็จะได้ตัวนี้มาด้วยไว้ตั้งชื่่อ มันสามารถตั้งชื่อได้เหมือนกับ textbox หรือ อื่นๆ (ลองกดที่ Label แล้วไปที่ตั้งค่า)

จากโค้ด เราต้องกำหนดชื่อ txtcust_id ให้ combobox แต่เมื่อไปเช็คดู Label กลับชื่อtxtcust_id และ combobox ชื่อ combo18 มันเลยดึงข้อมูลเงื่อนไขผิดที่นั้นเอง

Time to stop for me  :dizzy:
 

15 ก.ค. 63 , 15:03:53
ตอบกลับ #18

kunlek


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


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