Function NewID()
Dim lastID As Long
lastID = Nz(DMax("CLng(Left(HireID, 4))", "hirepurchase", "Clng(Right([HireID],4)) = " & Year(Date) + 543), 0)
NewID = Format(lastID + 1, "0000") & "-" & Year(Date) + 543
End Function

จากฟังชั่นนี้ หนูเอาไปเปลี่ยนมาเป็นของหนู แต่มีปัญหา เพราะบรรทัดที่เอียงนะคะ

1.หนูสร้างฟอร์ม 2 ฟอร์ม
2.หนูใช้ฟังชั่นนี้กับทั้ง 2 ฟอร์ม โดยเปลี่ยนชื่อฟังชั่น ชื่อตารางและคอลัม
3.มันขึ้น #Error ในช่องฟอร์ม

Function NewID1()
Dim lastID As Long
lastID = Nz(DMax("CLng(Left(LoanID, 4))", "Loan", "Clng(Right([LoanID],4)) = " & Year(Date) + 543), 0)
NewID1 = Format(lastID + 1, "0000") & "-" & Year(Date) + 543
End Function

อันนี้ที่หนูเปลี่ยน

ช่วยหนูหน่อยว่า มันผิดตรงไหนคะ