Excel Forum

รบกวนดูโค้ดให้หน่อยค่ะ ว่าผิดตรงไหน

ในตาราง tblRuntime เวลา คีย์ข้อมูลไปโดย จะ ใช้ ฟิลด์ Date กับ Machine เป็นหลัก ในการดึงข้อมูลของ Datanew ก่อนหน้า เพื่อมาเป็น ข้อมูลใน Data old ในเรคคอร์ดถัดไป

ใส่โค้ดไว้ ที่ Machine AfterUpdate ()

Private Sub Machine_AfterUpdate()
Dim dLast As Variant, stData As String

dLast = DMax("[Date]", "tblruntime", "[Machine] = " & Me.Machine)
If IsNull(dLast) Then
stData = ""
Else
stData = DLookup("[DataNew]", "tblruntime", "[Date] = " & CDbl(dLast))
End If

Me.Dataold = stData
End Sub

ที่ต้องการคือ เวลาใส่ข้อมูลลงไปจะทำการดึงข้อมูลของ Datanew ของข้อมูลก่อนหน้า มาแสดง ใน ช่อง DataOld ของข้อมูลปัจจุบัน

เช่น
machine.........Date.........Datanew..........Datalod
1............1/7/2560.........2222..............1111
2............1/7/2560.........4444..............3333
พอขึ้น วันที่ ใหม่ให้ดึงข้อมูลของDatanew แต่ละเครื่องมา
machine.........Date.........Datanew..........Datalod
1.............2/7/2560........รับค่าใหม่..........2222
2.............2/7/2560 ........รับค่าใหม่.........4444


ประมานนี้ นะค่ะ อธิบายไม่เข้าใจขออภัยด้วยค่ะ

แต่ที่ทำได้อยู่ตอนนี้ คือ ข้อมูล Datanew จะถูกดึงมาก็ต่อเมื่อ วันที่ไม่ซ้ำกัน ค่ะ แต่ถ้าวันที่ซ้ำ กัน จะไม่ทำการดึงข้อมูล

รบกวนอาจารย์ด้วยน่ะค้ะ

กรุณาแนบไฟล์ตัวอย่างมาด้วย ตัดมาเฉพาะที่เกี่ยวข้องก็พอครับ

สำหรับการโพสต์ Code ให้ตูตัวอย่างในกฎข้อ 5 ด้านบนจะมีวิธีการโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่านและ Copy ไปทดสอบครับ

ตัวอย่างตามไฟล์แนบมาค่ะ

เข้าใจว่าต้องดึงมาด้วยเงื่อนไขเดียวกันคือใช้ Machine มาเป็นเงื่อนไขครับ
หรือผิดพลาดตรงไหน อย่างไร ช่วยแจ้งมาอีกรอบครับ

ไม่ได้อะคะ พอใส่โค้ด ที่กำหนด แต่ machine ลง ไปแล้ว ข้อมูลมี 2 ข้อมูล ของวันที่ 24/7/2560 เครื่อง 1 กับ 25/7/2560 เครื่อง 1 พอใส่ 26/7/2560 เครื่อง1 ไป กลับไปดึง Datanew ของ วันที่ 24/7/2560 แทน แต่ตามจริงต้องดึงของวันที่ 25/7/2560 เครื่อง 1 ค่ะ

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