VBNet - Форум - Ошибка в MS Access 2003!

Вопрос: Ошибка в MS Access 2003! Добавлено: 05.10.08 16:34

Автор вопроса: fouks

Здравствуйте. Помогите решить небольшую проблему: вчера создал в MS Access 2007 небольшую базу данных с управлением через формы.
Сегодня решил проверить ее на работоспособность в предыдущих версиях MS Access. И тут, собственно, и вылезла проблемка: в форме при нажатии на кнопку "Добавить запись в таблицу" (код-событие нажатия кнопки такой:

Option Explicit
Option Compare Database

Private Sub Button1_Click()
'Добавляет одну новую запись
Dim rst As Recordset
On Error GoTo AddOneNewRecordErr

    Set rst = CurrentDb.OpenRecordset("tblNazv", dbOpenDynaset)
    With rst
        .AddNew
        'Заполнение полей значениями
        !AREA1 = AREA1.Value
        .Update
        DoCmd.Close
    End With

AddOneNewRecordEnd:
    On Error Resume Next
    rst.Close
    Set rst = Nothing
    Exit Sub

AddOneNewRecordErr:
    MsgBox "Процедура [Обновления записей] привела к ошибке:" & vbCrLf & _
    Err.Description & vbCrLf & " Err#" & Err.Number, vbCritical
    Resume AddOneNewRecordEnd
End Sub

Появляется ошибка: "Процедура [Обновление записей] привела к ошибке: Type mismatch Err#13". В MS Access 2007 все работало отлично.
Помогите решить эту проблему: подскажите, что нужно исправить в коде, чтобы процедура работала в предыдущих версиях MS Access (ниже 2007).
Заранее спасибо!
Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: Rodion Вопросов: 0 Ответов: 1	Профиль \| \| #1	Добавлено: 06.10.08 23:25
	dim rst DAO.recordset и подключить Micrisoft DAO 3.6 object library Ответить

Номер ответа: 2 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860	Web-сайт: mc-black.narod.ru/dzp.htm Профиль \| \| #2	Добавлено: 07.10.08 09:22
	Ошибка типа данных. Используй при разработке библиотеку ADO старых версий, которые шли с более старыми офисами. Или DAO, как тебе советует Rodion. Ответить

Страница: 1 |