Ошибка при импорте

@pagpal · Регистрация: 28.02.2017

Author24 — интернет-сервис помощи студентам

Добрый вечер всем. Такая проблемка нарисовалась, при импорте из Excel доходит до пустой ячейки и затыкается, по всякому пробовал, помогает только вручную поставить ноль. Подскажите пожалуйста что не так в этом выражении или как заменить пустые ячейки на ноль при импорте.

Visual Basic

1
2
3

.....
rst!Колво = Nz(.Range("G" & lRowNo).Value, 0)
.....

@pagpal · 23.07.2020, 12:41 **[ТС]**

Сообщение от Eugene-LS

Напишите блок добавления так:

Спасибо, очередной раз выручили. Все работает.

@Eugene-LS · 23.07.2020, 13:00

Сообщение от pagpal

Спасибо, очередной раз выручили. Все работает.

А ещё "красивее" FindFirst вместо DCount():

Кликните здесь для просмотра всего текста

Visual Basic

        'Табличная часть в таблицу: [Отгрузка]:
        Set rst = CurrentDb.OpenRecordset("InОтгрузка", dbOpenDynaset)
        
        If rst.EOF = False Then rst.MoveLast   'Заполнение набора записями
 
        'For lRowNo = iGoodsTblStart To 10000 + iGoodsTblStart
        For lRowNo = 18 To 10016
            s = "B" & lRowNo 'Наименование товарно-материальных ценностей
            sVal = .Range(s).Value
            If sVal = "" Then Exit For
 
            'Поиск - проверка на наличие в бд
            If rst.EOF = False Then rst.MoveFirst
            s = "Наименование = '" & sVal & "'"
            rst.FindFirst s
            If rst.NoMatch Then 'Если искомое НЕ найдено
 
                rst.AddNew
                iCount = iCount + 1
                rst!ID_Reestr = lDocID
 
                rst!Наименование = sVal
                rst!Колво = Nz(.Range("D" & lRowNo).Value, 0)
                rst!Колво = IIf(Len(.Range("G" & lRowNo)) <= 1, 0, .Range("G" & lRowNo))
                
                rst.Update
            End If
        Next lRowNo
          
        s = "В таблицу [InОтгрузка] добавлено: " & iCount & " записей."
        MsgBox s, vbInformation

Наблюдаю "кашу" в вашей процедуре импорта - надеюсь оптимизируете в последствии.
Успехов!

@pagpal · 23.07.2020, 16:30 **[ТС]**

Сообщение от Eugene-LS

А ещё "красивее"

Спасибо, попробую.

Добавлено через 3 часа 26 минут
Eugene-LS,
Еще один вопрос возник. Поле наименование выбирается в выдающем списке, подскажите как допилить процедуру
Пробовал так, но вылетает

Visual Basic

        'Табличная часть в таблицу: [Отгрузка]:
        Set rst = CurrentDb.OpenRecordset("InОтгрузка", dbOpenDynaset)
        
        If rst.EOF = False Then rst.MoveLast   'Заполнение набора записями
 
        'For lRowNo = iGoodsTblStart To 10000 + iGoodsTblStart
        For lRowNo = 18 To 10016
            s = "B" & lRowNo 'Наименование товарно-материальных ценностей
            sVal = .Range(s).Value
            If sVal = "" Then Exit For
 
            'Поиск - проверка на наличие в бд
            If rst.EOF = False Then rst.MoveFirst
            s = "Наименование = '" & sVal & "'"
            rst.FindFirst s
            If rst.NoMatch Then 'Если искомое НЕ найдено
 
                rst.AddNew
                iCount = iCount + 1
                rst!ID_Reestr = lDocID
 
                j = Forms![frmZakazЗKart].ПолеСоСписком33.Column(3) 'Название поля куда писать Наименование.
 
                'rst!Наименование = sVal
 
                rst!j = sVal
 
                rst!Колво = Nz(.Range("D" & lRowNo).Value, 0)
                rst!Колво = IIf(Len(.Range("G" & lRowNo)) <= 1, 0, .Range("G" & lRowNo))
                
                rst.Update
            End If
        Next lRowNo
          
        s = "В таблицу [InОтгрузка] добавлено: " & iCount & " записей."
        MsgBox s, vbInformation

@Eugene-LS · 23.07.2020, 16:44

Сообщение от pagpal

Поле наименование выбирается в выдающем списке, подскажите как допилить процедуру

Не понял вашего вопроса.

