Помощь по VBA (Access)

:)

Хотя врядли это поможет:

Option Compare Database

Private Sub Кнопка0_Click()

On Error GoTo Err_Кнопка0_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Данные"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка0_Click:

Exit Sub

Err_Кнопка0_Click:

MsgBox Err.Description

Resume Exit_Кнопка0_Click

End Sub

Private Sub Кнопка1_Click()

On Error GoTo Err_Кнопка1_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1050) & ChrW(1086) & ChrW(1084) & ChrW(1072) & ChrW(1085) & ChrW(1076) & ChrW(1080) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1082) & ChrW(1072)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка1_Click:

Exit Sub

Err_Кнопка1_Click:

MsgBox Err.Description

Resume Exit_Кнопка1_Click

End Sub

Private Sub Кнопка4_Click()

DoCmd.Quit acQuitSaveAll

End Sub

Это код кнопочной панели который был сгенерирован Access. На первой кнопке я поменял параметр stDocName на "Данные" она стала вызывать нужную форму. При попытке вызвать следующую форму вызывает вышеуказанную ошибку.

Ваши комментарии в студию.

Могу добавить, что эта база перестала работать после переустановки системы. каких баз не хватает не знаю, я установил какие у меня были (MS Visual FoxPro, Visual Basic, C++).