Private Sub Form_Load()
   DoCmd.GoToRecord , , acNewRec
   Me.Caption = "ВВОД ДАННЫХ"
   Dim vrs As Double: vrs = Val(Application.Version)
   If vrs >= 14 Then
       DoCmd.ShowToolbar "Ribbon", acToolbarNo 'отключили верхнюю панель
   End If
   setnavpanel False 'убрали панель навигации
   Me.ShortcutMenu = False 'отключили контекстное меню
   Application.SetOption "Show Status Bar", False
   SetBypassProperty (False)
   DoCmd.SetWarnings False
End Sub
Public Function setnavpanel(visible As Boolean)
    DoCmd.SelectObject acForm, , True
    If Not visible Then
        DoCmd.RunCommand acCmdWindowHide
    End If
End Function
Public Function SetBypassProperty(f As Boolean)
Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, f
    ChangeProperty "AllowSpecialKeys", DB_Boolean, f
    ChangeProperty "StartUpShowDBWindow", DB_Boolean, f
End Function
Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270
    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True
Change_Bye:
Exit Function