Электробезопасность

ФДиаметр = "'*'"If

'СписокВылет(flg3.Value = True) And (Not (IsNull(Form_Диски.СписокВылет.Value))) Then

ФВылет = "'" + Form_Диски.СписокВылет.Value + "'"

ФВылет = "'*'"If

'СписокОтверстия(flg4.Value = True) And (Not (IsNull(Form_Диски.СписокОтверстия.Value))) Then

ФОтверстия = "'" + Form_Диски.СписокОтверстия.Value + "'"

Else

ФОтверстия = "'*'"If

'СписокПроизводитель(flg5.Value = True) And (Not (IsNull(Form_Диски.СписокПроизводитель.Value))) Then

ФПроизводитель = "'" + Form_Диски.СписокПроизводитель.Value + "'"

ФПроизводитель = "'*'"If

'реализуем фильтр

Общий_Фильтр = "Ширина Like " + ФШирина + " AND " + "Диаметр Like " + ФДиаметр + " AND " + "[Вылет (ET)] Like " + ФВылет + " AND " + "[Отверстия (PCD)] Like " + ФОтверстия + " AND " + "Производитель Like " + ФПроизводитель

Form_Диски.Filter = Общий_Фильтр

If Form_Диски.Filter <> "" Then Form_Диски.FilterOn = True

End Sub

Приложение 3

Форма загрузкаCompare DatabaseSub Кнопка0_Click()FName As Stringresult As IntegerApplication.FileDialog(1) ' Вместо : With Application.FileDialog(msoFileDialogOpen) '

.Title = "Выбор файла Excel"

.InitialFileName = "C:\" 'default path'

.AllowMultiSelect = False

.Filters.Clear

.Filters.Add "Файлы excel", "*.xls", 1= .Showresult = 0 Then Exit Sub= Trim(.SelectedItems.Item(1))WithError Resume Next

Надпись5.Caption = FNameSubSub Кнопка6_Click()Error GoTo Err_Кнопка6_Click.GoToRecord , , acFirst_Кнопка6_Click:Sub_Кнопка6_Click:Err.DescriptionExit_Кнопка6_ClickSubSub Кнопка7_Click()

' Это загрузкаMyPatch As String 'Где MyPatch путь к файлу= Me!Надпись5.CaptionMyPatchError Resume Next ' Выключение обработчика ошибок.

'DoCmd.DeleteObject acTable, Me!TABLE_NAME_

Err = 0 ' Очистка кода ошибки.

'Сама загрузка"Загружаем".DeleteObject acTable, "Запча"

DoCmd.TransferSpreadsheet acImport, , "Запча", MyPatch, True, ""

End SubSub Обновить_данные_в_каталоге_Click()Error GoTo Err_Обновить_данные_в_каталоге_Click

Dim stDocName As String= ChrW(1054) & ChrW(1073) & ChrW(1085) & ChrW(1086) & ChrW(1074) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(32) & ChrW(1079) & ChrW(1072) & ChrW(1087) & ChrW(1095) & ChrW(1072) & ChrW(1089) & ChrW(1090) & ChrW(1077) & ChrW(1081).OpenQuery stDocName, acNormal, acEdit_Обновить_данные_в_каталоге_Click:Sub_Обновить_данные_в_каталоге_Click:Err.DescriptionExit_Обновить_данные_в_каталоге_ClickSub