Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час
чтоб не было дубликатов делаю - так
на нажатие кнопки

If PEREBROS_peremehenie(Dialog_FIle_OPEN("Укажите файл загрузки", "Загрузить")) = False Then Exit Sub

сама функция:

Public Function PEREBROS_peremehenie(Path_Peremeheuie As String) As Boolean ' переброс товара из перемещения на склад PEREBROS_peremehenie = True       Dim rstOtkuda As DAO.Recordset 'Объявляем рекордсет       Dim rstkuda As DAO.Recordset 'Объявляем рекордсет       Dim BAZA As DAO.Database 'Объявляем базу On Error GoTo PEREBROS_peremehenie_Error '-------------------------------------------------------------------------------       Set BAZAName = CurrentDb       Set BAZA = OpenDatabase(Path_Peremeheuie)      If Nalichie_Tablici_v_Drugoy_Baze("PEREMEHENIE_TBL", Path_Peremeheuie) = False Then      Call MsgBox("В указанном файле нет данных для загрузки!!!", vbCritical, "Предупреждение")      PEREBROS_peremehenie = False      Exit Function      End If       Set rstOtkuda = BAZA.OpenRecordset("PEREMEHENIE_TBL")       Set rstkuda = BAZAName.OpenRecordset("Vrem_prihod_TBL")        Do Until rstOtkuda.EOF     rstkuda.AddNew     rstkuda!Номер_документа = rstOtkuda!Номер_документа     rstkuda!Дата_документа = rstOtkuda!Дата_документа     rstkuda!Склад_Отправитель = rstOtkuda!Склад_Отправитель     rstkuda!Склад_Получатель = rstOtkuda!Склад_Получатель     rstkuda!Наименование = rstOtkuda!Наименование     rstkuda!цена = rstOtkuda!цена     rstkuda!Количество = rstOtkuda!Количество     rstkuda!Сумма = rstOtkuda!Сумма     rstkuda!Код_Товара = rstOtkuda!Код_Товара     rstkuda!Единица = rstOtkuda!Единица     rstkuda!Штрихкод = rstOtkuda!Штрихкод     rstkuda!Группа = rstOtkuda!Группа     rstkuda!Артикул = rstOtkuda!Артикул     rstkuda!Уже_Имеем = Proverka_Nalichiya(rstOtkuda!Номер_документа, rstOtkuda!Дата_документа, rstOtkuda!Код_Товара)' вот тут проверяем имеется ли такой товар на складе rstkuda.Update rstOtkuda.MoveNext Loop   rstOtkuda.Close   rstkuda.Close   Set rstOtkuda = Nothing   Set rstkuda = Nothing   BAZAName.Close   Set BAZAName = Nothing '===========Проверка загруженного  ============   If DCount("*", "Vrem_Prihod_TBL") = 0 Then MsgBox "Не уалось ЗАГРУЗИТЬ ПРИХОД" PEREBROS_peremehenie = False End If '------------------------------------------------------------------------------- On Error GoTo 0 Exit Function PEREBROS_peremehenie_Error: If Err.Number = 3078 Then MsgBox "Некорректные данные в файле перемещения " & Path_Peremeheuie Call Zapis_ERR("OBMEN_MOD" & "процедура->" & "PEREBROS_peremehenie", Err.Number, Err.Description)    End Function

может и Вам поможет избежать дублей.......