Когда пишу так:
1.
2.
3.
4.
5.
6.
7.
8.
Select Case err.Number
Case 2448
qd.Execute
Resume Next
Case 2169
MsgBox "Вы ввели в поле неправильный формат значения."
Case Else
Response = acDataErrDisplay
Exit Sub
То ошибка все-равно выскакивает, т.е. у меня для Ac97 этот способ не работает.
Когда пишу так:
1.
2.
3.
4.
5.
6.
7.
Select Case err.Number
Case 2448
DoCmd.CancelEvent, SendKeys "{ESC}", Response := acDataErrContinue
Case 2169
MsgBox "Вы ввели в поле неправильный формат значения."
Case Else
Response = acDataErrDisplay
Exit Sub
Access не съедает эту строчку:
DoCmd.CancelEvent, SendKeys "{ESC}", Response := acDataErrContinue
Ругается на
"{ESC}" , говорит "Ожидалось, конец инструкции".
авторМожет в схеме данных какая-то собака зарыта и ты через подчиненную форму заносишь данные, которые целостность нарушают?
Честно говоря не знаю, наверно ничего не нарушаю, т.к. данные заносятся правильно (хотя это тоже не показатель).
Есть таблица со стороны один - на главной форме, есть таблица со стороны многие на подформе - вот и вся целостность (т.е. две таблицы - одна со стороны один, другая со стороны многие).
Я на подформе заношу данные со стороны многие только после того, как заполяю все данные на главной форме (для таблицы со стороны один).
Эта ошибка возникает только после того, как я добавляю связь для главной формы и подформы, полем из таблицы со стороны многие.
Если эту связь убрать, то все нормально работает (но тогда для другой формы не работает поиск с синхронизацией).
В общем замкнутый круг.
