Сделал Б.Д. на Access2000 перевел её в формат Access97 - и все, база перестала работать. Некоторые ошибки уже исправил, а некоторые просто не понимаю. Я раньше с Ac97 не работал, а теперь понадобилось. Подскажите, пожалуйста, что нужно исправить, только не отсылайте к Help - я его уже два дня читаю, но с ошибками не смог разобраться.

Жирным текстом пометил то, на что Access ругается.

1.Ошибка компиляции переменная не определена:
Private Function CloseForm()
On Error Resume Next
If IsDate(mAffectedDate) Then
Call SaveSetting(left( CurrentProject .Name, &_
Len(CurrentProject.Name) - 4), "datepicker", "LastEntredDate", mAffectedDate)
mCallingControl.Value = mAffectedDate
End If
DoCmd.Close acForm, Me.Name
End Function

2.Ошибка компиляции, ошибка синтаксиса:
Public Sub SubClassHookForm()
m_PrevWndProc = SetWindowLong(Access.hWndAccessApp, &_
GWL_WNDPROC, AddressOf WindowProc)
End Sub

3.Ошибка компиляции метод или компонент данных не найден:
Private Sub наименование_AfterUpdate()
Dim intCurrent As Integer
поле.Requery
intCurrent = Me.CurrentRecord
Me.Requery
Me. Recordset .MoveLast
Me![поле].SetFocus
End Sub

4.Ошибка компиляции метод или компонент данных не найден:
Private Sub Combo49_AfterUpdate()
Me.Recordset.FindFirst "поле_с_кодом = " & Combo49
End Sub

5.Ошибка выполнения 438 объект не поддерживает это свойство или метод:
Private Sub btSelectFile_Click()
Me.dlgMain.DefaultExt = "xls"
Me.dlgMain.Filter = "*.xls"
Me.dlgMain.FilterIndex = 1
Me.dlgMain.FileName = Me!flPath
Me.dlgMain.ShowSave
Me.flPath = Me.dlgMain.FileName
End Sub

6.Ошибка компиляции переменная не определена:
Private Sub btSave_Click()
'On Error Resume Next
Dim xlsObject As Object
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9 ,&_
"запрос", Me.flPath, , Me.flSheet
If Me.flOpen Then
Set xlsObject = CreateObject("Excel.Application")
xlsObject.Workbooks.Open Me.flPath
xlsObject.Visible = True
MsgBox "Экспорт данных в Excel удачен", vbOKOnly, ""
DoCmd.Close acForm, "текущая_форма"
Else
MsgBox " Экспорт данных в Excel удачен ", vbOKOnly, ""
DoCmd.Close
End If
End Sub

Хотя бы намекните, где копать, чтобы исправить ошибки.
Буду ОЧЕНЬ признателен за помощь.

Неужели никто мне не поможет ??? :-(

2 АлексейК:
А где его взять - рантайм?
Кстати, 1 и 2 ошибка связана с календариком, взятым в Вашего сайта. Очень грамотно сделано - мне понравилось (Приятно, когда есть сайты с которых можно скачать красиво сделанные вещи) :-)

2 Allll:
Спасибо.

Спасибо всем большое, а что скажут многоуважаемые гуру по поводу п.
2. и п. 5?

Скажите кто-нить внятно, пожалуйста, что за зверь такой "рантайм" и где его найти? (Если имеется в виду подключение библиотеки Microsoft Scripting Runtime - файл - scrrun.dll , то эта библиотека у меня и так подключена).

:-)

Спасибо.
А п.2 что, никто не знает?

Ой, извиняюсь, просмотрел, что мне ответили на п.2. (буду пробовать).
А что скажете по п.5 - DefaultExt ???
:-)

В продолжении темы:
7.
Private Sub Form_Close()
On Error Resume Next
CallByName mCallingForm, mCallingControl.Name & "_AfterUpdate", VbMethod
Set mCallingControl = Nothing
Set mCallingForm = Nothing
Set mCurrentControl = Nothing
Set mPreviousControl = Nothing
End Sub

Подскажите, пожалуйста, если не сложно.

Всем большое спасибо, п.7 - обошел другим методом.

2 ВС:
Вопрос в том, что в Ac2000 работает, а когда перевел в Ac97 - перестало работать.

По поводу п.5:
Private Sub btSelectFile_Click()
Me. dlgMain .DefaultExt = "xls"
Me.dlgMain.Filter = "*.xls"
Me.dlgMain.FilterIndex = 1
Me.dlgMain.FileName = Me!flPath
Me.dlgMain.ShowSave
Me.flPath = Me.dlgMain.FileName
End Sub

2 АлексейК:
заремарить попробовал - оказалось, очень даже нужно, без этого не работает
:-(

Забыл сказать, что п.5 это кнопка, которая открывает обзор папок(т.е. проводник), просто в Ac97, видимо, это по-другому делается, только как - не знаю. Подскажите, PLEASE !!!

2 ВС:
Спасибо, конечно за ссылку, только я спросил: "как перевести команды из п. 5 в Ac97, чтобы все работало". А то, что конвертер не лопатит код, при переводе в предидущие версии - так это я и так знаю. И прошу помощи, т.к. в Ac97 не работал.
:-)