ลองให้เปิดฟอร์มใน Add Mode แล้วกำหนด AllowEdits ให้เป็น No ครับ

ผมสร้างโมดูล ชื่อ Login
Global UserLogin As String '=ชื่อ
Global UserLogins As Boolean 'Password
Global BelongToAdmin As Boolean 'สิทธิดูแลระบบ
ตารางที่ประกอบดว้ยฟิลด์ UserLogin UserLogins BelongToAdmin
แล้วสร้าง Form สำหรับการ Login
เมื่อ Login ก็จะตรวจสอบชื่อ password
On Error GoTo Err_cmdok_click
Dim X As String
Dim LoginDb As Database
Dim Loginset As DAO.Recordset
Set LoginDb = DBEngine.Workspaces(0).Databases(0)
Set Loginset = LoginDb.OpenRecordset("Login", DB_OPEN_DYNASET)
X = DLookup("Pass", "Login", "[Name] = Text1.Value")
If X = text2.Value Then
UserLogin = DLookup("name", "Login", "[Name] = Text1.Value")
UserLogins = DLookup("Users", "Login", "[Name] = Text1.Value")
BelongToAdmin = DLookup("Admin", "Login", "[Name] = Text1.Value")
DoCmd.Close
stDocName = "Main" 'ถ้ารหัสถูกต้องเปิด Form ชื่อ main
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
Beep
MsgBox "รหัสไม่ถูกต้อง"
End If
Loginset.Close
LoginDb.Close
และเมื่อผู้ใชจะกดปุ่มแก้ไขก็ให้ตรวจสอบ BelongToAdmin
ถ้าไม่ใช่ก็เขียนคำสั่งให้ End sub หรือ Msgbox แสดงอะไรก็ได้
หรือว่าตอน Load Form Main ให้กำหนด ปุ่ม Edit.Enable=False ไปเลยก็ได้
ลองประยุกต์ใช้ดูก็แล้วกัน

----ขอขอบพระคุณ อาจารย์ กับคุ Ken ด้วยครับ ผมจะลองทำดู ถ้าทำยังไม่ได้จะรบกวนมาอีกทีครับ