@pagpal · 23.07.2020, 16:58 **[ТС]**

Сообщение от Eugene-LS

Не понял вашего вопроса.

rst!Наименование - переменное, Наименование - берется из выдающего списка - ПолеСоСписком33.Column(3), может быть Наименование, Наименование1,Наименование2 и т.д.
Нужно чтобы rst!Наименование изменялось в зависимости от выбранного значения в ПолеСоСписком33.Column(3)
Возможно ли так rst!Выбранное значение = sVal

@Eugene-LS · 23.07.2020, 17:28

Сообщение от pagpal

rst!Наименование - переменное, Наименование - берется из выдающего списка - ПолеСоСписком33.Column(3), может быть Наименование, Наименование1,Наименование2 и т.д.

Ясно.
Токда кусок добавления будет уже таким:

Кликните здесь для просмотра всего текста

Visual Basic

        'Табличная часть в таблицу: [Отгрузка]:
        Set rst = CurrentDb.OpenRecordset("InОтгрузка", dbOpenDynaset)
        
        'rst!Наименование - переменное, Наименование - берется из выдающего списка - ПолеСоСписком33.Column(3)
        d = ПолеСоСписком33.Column(3)
        If rst.EOF = False Then rst.MoveLast   'Заполнение набора записями
 
        'For lRowNo = iGoodsTblStart To 10000 + iGoodsTblStart
        For lRowNo = 18 To 10016
            s = "B" & lRowNo 'Наименование товарно-материальных ценностей
            sVal = .Range(s).Value
            If sVal = "" Then Exit For
 
            'Поиск - проверка на наличие в бд
            If rst.EOF = False Then rst.MoveFirst
            s = "[" & d & "] = '" & sVal & "'"
            rst.FindFirst s
            If rst.NoMatch Then 'Если искомое НЕ найдено
 
                rst.AddNew
                iCount = iCount + 1
                rst!ID_Reestr = lDocID
 
                rst.Fields(d) = sVal
                rst!Колво = Nz(.Range("D" & lRowNo).Value, 0)
                rst!Колво = IIf(Len(.Range("G" & lRowNo)) <= 1, 0, .Range("G" & lRowNo))
                
                rst.Update
            End If
        Next lRowNo
          
        s = "В таблицу [InОтгрузка] добавлено: " & iCount & " записей."
        MsgBox s, vbInformation

Скорее всего не заработает, но это не важно насколько я понимаю туманную суть вопроса.

@pagpal · 23.07.2020, 19:22 **[ТС]**

Сообщение от Eugene-LS

Скорее всего не заработает

А вот и нет, все работает как надо, спасибо.

@Eugene-LS · 23.07.2020, 19:37

Сообщение от pagpal

А вот и нет, все работает

Das ist fantastisch!

@pagpal 126 / 96 / 33 Регистрация: 28.02.2017 Сообщений: 478
	23.07.2020, 12:41 [ТС]	21
	Сообщение от Eugene-LS Напишите блок добавления так: Спасибо, очередной раз выручили. Все работает. 0

@pagpal 126 / 96 / 33 Регистрация: 28.02.2017 Сообщений: 478
	23.07.2020, 16:58 [ТС]	25
	Сообщение от Eugene-LS Не понял вашего вопроса. rst!Наименование - переменное, Наименование - берется из выдающего списка - ПолеСоСписком33.Column(3), может быть Наименование, Наименование1,Наименование2 и т.д. Нужно чтобы rst!Наименование изменялось в зависимости от выбранного значения в ПолеСоСписком33.Column(3) Возможно ли так rst!Выбранное значение = sVal 0

@pagpal 126 / 96 / 33 Регистрация: 28.02.2017 Сообщений: 478
	23.07.2020, 19:22 [ТС]	27
	Сообщение от Eugene-LS Скорее всего не заработает А вот и нет, все работает как надо, спасибо. 0

@Eugene-LS 10472 / 5458 / 1375 Регистрация: 05.10.2016 Сообщений: 15,470
	23.07.2020, 16:44	24
	Сообщение от pagpal Поле наименование выбирается в выдающем списке, подскажите как допилить процедуру Не понял вашего вопроса. 0

@Eugene-LS 10472 / 5458 / 1375 Регистрация: 05.10.2016 Сообщений: 15,470
	23.07.2020, 19:37	28
	Сообщение от pagpal А вот и нет, все работает Das ist fantastisch! 0

Ошибка при импорте

Решение