• На форуме с 3 декабря 2012г.
  • Сообщений: 155
  • Спасибо: 2

Тема: TDMS вылетает

Не могу понять почему не работает. TDMS 4.208 тупо вылетает

Sub BUTTON1_OnClick()
  Dim CreateObjDlg, Object

  Set CreateObjDlg = ThisApplication.Dialogs.CreateObjectDlg
      CreateObjDlg.ObjectDef = "MY OBJECT"
      CreateObjDlg.ParentObject = ThisApplication.Root
      CreateObjDlg.ParentWindow = ThisApplication.hWnd
      CreateObjDlg.ActiveForm = ThisApplication.ObjectDefs("MY OBJECT").Inputforms(0)
  'If  CreateObjDlg.Show = False Then 
   'Exit Sub
  ' Else
  Set CreateDocObject = CreateObjDlg.Object
  'End If
End Sub

Если расскоментировать If то выдает ошибку "Неверный тип объекта"

  • На форуме с 3 декабря 2012г.
  • Сообщений: 155
  • Спасибо: 2

Re: TDMS вылетает

Вопрос снимается. Сам дурак. Доступ к Root был закрыт для этого типа объекта... Все заработало.
Только непонятно почему TDMS падал...