ในฟอร์มมีเหตุการณ์ ondelete ให้ฝังคำสั่งได้ครับ
ถ้าไม่ต้องการให้ลบ ก็สั่ง cancel=true แล้วโดดออกจาก sub เลยครับ

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

sub
if ..... then
me.allowdelete = true
doccmd.accmddeleterecord
me.allowdelete =false
end if
end sub

ถ้าหากว่าผมจะให้มีหน้าต่างมีรับ Password เพื่อตรวจสอบกับ password ของ Admin (ซึ่งมี table user อยู่แล้ว) จะต้องเขียนยังไงครับ

ตรงที่ผมลุจุดไข่ปลาไว้ไงครับ

dim Result
result = inputbox("ระบุพาสเวิร์ดยืนยันสิทธิ์ในการลบ")
if Result = dlookup(....................) then ...

รบกวนอีกนิดครับ ในเทเบิล user ของผม มีฟิลด์ Permission ชนิด Yes/No
Yes = Administrator
No = ไม่ใช่ Administrator

ในฟิลด์ Permission มี Admin อยู่ 2 คน จะเขียนโค้ดยังไงให้ตรวจสอบฟิลด์ Permission ด้วยครับว่าใช่ Admin หรือ ไม่ใช่ ถ้าใช่ (password ตรงกับ Admin) ให้ลบได้ ถ้าไม่ใช่ แจ้งความว่า "สิทธิ์การใช้งานของคุณไม่สามารถลบข้อมูลได้"

เงื่อนไขใน Dlookup ไงครับ

dlookup("uPwd", "tbUser" , "uPermission =1")

แต่ถ้ามี 2 คนเปลี่ยนเป็นการนับจำนวนดีกว่า โดยใช้ dcount() แทน

if Dcount("uPWd", "tbUser", "uPermission = 1 and uPwd Like '" & Result & "'") =1 then
...