الكود في المشاركة السابقة لايقاف عملية الحفظ التلقائي ومنعها و إسناد عملية التعديل لزر أمر للحفظ ثم نقوم بانشاء زر أمر للحفظ أو التعديل ونضع خلفه الكود التالي :
Dim s As String
s = InputBox("Hi", "PassWord", "Enter Your Code")
Select Case s
Case ""
MsgBox "You either hit ESCAPE or entered nothing"
Exit Sub
Case "123", "456", "789"
blnGood = True
Call DoCmd.RunCommand(acCmdSaveRecord)
blnGood = False
Exit Sub
Case Else
MsgBox "You entered '" & s & "'. I don't know what to do about that."
End Select