| |
 68 Кб. |
|
| | Выявлена причина ошибки RUN TIME из предыдущего вопроса
При открытии рабочей формы из Switchboard не работает поиск записи из списка (RUN TIME error 3021)
При открытии той же формы из окна базы данных все работает нормально
Што за беда приключилась со Switchboard и што можно сделать
P.S. В приложении пример - он же пример простого личного словаря на мой взгляд достаточно удобный. Может кому сгодится | |
| |
| |
| |
|
|
| | и в нормальной версии так же?
Как проверил в рантайм "При открытии той же формы из окна базы данных все работает нормально" ? | |
| |
| |
| |
|
|
| | Ошибка в самом приложении и связана со Switchboard (я так думаю)
В первом сообщении урезанный пример этого полного приложения.
Описание проблемы:
При открытии рабочей формы (Dictionary) из Switchboard не работает поиск записи в форме из списка (List) (RUN TIME error 3021)
При открытии той же формы (Dictionary) на прямую из окна базы данных все работает нормально
Што делать со Switchboard
Заранее спасибо | |
| |
| |
| |
|
|
| | еще раз.
Это только в рантайм или и в полной версии?
Как проверял запуск Dictionary напрямую из окна БД в рантайме?
у меня в полной 2003 работает и так и так | |
| |
| |
| |
|
|
| | Ошибка в полной версии
Запускаю Dictionary напрямую из окна БД (в полной версии 2000) все работает
Запускаю Dictionary из Switchboard (тоже в полной версии 2000) не работает поиск записи в форме (SarakstsEng_AfterUpdate) | |
| |
| |
| |
|
|
| | Если имеется ввиду при наборе текста в поле "Search" фильтрация в списке "List", то у меня работает.
Разница между вызовом словаря из окна БД и по щелчку кнопки в этом:
DoCmd.OpenForm rs![Argument], , , , acAdd 'Почему acAdd, а не acFormAdd?
|
Т.е. форма открывается на добавление. Так и надо? | |
| |
| |
| |
|
|
| | Спасибо Анатолий
Проблема со списком SarakstsEng_AfterUpdate
Не находит запись (см. предыдущий ответ) | |
| |
| |
| |
|
|
| | >Проблема со списком SarakstsEng_AfterUpdate
>Не находит запись (см. предыдущий ответ)
Ну так и я об этом. :) Форма, открытая в режиме acFormAdd не имеет записей.
Private Sub SarakstsEng_AfterUpdate()
' Поиск записи, соответствующей этому элементу управления.
Dim rs As Object
Set rs = Me.Recordset.Clone
'Здесь вы получаете пустой Recordset
rs.FindFirst "[IDeng] = " & Str(Me![SarakstsEng])
'Здесь вы ничего не находите
Me.Bookmark = rs.Bookmark
'А здесь вы, не проверив rs.NoMatch, получаете ошибку 3021 ("No current record.")
End Sub
|
| |
| |
| |
|
|
