ได้ครับ

ใช้ Make Table Query โดยกำหนดเงื่อนไขให้ฟิลด์ DEV เมื่อเลือกข้อแล้วก็สั่ง Run Query

มาโครได้ครับ ไม่ต้องถึง VBA

ไฟล์เปิดได้ ไม่มีปัญหาครับ
ลองดูว่าเป็นตัวใหม่หรือยัง โดยเปิด File > Account

เกรงว่าปัญหาจะเกิดน่ะสิครับ

เพราะ Code ภาษาไทยของเดิมกับของใหม่มันเปลี่ยนไป

คือถ้าเป็นไปได้ก็ลงเหมือนเดิมครับทั้ง Windows/Office

ทำให้เห็นเป็นแนวทางเฉยๆ นะครับ

อาจต้องเขียน VBA หรือใช้คำสั่ง IIF ใน Query เพื่อปรับแต่งการแสดงผล

พอดีจะหายไป 3 วันน่ะครับ เลยอยู่ดูต่อไม่ได้

ใส่คำสั่ง Dlookup ไว้ที่ Control Source ของ  txt_BranchName, txt_Branch, txt_Area
ตัวอย่างสำหรับ txt_BranchName
Dlookup("[BranchName]","[tblBranch]","[BranchCode]=[txt_BranchCode]")

ปล. ไม่แน่ใจว่าต้องใส่เครื่องหมาย = หรือเปล่านะ ลองดูครับ

ขอเสริมอีกนิด จากคนที่ใช้ Draw.io อยู่

เวลาบันทึกไฟล์ แนะนำว่าควรบันทึกไว้ใน OneDrive จะดีกว่าบันทึกลงเครื่องตัวเอง

เพราะการบันทึกลงเครื่องตัวเอง จะมีปัญหาเวลา Re-Save ที่จะไม่บันทึกซ้ำไฟล์เดิม (และมีความไม่สะดวกเวลาเปิดใช้งานไฟล์ที่บันทึกไว้)

บางท่านอาจคิดว่าก็ดีสิ ไม่ต้องกลัวไฟล์หายหรือเซฟทับโดยไม่ตั้งใจ

ต้องลองครับ แล้วจะรู้ว่าบันทึกใน OneDrive นั้น OK กว่า

แค่อ่านโจทย์ก็มึนตึ๊บแล้วครับ

ส่งไฟล์มาเถอะครับ

เดาว่าถ้าไม่ใช่เรื่องสิทธิ์การ Read/Write ก็มีการใช้ Query

ถ้าตารางมีฟิลด์ที่เป็น AutoNumber อยู่แล้วก็ไม่ต้องทำการเพิ่มฟิลด์ AutoNumber นะครับ
แต่ถ้าไม่มีให้ทำตามนี้
1. เพิ่มฟิลด์ myNum มีข้อมูลเป็น AutoNumber
2. นำฟิลด์ myNum มาใส่ในฟอร์ม ตั้งชื่อว่า myNum
3. ใส่ Code นี้เข้าไปใน Standard Module
=================================================
Option Compare Database
Option Explicit

Function myRunningSum(myForm As Form, myFieldName As String, myFieldNumber)
    Dim RS As Object
    Dim myCount As Integer
        On Error GoTo Err_myRunningSum
        Set RS = myForm.Recordset.Clone
        RS.FindFirst "[" & myFieldName & "] = " & myFieldNumber
            Do Until RS.BOF
                myCount = myCount + 1
                RS.MovePrevious
            Loop
End_myRunningSum:
    myRunningSum = myCount
Exit Function
Err_myRunningSum:
    myCount = 0
Resume End_myRunningSum
End Function
========================================

4. เพิ่ม Unbound Text Box แล้วใส่คำสั่งนี้เข้าไป Control Source
=myRunningSum([Form],"myNum",[myNum])

คือต้องล็อคเป็นบางฟิลด์ หรือบางเรคอร์ดครับ งงกับคำถาม

ถ้าต้องการล็อคบางฟิลด์ ให้กำหนด Properties Lock ของฟิลด์นั้นเป็น Yes ครับ