|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.01.2012, 14:50 | #1 |
Пользователь
Регистрация: 28.12.2011
Сообщений: 20
|
ОШИБКА!
Почему-то выдаёт ошибку 3021 "Текущая запись отсутствует".
Код: Код:
|
06.01.2012, 15:08 | #2 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 515
|
Если честно мне совсем не понятна данная строка может должно быть как-то так:
tblType.MoveFirst Do Until (tblType.EOF) if tblType.Fields("Тип действия").Value = Form_Расписание.Тип_Действия.Value) then действие End if tblType.MoveNext Loop |
06.01.2012, 16:07 | #3 |
Пользователь
Регистрация: 28.12.2011
Сообщений: 20
|
Я последовал вашему совету
Код:
Последний раз редактировалось hamsidJ; 06.01.2012 в 16:17. |
06.01.2012, 19:00 | #4 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 515
|
Если теперь работает, то по тому же принципу и продолжайте, что перебираем - условие.
tblType.MoveFirst Do Until tblType.EOF if i < tblMain.RecordCount - 2 then ЛУУП а вообще, выложили бы пример уже давно бы решили данную задачу. |
06.01.2012, 19:25 | #5 |
Пользователь
Регистрация: 28.12.2011
Сообщений: 20
|
Вот исправил но
Код:
|
06.01.2012, 20:35 | #6 |
Форумчанин
Регистрация: 30.03.2010
Сообщений: 153
|
hamsidJ, если не хотите выкладывать пример, то ищите ошибку сами.
В редакторе VBA нажмите в меню View -> Immediate window, или нажмите Ctrl+G. Откроется окно Immediate, в нём проверьте по частям глючную строку. В окне набираете сначала знак вопроса, потом то что хотите проверить, типа такого: ? tblMain.Fields("Дата").Value и жмёте Enter Если проверяемая строка нормальная, то получите значение, если нет то сразу поймёте где был глюк. Проверку делайте в режиме выполнения кода (открыт редактор VBA, выполняемая строчка выделена жёлтым цветом). Когда вылетает окно об ошибке с кнопкой Debug, жмите Debug. Откроется окно редактора VBA, глючная строка будет выделена. Второй вариант делать точки остановки выполнения кода самому, жмёте на поле окна с кодом мышью, появится точка, на ней выполнение кода остановится, Вас выкинет в редактор VBA. Так можно установить точку на Private Sub Add_Click() и построчно, используя кнопку F8 прогнать весь код, или проверить что-нибудь в окне Immediate. В общем дерзайте, и удачи. Последний раз редактировалось Woodlin; 06.01.2012 в 21:51. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Nero - ошибка драйвера DMA. ошибка CRC | NecRoMat | Софт | 5 | 09.05.2012 01:29 |
Ошибка run-time Error 1004 общая ошибка ODBC | kaval88 | Microsoft Office Excel | 0 | 27.02.2011 20:20 |
Ошибка в коде, ошибка в css или это проблема с совместимостью с браузерами? | ankris | HTML и CSS | 5 | 23.11.2010 16:58 |
Это ошибка Delphi или моя ошибка??? | bloodeagle | Общие вопросы Delphi | 3 | 12.11.2009 15:26 |
...Ошибка 101 (net::ERR_CONNECTION_RESET): Неизвестная ошибка... | infrared | Помощь студентам | 0 | 16.04.2009 17:44 |