Public Function SetStartProperties()
    
    Dim Prop As DAO.Property
    Dim strAppName As String
    Dim iErr As Integer
    Dim stIcon As String
    
    
On Error GoTo HandleErr
   ChangeProperty  "StartupForm" , DB_Text,  "AfrmFirst" 
   ChangeProperty  "StartupMenuBar" , DB_Text,  "Главное меню" 
   ChangeProperty  "StartupShowDBWindow" , DB_Boolean, False
   ChangeProperty  "StartupShowStatusBar" , DB_Boolean, True
   ChangeProperty  "AllowBuiltinToolbars" , DB_Boolean, False
   ChangeProperty  "AllowFullMenus" , DB_Boolean, False
   ChangeProperty  "AllowBreakIntoCode" , DB_Boolean, False
   ChangeProperty  "AllowSpecialKeys" , DB_Boolean, False
   ChangeProperty  "AllowBypassKey" , DB_Boolean, False
  
     iErr =  1 
APP_NAME:
    DBEngine( 0 )( 0 ).Properties( "AppTitle" ) = strAppName
    Application.RefreshTitleBar
   iErr =  2 
APP_ICON:
    DBEngine( 0 )( 0 ).Properties( "AppIcon" ) = stIcon
    Application.RefreshTitleBar
    
ExitHere:
    Exit Function
HandleErr:
    Select Case Err.number
        Case  3270 
            Select Case iErr
                Case  1 
                    Set Prop = DBEngine( 0 )( 0 ).CreateProperty( "AppTitle" , dbText,  " " )
                    DBEngine( 0 )( 0 ).Properties.Append Prop
                    Resume APP_NAME
                Case  2 
                    Set Prop = DBEngine( 0 )( 0 ).CreateProperty( "AppIcon" , dbText,  " " )
                    DBEngine( 0 )( 0 ).Properties.Append Prop
                    Resume APP_ICON
            End Select
        Case Else
            MsgBox  "Error #"  & Err.number &  ": "  & Err.Description, vbCritical,  "SetStartProperties" 
    End Select
    Call RecordError(Err.number, Err.Description,  "202 ; 235 ; 232 ; 229 ; 237 ; 242 ;  205 ; 210 ;",  "SetStartProperties" )
End Function

Public Function SetApplicationOptions()
    On Error Resume Next
    Dim cbar As CommandBar
    
    For Each cbar In CommandBars
        cbar.Visible = False
    Next
    DoCmd.ShowToolbar  "Главное меню" , acToolbarNo
    With Application
        .SetOption  "Show Status Bar" , False
        .SetOption  "Show Startup dialog box" , False
        .SetOption  "Show New object shortcuts" , False
        .SetOption  "Left Margin" ,  0 . 5 
        .SetOption  "Right Margin" ,  0 . 5 
        .SetOption  "Top Margin" ,  1 
        .SetOption  "Bottom Margin" ,  1 
        .SetOption  "Provide Feedback with sound" , True
        .SetOption  "Track name AutoCorrect info" , False
        .SetOption  "Perform name AutoCorrect" , False
        .SetOption  "Log name AutoCorrect changes" , False
        .SetOption  "Default find/replace behavior" ,  1 
        .SetOption  "Confirm Record changes" , False
        .SetOption  "Confirm Document deletions" , False
        .SetOption  "Confirm Action Queries" , False
        .SetOption  "Show Values Limit" ,  1000 
        .SetOption  "Move after enter" , False
        .SetOption  "Behavior entering field" ,  0 
        .SetOption  "Arrow Key Behavior" ,  0 
        .SetOption  "Cursor Stops At First/Last Field" , True
        .SetOption  "Enable DDE Refresh" , True
        .SetOption  "Refresh Interval (Sec)" ,  60 
        .SetOption  "Default Open Mode for Databases" ,  1 
        .SetOption  "Default Record Locking" ,  2 
        .SetOption  "Use Row Level Locking" , True
    End With
End Function