sửa xóa thêm gì thì dùng 3 lệnh này
        Me.AllowEdits = True
        Me.AllowAdditions = True
        Me.AllowDeletions = True
 Ví dụ dưới đây  là 1 chương trinh sửa 

Private Sub SUA_Click()
    If Me!sua.Caption = "sua" Then
        Me!sua.Caption = "đang sửa"
        Me!sua.ForeColor = "255"
        Rock
    Else
        Me!sua.Caption = "sửa"
        Me!sua.ForeColor = "8388608"
        Rock
    End If
End Sub

Private Sub Rock()
    If Me!sua.Caption = "đang sửa" Then
        Me.AllowEdits = True
        Forms!FRM_Main.Locked = False
        Forms!FRM_Sub= False
    Else
        Me.AllowEdits = False
        Forms!FRM_Main.Locked = False
        Forms!FRM_Sub= False
    End If
End Sub

Cái này là chi bạn

Private Sub SUA_Click()
    If Me!sua.Caption = "sua" Then
....
có gọi được Rock không?

và cái này nữa

Forms!FRM_Sub= False