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

if user ="ABCD" then
me.allowedit =Flase
end if

อะไรประมาณนี้ ประยุกเอาครับ หลักๆ ไปเก็บค่า มาว่า เป็น Admin หรือไม่ ก็ได้
เมื่อ Form Load คุณค่อยกำหนดว่าจะให้ From แก้ไขได้ไม่

ลองดูที่นี่ครับ
http://youtu.be/VLiPKDuRxcQ

คุณต้องเขียนโค๊ดมาครับ แล้วมาดูกันว่าติดขัดตรงไหนครับเพราะแต่ละฟอร์มที่สร้างใช้ชื่อที่ต่างกัน

ตัวอย่างครับ ที่ผมใช้อยู่ เมื่อเปิด
Option Compare Database

Private Sub Form_Close()
    Open_OK = False
End Sub

Private Sub Form_Open(Cancel As Integer)
    If Open_OK = False Then
        Cancel = Not Open_OK
    End If
    
End Sub

เมื่อปิด
Option Compare Database

Private Sub Form_Close()
    Open_OK = False
End Sub

Private Sub Form_Open(Cancel As Integer)
    If Open_OK = False Then
        Cancel = Not Open_OK
    End If
    
End Sub

โค๊ดสำหรับ log in
Private Sub bt_login_Click()
    Dim iLevel As String
    iLevel = Nz(DLookup("Level", "tb_Pass", "UserName = '" & Me.txtName & "' AND Password = '" & Me.txtPass & "'"))
    If iLevel & "" = "" Then
        MsgBox "wrong password"
    Else
        'MsgBox "your level is " & " " & iLevel
        Open_OK = True
        If iLevel = "admin" Then
            DoCmd.OpenForm "Main", , , , acFormEdit ' able to edit add manage
        ElseIf iLevel = "user" Then ' add only
            DoCmd.OpenForm "Main"
            Forms!main.AllowDeletions = False ' disable deletion
            Forms!main.AllowEdits = False ' disable edition
        ElseIf iLevel = "guest" Then ' see only
            DoCmd.OpenForm "Main", , , , acFormReadOnly
        End If
End If
End Sub

ตามวีดีโอเป๊ะ