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

[kunlek]

ถ้าจะเพิ่มรายการขายสินค้าใหม่ โดยดึงราคาล่าสุดที่เคยขายสินค้านี้ แต่ให้แก้ไขได้ ถ้าจะเปลี่ยน มีวิธีอย่างไรครับ อจ.

[PNR]

ถ้าจะเพิ่มรายการขายสินค้าใหม่ โดยดึงราคาล่าสุดที่เคยขายสินค้านี้ แต่ให้แก้ไขได้ ถ้าจะเปลี่ยน มีวิธีอย่างไรครับ อจ.

ดึงราคาล่าสุดมาแสดงบน textbox ลองดูโค้ดนี้ครับ

Private Sub good_id_AfterUpdate()
Dim MaxDate As String 'กำหนดตัวแปรไว้เก็บวันที่มากที่สุดของแต่ละ good_id ก่อนใช้ Dlookup ดึงข้อมูลมาแสดงบน textbox S_Price
If Not IsNull(Me.date_sale) And Not IsNull(Me.good_id) Then
MaxDate = Nz(DMax("date_sale", "t_sale", "goods_id = '" & good_id & "'"), 0)
Me.s_price = Nz(DLookup("[s_price]", "[t_sale]", "cstr([date_sale]) ='" & MaxDate & "' And [goods_id] ='" & good_id & "'"), 0)
End if
End Sub

วิธีนี้จะได้ราคาล่าสุดมาแสดงที่ textbox S_Price แต่ก็สามารถลบออกเพื่อแก้ไขราคาได้เองครับ

[kunlek]

ถ้าราคาเคยขายดังนี้
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? อย่างไรครับ

[PNR]

เปลี่ยนจาก Dmax เป็น Dlast ครับ
MaxDate = Nz(DLast("date_sale", "t_sale", "goods_id = '" & good_id & "'"), 0)

[kunlek]

ขออภัยครับ อจ. อีกนิดครับ ถ้าจะเจาะจงถึงลูกค้าคนนั้น เคยซื้อสินค้านี้ ให้ s_price ดึงราคาครั้งล่าสุด   ลักษณะฟอร์มจะมี Mainform(ชื่่อฟอร์ม voucher_s )+SubForm(ชื่อฟอร์ม fsale)  ที่ MainForm จะมีฟิลด์ cust_id

[PNR]

ขออภัยครับ อจ. อีกนิดครับ ถ้าจะเจาะจงถึงลูกค้าคนนั้น เคยซื้อสินค้านี้ ให้ s_price ดึงราคาครั้งล่าสุด   ลักษณะฟอร์มจะมี Mainform(ชื่่อฟอร์ม voucher_s )+SubForm(ชื่อฟอร์ม fsale)  ที่ MainForm จะมีฟิลด์ cust_id

น่าจะแบบนี้นะครับ
โค้ดยังไม่ได้ทดสอบ ลองดูนะครับ
MainForm จะมีฟิลด์ cust_id มี textbox หรือ combobox txtcust_id ครับ
การตรวจสอบคือเมื่อระบุ good_id ในซัฟฟอร์ม โปรแกรมจะเช็คให้ว่า มีรหัสลูกค้า txtcust_id ที่ซื้อสินค้ารหัส good_idหรือเปล่าถ้ามี ให้ดึงรหัส cust_id ที่ทำการซื้อล่าสุด (ใช้ Dlast ครับ)

โค๊ด: [Select]

Private Sub good_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.good_id) And Not IsNull(Forms!voucher_s!Txtcust_id) Then
strPurchase_history = Nz(DLookup("[cust_id]", "[tblF_sale]", "[goods_id] = '" & good_id & "' And [cust_id] =" & Forms!voucher_s!Txtcust_id & ""), 0)

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

[kunlek]

มี 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

[kunlek]

error อีกที่

[kunlek]

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

[kunlek]

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!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
...........................
ตอนนี้ได้แก้ไขไปตามนี้ ยังไม่ได้ครับ ไม่แสดง errorอะไร เลยด้วย ( forms ชื่อ ACC_บันทึกขายสินค้า  subforms ชื่อ fsale)

[PNR]

ส่งตัวอย่างฟอร์มที่สร้างอยู่ มาให้ผมแก้ไขดูได้ไหมครับ ถ้าไม่เห็นการออกแบบครับ และโครงสร้างคิดไม่ออกครับ

[kunlek]

ส่งตัวอย่างครับ

[PNR]

ชื่อคอมโบบ๊อก Combo18 แก้เป็น goods_id

[kunlek]

แก้ไขชื่อฟิลด์ goods_id ใน fsale จาก combo18 เป็น goods_id แล้วก็ยังไม่ได้ครับ

[PNR]

ผมไม่แน่ใจเรื่อง datatype ของฐานข้อมูลของคุณว่าเหมือนกันหรือไม่
ลองดูตัวอยางที่ผมทำคร่าวๆ นะครับ

ถ้าสะดวก Anydesk ไปเช็คน่าจะชัวสุด

[PNR]

จบเคสครับ โค้ดปกติดี
ผิดตรงกำหนดชื่อให้กับ textbox ผิด ดันไปตั้งชื่อให้ Label แทน

[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

[PNR]

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

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

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