แนวทางคื่อใช้ Access เป็นฐานข้อมูล

Access เมื่อเพิ่มหรือแก้ไข้ข้อมูล = ข้อมูลอยู่ในตัวเอง

แล้วเมื่อ excel เพิ่มหรือแก้ไข้ข้อมูล <-> ส่งข้อมูลไปให้ Access // ลองศึกษาแนวทางดูครับ(ผมก็ใช้ excel ดึง,เพิ่มข้อมูลลูกค้าไปยัง Access)
CONNECT EXCEL AND MS ACCESS USING EXCEL VBA MACROS
[EP0] เริ่มต้น เขียนโปรแกรม excel vba ติดต่อฐานข้อมูล microsoft access

ปล.ในความคิดผม excel ไม่ได้ถูกออกแบบมาให้เชื่อมต่อข้อมูลภายนอกตลอดเวลา เช่น เมื่อเปิดเอกสารมาก็ต้องสั่งให้ไปดึงข้อมูล , เมื่อเพิ่มหรือแก้ไขข้อมูลจะยังไม่ไปไหนถ้าเรายังไม่สั่ง ,
ถ้าเปิดไฟล์พร้อมกัน เมื่อ excel สั่งเพิ่มหรือแก้ไข้ข้อมูล Access รู้ตัวอัพเดทข้อมูลทันทีโดยที่ไม่ต้องสั่ง แต่ถ้า Access เพิ่มหรือแก้ไข้ข้อมูล excel จะไม่รู้สึกตัวอะไรเลยจนกว่าเราจะสั่ง

เครื่องคอมฯผมตั้งค่าแสดงวันที่เป็น US = แสดงผลออกเป็น ๒๐๒๔ เช่นกัน
จึงลองแกะโค้ดอ.TTT แล้วแก้ตรง
tDay(o, iCount) = cThaiNumber(Day(i)) & " " & MonthNameThai(i) & " " & cThaiNumber(IIf(Year(i) = Format(i, "yyyy"), Year(i) + 543, Format(i, "yyyy")))
ให้เหลือแค่
tDay(o, iCount) = cThaiNumber(Day(i)) & " " & MonthNameThai(i) & " " & cThaiNumber(Year(i) + 543)

ได้ผลลัพธ์เป็นปี ๒๕๖๗ 

ลองดูแนวทางจากที่นี้ครับ -> Dynamic Default Value: Use the Same Value For Multiple Records During Data Entry in Microsoft Access

ประมาณว่าเอาที่ท่านวงย้ายขึ้นไป FormHeader
แล้วส่วน Training_Record_Data ก็ทำเป็น Continuous Forms โดยดึงข้อมูลที่ต้องการจาก FormHeader มาใส่อัตโนมัติ

แนวความคิดของผมคือทำฟอร์มหลักขึ้นมาแล้วเอาฟอร์ม A,B,C จับใส่เป็นฟอร์มย่อยข้างใน
-ได้การจัดวางตามต้องการ
-ไม่จำเป็นต้องเชื่อมฟอร์มกัน

*ข้อเสีย
-เปิด,ปิดฟอร์มหลักอันเดียว=มีผล3ฟอร์ม
-ย่อ,ขยายเต็มจอเฉพาะบางฟอร์มในนี้ไม่ได้
-อื่นๆ

A	B
	C

ทดลองเอาไฟล์ของท่านไปตีโจทย์แล้วทำการแก้ไขดังนี้
1.เอา [Forms]![Sell]![criteria] ใน Query ออก
2.แก้ชื่อซัพฟอร์มจากเดิม ฟอร์มย่อย Sell Query เป็น Sell_Query 'ป้องกันปัญหาภาษาไทย+ช่องว่าง
3.แก้ VBA เป็น
Private Sub criteria_AfterUpdate()
    If IsNull(Me.criteria) Then
        Me.Sell_Query.Form.FilterOn = False
        Me.Sell_Query.Form.Refresh
    ElseIf Me.criteria = 0 Then
        Me.Sell_Query.Form.Filter = "[Bal] = " & Me.criteria
        Me.Sell_Query.Form.FilterOn = True
        Me.Sell_Query.Form.Refresh
    Else
        Me.Sell_Query.Form.Filter = "[Bal] >= " & Me.criteria
        Me.Sell_Query.Form.FilterOn = True
        Me.Sell_Query.Form.Refresh
    End If
End Sub
สิ่งที่ได้
- ไม่ใส่ค่าอะไรเลย = จะแสดงรายการทั้งหมด
- ใส่ค่า 0 = แสดงเฉพาะรายการที่มีค่า Bal เท่ากับ 0
- ใส่ค่า >0 เช่น
[1] แสดง 2,10
[2] แสดง 2,10
[10] แสดง 10

เพิ่ม Microsoft office 16.0 object library เข้าไปครับ

ลองเปลี่ยน พิมพ์เฉพาะรายการนี้ เป็น []CheckBox

Private Sub text1_AfterUpdate()
        Me.ชื่อฟอร์มย่อย.Form.text2 = Me.text1

        Me.Recalc
End Sub

การที่เพียงแค่เอาเคอร์เซอร์เมาส์ไปวางแล้วให้ระบบออโต้คลิกนั้นคงทำไม่ได้

ในมุมมองจากรูปที่คุณให้ดูนั้นมี fs เยอะมากจึงมีโอกาศถึง 99% ที่ลากเมาส์ไปโดนชุดอื่นทำให้ระบบทำการเปิดฟอร์มผิด