Вопрос № 73482: Подскажите пжалуйста! В Access 2.0 ниже приведенный код работал а в Access 2003 выдает Runtime error 6 . overflow. Ругается на строчку :
MyText.SelStart = where - 1
ИЛИ ХОТЯ БЫ СКАЖИТЕ КАК ПРОДЕЛАТЬ ТРАССИРОВКУ... СПАСИБО...Вопрос № 73534: Посоветуйте с чего начать изучение программирования в Word, необходимо вставлять в документ данные из базы SQL...
Вопрос № 73.482
Подскажите пжалуйста! В Access 2.0 ниже приведенный код работал а в Access 2003 выдает Runtime error 6 . overflow. Ругается на строчку :
MyText.SelStart = where - 1
ИЛИ ХОТЯ БЫ СКАЖИТЕ КАК ПРОДЕЛАТЬ ТРАССИРОВКУ... СПАСИБО
Приложение:
Отправлен: 31.01.2007, 16:08
Вопрос задал: Vselsav (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Dimm77
Здравствуйте, Vselsav!
В дебаггере команда view->immediate window, в которое и перетащите переменную. Или можно открыть окно locals
Поймать же баг можно на конструкции обработчика ошибок, как в приложении.Удач!
Приложение:
--------- Цель жизни - жизнь.
Ответ отправил: Dimm77 (статус: 2-ой класс)
Ответ отправлен: 31.01.2007, 18:08
Отвечает: Alec Perle
Здравствуйте, Vselsav!
Для трассировки проблемного участка кода нужно установить точку останова (Breackpoint). Это делается с помощью меню Отладка - Точка останова (Debug - Toggle Breackpoint). Соответственно перед этим нужно установить курсор на необходимой строке.
В данном случае я бы не стал ждать ошибки, а трассировал бы с начала процедуры.
Для выполнения одной строки нужно нажимать F8 (или в меню Отладака (Debug) выбрать пункт Шаг с заходом (Step into)).
Для контроля за значением переменных можно или поместить их в ранее указанное окно Immediate, либо добавить в окно контрольного значения (Add Watch) с помощью мыши, или же можно просто навести мышь на переменную.
Кроме того, у Вас строкой
Forms![Рабочий стол]![Поле96] = where - 1
выводится значение переменной, которая "не нравиться" аксессу.
И еще. Изучая код, прихожу к мысли, что что-то тут не так. Вы не указали, но есть подозрение об отсутствии строки Option Explicit в начале модуля, а в наименовании переменной where вкрались русские символы... Если нет сроки Option Explicit, настоятельно рекомендую ее ввести (и пользоваться в дальнейшем). И если мое подозрение подтвердится, то будет ошибка на этапе компиляции.
--------- Пессимист - это хорошо информированный оптимист (а оптимист - хорошо проинструктированный пессимист)
Ответ отправил: Alec Perle (статус: 3-ий класс)
Ответ отправлен: 31.01.2007, 19:46
Вопрос № 73.534
Посоветуйте с чего начать изучение программирования в Word, необходимо вставлять в документ данные из базы SQL
Отправлен: 31.01.2007, 20:56
Вопрос задала: Dariola (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Dariola!
Рекомендую начать с примера :
http://www.leadersoft.ru/russian/download/freeware/la_automat.zip
на сайте Лидер Access
Удачи.
Евгений.
Ответ отправил: Тесленко Евгений Алексеевич (статус: 3-ий класс)
Ответ отправлен: 31.01.2007, 21:33 Оценка за ответ: 4 Комментарий оценки: Мне хотелось бы почитать какой-нибудь учебник о программировании в Word
Отвечает: Елин Виталий
Здравствуйте, Dariola!
попробуй что-то вроде этого:
_____________________________________________
Private Sub CommandButton1_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sSQL As String
Set db = DAO.OpenDatabase("C:sqlsql.mdb")
sSQL = "SELECT * FROM Студенты;"
Set rs = db.OpenRecordset(sSQL)
rs.AddNew
rs.Fields(0) = "1"
rs.Fields(1) = "2"
rs.Fields(2) = "5"
rs.Update
With rs
.MoveFirst
Do While Not .EOF
Debug.Print .Fields(0)
Debug.Print .Fields(1)
Debug.Print .Fields(2)
'…
.MoveNext
Loop
End With
End Sub
-------------------------------------------------
только вместо Debug выводи в документ
_____________
P.S. Источник форум на sql.ru
Ответ отправил: Елин Виталий (статус: 1-ый класс)
Ответ отправлен: 01.02.2007, 02:52
