Private Sub Form_Load()

    On Error GoTo Form_Load_Error
    '-----------------------------------------------------------------------------

    DoCmd.Maximize

    Me!Vers.Caption = FUN_GLB_VERSION

    ' СКРЫТИЕ КНОПОК ВЫБОРА
    Me!TUNING_PROGRAMS.Visible = False
    Me!OKNO_FRM_OPEN.Visible = False
    Me!PACIENT_BTN.Visible = False
    Me!SERVIS_BTN.Visible = False
    ' проверить наличие таблиц по указанному в них пути
    If FUN_FILE_YES_NO(FUN_TABLE_STRING("TUNING_TBL")) = False Then
        Me!MESS_POLE = "Необходимо переподключить таблицы с данными. Нажмите клавишу [ESC]"
        Call FUN_LINKUEM_TABLICI_POUMOLCHANIU
        SendKeys "{esc}"
        Me!MESS_POLE = "Нажмите НА КЛАВИАТУРЕ [ESC]."
    End If
    ' проверить наличие таблиц
    If TABLE_YES_NO("TUNING_TBL") = 0 Then
        Me!MESS_POLE = "Необходимо переподключить таблицы с данными. Нажмите клавишу [ESC]"
        Call FUN_LINKUEM_TABLICI_POUMOLCHANIU
        SendKeys "{esc}"
        Me!MESS_POLE = "Нажмите НА КЛАВИАТУРЕ [ESC]."
    End If

    If TABLE_YES_NO("TUNING_TBL") <> 0 Then
        Dim STR_PATSH As String
        STR_PATSH = DLookup("Database", "msysobjects", "name='TUNING_TBL'")
        If FUN_FILE_YES_NO(STR_PATSH) = False Then
            Me!MESS_POLE = "Необходимо переподключить таблицы с данными. Нажмите клавишу [ESC]"
            Call FUN_LINKUEM_TABLICI_POUMOLCHANIU
            SendKeys "{esc}"
        End If
    End If

    ' ЯЗЫК
    If FUN_GLB_LANGUAGE = "К" Then
        Me!LANGUAGE_BTN.Caption = "Казакша"
        Call FUN_RUS_KAZ(Me)
    Else
        Me!LANGUAGE_BTN.Caption = "Русский"
        Call FUN_KAZ_RUS(Me)
    End If

    Me!MESS_POLE = ""
    Me!PSW_STRING.SetFocus

    Me!PSW_STRING = ""
    Me!PSW_STRING.SetFocus

    '-----------------------------------------------------------------------------
    On Error GoTo 0
    Exit Sub
Form_Load_Error:

    Call ZAPIS_V_TEXT_FILE(CurrentProject.Path & "\Ошибки программы.txt", "функция: Form_Load в модуле: Form_1_START_FRM" & vbTab & Nz(Err.Description))
    Call ZAPIS_V_TEXT_FILE(CurrentProject.Path & "\Ошибки программы.txt", "Возможно не найдены таблицы базы программы.")
    MESS "ЧТО-ТО ПОШЛО НЕ ТАК. Просмотрите файлОшибки программы"
    MESS "Возможно не найдены таблицы базы программы."
End Sub





Public Function FUN_GLB_VERSION()
' версия программы
    Dim FSO_File As Object
    On Error GoTo FUN_GLB_VERSION_Error    '--------------------------------------

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set FSO_File = fso.GetFile(CurrentProject.FullName)
    FUN_GLB_VERSION = Left(FSO_File.DateLastModified, 10)
    FUN_GLB_VERSION = "Версия:" & FUN_GLB_VERSION
    '----------------------------------------------------------------------------
    On Error GoTo 0
    Exit Function

FUN_GLB_VERSION_Error:
    Call ZAPIS_V_TEXT_FILE(CurrentProject.Path & "\Ошибки программы.txt", " функция: FUN_GLB_VERSION в модуле: START_MOD" & vbTab & Nz(Err.Description))

End Function