Форум программистов, компьютерный форум, киберфорум
Наши страницы
MS Access
Войти
Регистрация
Восстановить пароль
 
Soft17
1 / 1 / 1
Регистрация: 15.01.2017
Сообщений: 386
1

При повторном появлении ошибки обработка ошибки не срабатывает

12.02.2019, 19:15. Просмотров 248. Ответов 5

Логика:
- Пользователь. Нажимает кнопку;
- Код . Создаёт "Recordset" "rstStud"(студенты) и "rstGroupStud"(ГруппыСтуденты);
- Код . Цикл. Перебирает "rstStud";
- - Код . Добавить запись в "rstGroupStud";
- - Код . Если запись существует - перейти к следующей записи в цикле;
- - Код . Если запись новая - добавить запись в "rstGroupStud";
Суть: одно нажатие кнопки - добавить одну уникальную запись.

Проблема.
Когда цикл проходит !ИмяСтудента = "Имя Студента 2" в строке ".Update" получаю ошибку.
Ошибка:
"Не удалось внести изменения из-за повторяющихся значений в
индексе, первичном ключе или связях. Измените данные в одном
или нескольких полях, содержащих повторяющиеся значения,
удалите индекс или переопределите его, разрешив
повторяющиеся значения, и повторите попытку."

Т.е. первый раз обработчик ошибок срабатывает нормально, а при повторном срабатывании получаю ошибку.

Вопрос.
Как сделать чтобы код работал согласно описанной логики?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub btnAddName_Click()
        Dim nameStud As String
        
        Dim rstStud As DAO.Recordset   ' Студенты
        Dim rstGroupStud As DAO.Recordset ' ГруппыСтуденты
        
       Set rstStud = CurrentDb.OpenRecordset("тбл_02_Студенты", dbOpenSnapshot)  'Только просмотр
       Set rstGroupStud = CurrentDb.OpenRecordset("тбл_03_ГруппыСтуденты", dbOpenDynaset)  ' Редактирование
                  
        'Перебор всех записей в наборе
            With rstStud
                Do Until .EOF = True 'Цикл до конца набора
                    nameStud = !ИмяСтудента
                
                ' Обработка ошибки
                    On Error GoTo errend
                    ' Call AddRecordInRstGroupStud(nameStud)
                             With rstGroupStud
                                    .AddNew
                                    'Заполнение полей значениями
                                    !ИДГруппы = Me.ИДГруппыФрм
                                    !ИмяСтудента = nameStud
                                    ' nameStud
                                    .Update
                              End With
                              rstGroupStud.Close
                              Me.фрм_04_ГруппыСтуденты.Requery
                    Exit Sub
errend:
                    .MoveNext
                Loop
            End With
            
            On Error Resume Next
            rstStud.Close
            Set rstStud = Nothing
 
End Sub
0
Миниатюры
При повторном появлении ошибки обработка ошибки не срабатывает   При повторном появлении ошибки обработка ошибки не срабатывает  
Вложения
Тип файла: zip ErrorRepeat_1.zip (35.2 Кб, 2 просмотров)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.02.2019, 19:15
Ответы с готовыми решениями:

Остановка своей службы при появлении ошибки
Всем привет. Вопрос возник, сам не могу врубиться. Есть служба. protected override void...

при повторном call валят ошибки
Люди помогите... надежды нету никакой и нигде!!! Нужно написать программу в граф режиме строящую...

Уже скомпилированный проект выдаёт ошибки при повторном запуске
Доброе время суток! Имеется: .exe-шник и Delphi-проект к нему. В .exe есть небольшой баг,...

Обработка ошибки при потере COM порта
Добрый день! Пока не приходилось сталкиваться с обработкой ошибок, поэтому обращаюсь к вам. Есть...

Обработка ошибки при разрыве связи
Подскажите пожалуйста. Есть програмка которая обращается к другому устройству через COM порт. Но...

5
MrShin
254 / 222 / 57
Регистрация: 18.06.2015
Сообщений: 477
13.02.2019, 09:16 2
Не совсем понял конечной цели этого кода - добавить всех студентов в группу?
Зачем тогда выходите из процедуры в 28-й строке? При следующем нажатии цикл начинается заново, а такой студент уже есть, уникальный ключ не даст добавить второй раз того же студента в группу.

Кто же ставит метку обработчика ошибки до выхода из цикла?

И такие вещи лучше делать запросом, а не переором рекордсета.

Добавлено через 11 минут
А если вам нужно за раз добавить только одного студента, где проверка, что студент из текущей записи студентов уже существует в группе? "Проверять" с помощью попытки вставки и обработки ошибки также плохая практика. Если уж хотите сделать именно так (в учебных целях, как я понимаю), то после возникновения ошибки ее нужно обработать с помощью Resume, Resume Next или хотя бы Err.Clear

Добавлено через 9 минут
Типа вот так:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
            rstGroupStud.Close
            Me.фрм_04_ГруппыСтуденты.Requery
            Exit Sub
NextStud:
            .MoveNext
        Loop
    End With
            
    On Error Resume Next
    rstStud.Close
    Set rstStud = Nothing
errend:
    Resume NextStud
End Sub
Но вообще я бы код переписал, плоховат.
1
commun
438 / 227 / 13
Регистрация: 29.10.2014
Сообщений: 923
13.02.2019, 09:25 3
Цитата Сообщение от Soft17 Посмотреть сообщение
!ИмяСтудента = nameStud
это из какого набора? в предыдущ строках два With - я еще так не пробовал из соображен безопасности.
0
MrShin
254 / 222 / 57
Регистрация: 18.06.2015
Сообщений: 477
13.02.2019, 09:33 4
Цитата Сообщение от commun Посмотреть сообщение
это из какого набора?
rstGroupStud конечно. Вложенные With вполне допустимы, но их лучше избегать для лучшей читаемости программы, максимум короткие вставки на несколько строк, типа этой.
1
commun
438 / 227 / 13
Регистрация: 29.10.2014
Сообщений: 923
13.02.2019, 10:21 5
Цитата Сообщение от MrShin Посмотреть сообщение
Вложенные With вполне допустимы
Не знал. Ну пусть все таки попробует изменить имя поля на ИмяСтудента1.
0
Eugene-LS
3905 / 2255 / 428
Регистрация: 05.10.2016
Сообщений: 6,273
13.02.2019, 12:28 6
Soft17, с моей скромной точки зрения, у вас всё не правильно.
Нет индексов в таблицах (и уникальных в т.ч.)
Нет схемы данных.
И ещё:
Группа объединяет некоторое кол-во студентов.
Значит: в таблице "тбл_02_Студенты" должно быть поле связи с группой в которой студент учится на данный момент.
1
13.02.2019, 12:28
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.02.2019, 12:28

Обработка ошибки при не верном расширении
Всем привет. Стоит задача вместо ошибок 404 и тп перенаправлять пользователя на определенную...

Обработка ошибки при не существующем инклуде
При переходе по страницам, у меня отправляются гет запросы типа site.ru/?do=page Вместо page...

Обработка ошибки при вызове несуществующего макроса
Добрый день. Извеняюсь если что не так Имя запускаемого макроса формируется динамически в цикле,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru