Найденое решение - откат MSComCt2.OCX до версии 2007 года (последняя из найденых на компах)
Как проявляется в работе:
объявляем
- Код: Выделить всё
Dim odtpx As MSComCtl2.DTPicker
Раньше работало так:
- Код: Выделить всё
Set oDtpX = Controls.Add("MSComCtl2.DTPicker", "dtpX1")
Пробую еще так:
- Код: Выделить всё
Licenses.Add "MSComCtl2.DTPicker"
Set odtpx = Controls.Add("MSComCtl2.DTPicker", "dtpX2")
С новым OCX в режиме отладки и runtime ломаемся с run time error '13' Type Mismatch
Пробую еще так:
- Код: Выделить всё
Licenses.Add "MSComCtl2.DTPicker", "iplpwpnippopupiivjrioppisjsjlpiiokuj"
Set odtpx = Controls.Add("MSComCtl2.DTPicker", "dtpX3")
C старым ругается, что не надо для нелицензируемого контрола добавлять лицензию.
С новым OCX в режиме отладки с run time error '13' Type Mismatch,
в режиме runtime валимся с ошибкой Run Time Error '747' No disine-time license information found foe control 'MSComCtl2.DTPicker'. Contact the vendor for control 'MSComCtl2.DTPicker' to obtain a disine-time license.
У меня одного такие грабли, или еще кто то наступил?