Выдает ошибку 3276 при перелинковке...

Понедельник, 17 Февраля 2014 г. 16:14 + в цитатник

Всем доброго дня, есть фрагмент кода, который в 2003 access-е, работает и все норм, суть в том что если не находится таблица с базой, выдается окно диалога, и указывается файл с таблицами, и затем связи перелинкуются, и открывается скрытая форма, а вот на 2010 access-е, выдает ошибку "3276 Invalid database object reference Недопустимая ссылка на объект Database" на открытии скрытой формы после перелинковки.
У кого нибудь такая проблема возникала, спасибо.

Private Sub Form_Open(Cancel As Integer)
Application.RefreshTitleBar
Call HideMenu
   
If CheckLinks Then
   DoCmd.OpenForm "f_Access", , , , , acHidden 'скрытая форма для поддержки коннекта.
   Call CreateMenu(1)
Else
   If Not RelinkTables Then
      MsgBox "Укажите файл БД"
      DoCmd.Quit
   Else
      DoCmd.OpenForm "F_Access", , , , , acHidden 'скрытая форма для поддержки коннекта.
      Call CreateMenu(1)
   End If
End If
Cancel = True
End Sub