После записи данных в таблицы на VB выдается ошибка ядра субд

@ssss80 · Регистрация: 14.11.2015

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

День добрый! С формы запись в таблицы осуществляется посредством

Visual Basic

Private Sub пас_GotFocus()
Dim str1 As Integer
Dim str2 As Integer
Dim strSQL As String
Dim strSQL1 As String
Dim strSQL2 As String
str1 = Me!Код
str2 = DCount("[Код1]", "род")
MsgBox ("Id_КОД=" & str1 & "     " & "Id_КОД1=" & str2)
If str1 > str2 Then
strSQL = " Insert Into род(код1) values ('" & Me.Код1 & "') "
strSQL1 = " Insert Into студ(код,код1,код2) values ('" & Me.Код & "','" & Me.Код1 & "','" & Me.Код2 & "') "
CurrentProject.Connection.Execute (strSQL)
CurrentProject.Connection.Execute (strSQL1)
MsgBox ("Записали!!!!!!!!!!")
'strSQL2 = " SELECT студ.Код, студ.Код1, студ.Код2, студ.пас, род.ФИО, груп.имя_группы, род.Код1 AS Код1_Таблица2, груп.Код2 AS Код2_Таблица3 FROM род INNER JOIN (груп INNER JOIN студ ON груп.Код2 = студ.Код2) ON род.Код1 = студ.Код1"
' DoCmd.RunCommand acCmdCloseDatabase
' DoCmd.RunCommand acCmdOpenDatabase
Else
GoTo m1
End If
m1: End Sub

Выполняется успешно, но потом при переходе на след запись выдает ошибку «Ядру СУБД ……. Не удается найти в таблице РОД запись с совпадающими ключевыми полями КОД1
Подскажите что не так

shanemac51 · 16.11.2015, 14:01

у вас же числа и нет номера 1
попробуйте

Visual Basic

str2 = Dmax("[Код1]", "род")
MsgBox ("Id_КОД=" & str1 & "     " & "Id_КОД1=" & str2)
If str1 > str2 Then
strSQL = " Insert Into род(код1) values (" & Me.Код1 & ") "
strSQL1 = " Insert Into студ(код,код1,код2) values (" & Me.Код & "," & Me.Код1 & "," & Me.Код2 & ") "
CurrentProject.Connection.Execute (strSQL)

Pelena · 16.11.2015, 14:06

У меня другую ошибку выдаёт. Но попробуйте в конце процедуры убрать фокус с поля пас, например,

Код

Me.Код.SetFocus

Иначе при переходе на новую запись, сразу срабатывает процедура, а поля ещё не все заполнены

@ssss80 · 16.11.2015, 14:27 **[ТС]**

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

у вас же числа и нет номера 1
попробуйте

По первому ответу пробовал так сам, но если таблица пустая то ничего не вернет и работоспособности нет

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

1
Me.Код.SetFocus

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

Добавлено через 4 минуты
Код2 выбираем из комбобокса и информация сразу появляется КОД2_Таблица3
Код1 после сохранения остается пустым, мне кажется не обновления информации о таблицах?

Добавлено через 57 секунд
нужно по новому перечитывать информацию из бд? или я не прав?

Pelena · 16.11.2015, 15:57

А если так попробовать?

@ssss80 · 16.11.2015, 19:54 **[ТС]**

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

А если так попробовать?

Спасибо за такое предложение, так пробовал и сам, все работает, нет вопросов, но как то я думаю неправильно, можно использовать от безысходности.
Хотелось бы знать в чем проблема

Pelena · 16.11.2015, 20:00

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

как то я думаю неправильно

Почему, если работает?
Я как раз другого мнения. Зачем изобретать запросы для добавления данных в таблицы, если можно добавить напрямую из формы?

@ssss80 · 16.11.2015, 21:25 **[ТС]**

есть еще предложения?

@alvk · 17.11.2015, 02:40

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

Зачем изобретать запросы для добавления данных в таблицы, если можно добавить напрямую из формы?

Если это ДеЛЬФИ например, то да, формы свободные. Если Акцесс - никаких свободных форм, только вспомогательные формы могут быть свободными!
Вот такие правила, а не предложения.

Pelena 2636 / 1335 / 256 Регистрация: 25.10.2010 Сообщений: 2,196
	16.11.2015, 14:06	3
	У меня другую ошибку выдаёт. Но попробуйте в конце процедуры убрать фокус с поля пас, например, Код Me.Код.SetFocus Иначе при переходе на новую запись, сразу срабатывает процедура, а поля ещё не все заполнены 0

@ssss80 0 / 0 / 0 Регистрация: 14.11.2015 Сообщений: 4
	16.11.2015, 14:27 [ТС]	4
	Сообщение от shanemac51 у вас же числа и нет номера 1 попробуйте По первому ответу пробовал так сам, но если таблица пустая то ничего не вернет и работоспособности нет Сообщение от Pelena 1 Me.Код.SetFocus Пробовал, все тоже самое, главное чтобы были заполнены ключевые поля, в других же может ничего и не быть Добавлено через 4 минуты Код2 выбираем из комбобокса и информация сразу появляется КОД2_Таблица3 Код1 после сохранения остается пустым, мне кажется не обновления информации о таблицах? Добавлено через 57 секунд нужно по новому перечитывать информацию из бд? или я не прав? 0

@ssss80 0 / 0 / 0 Регистрация: 14.11.2015 Сообщений: 4
	16.11.2015, 19:54 [ТС]	6
	Сообщение от Pelena А если так попробовать? Спасибо за такое предложение, так пробовал и сам, все работает, нет вопросов, но как то я думаю неправильно, можно использовать от безысходности. Хотелось бы знать в чем проблема 0

Pelena 2636 / 1335 / 256 Регистрация: 25.10.2010 Сообщений: 2,196
	16.11.2015, 20:00	7
	Сообщение было отмечено alvk как решение Решение Сообщение от ssss80 как то я думаю неправильно Почему, если работает? Я как раз другого мнения. Зачем изобретать запросы для добавления данных в таблицы, если можно добавить напрямую из формы? 1

@ssss80 0 / 0 / 0 Регистрация: 14.11.2015 Сообщений: 4
	16.11.2015, 21:25 [ТС]	8
	есть еще предложения? 0

@alvk 7398 / 4535 / 295 Регистрация: 12.08.2011 Сообщений: 14,023
	17.11.2015, 02:40	9
	Сообщение от Pelena Зачем изобретать запросы для добавления данных в таблицы, если можно добавить напрямую из формы? Если это ДеЛЬФИ например, то да, формы свободные. Если Акцесс - никаких свободных форм, только вспомогательные формы могут быть свободными! Вот такие правила, а не предложения. 0

После записи данных в таблицы на VB выдается ошибка ядра субд

Решение