Чё-то какие-то заморочки пошли с VBA... сперва с Access теперь...

← →
Knight © (2007-04-11 14:35) [0]

... в другой организации с Excel. Кто-нить знает откуда берётся dtEndDate? Ругается, что библиотеки такой нет откуда это взять...Хотя там вроде на Office2000, а щас там 2002, мож от этого зависит?

← →
Сергей М. © (2007-04-11 14:39) [1]

> Кто-нить знает откуда берётся dtEndDate?

Я знаю.
Оно валится с Луны)

← →
Knight © (2007-04-11 14:41) [2]

> [1] Сергей М. © (11.04.07 14:39)
> Я знаю.
> Оно валится с Луны)

Не до шуток.. там народу надо отчёт заполнять, а после переустановки систему вот такая казява вылезла.. сидят там нервничают, а я тут яндекс копаю, т.к. сам с VBA не работал.. точнее начинаю, но пока ещё до такой степени озарения не дошёл :(

← →
sniknik © (2007-04-11 14:42) [3]

может макросы отключили?... больно похоже на свою переменную откудато, ну во всяком случае не мелкософская, они польской нотацией никогда не "страдали"...

← →
umbra © (2007-04-11 14:44) [4]

> откуда это взять

что "ЭТО"? dtEndDate - это имя чего? переменной, объекта, контрола?

← →
Knight © (2007-04-11 14:44) [5]

Безопастность макросов ниже всякого плинтуса установлена.

← →
Knight © (2007-04-11 14:45) [6]

> [4] umbra © (11.04.07 14:44)
> что "ЭТО"? dtEndDate - это имя чего? переменной, объекта,
> контрола?

Есть такой dtEndDate.Value... можъ объект, мож ещё чего.

← →
sniknik © (2007-04-11 14:49) [7]

> Безопастность макросов ниже всякого плинтуса установлена.
сразу, или сначала была высокая и нажали кнопочку "удалить макрос из документа", а потом только понизили?

← →
umbra © (2007-04-11 14:49) [8]

проект закрыт от просмотра?

← →
Сергей М. © (2007-04-11 14:50) [9]

> Есть такой dtEndDate.Value... можъ объект, мож ещё чего.

Ты опух, да ?)

Кому как не тебе самому виден код макроса)

← →
Игорь Шевченко © (2007-04-11 14:51) [10]

write-only user

← →
Knight © (2007-04-11 14:52) [11]

Думал мож что стандартное... просто какая-то библиотека от проекта отвалилась... Раз нет, пойду поразбираюсь, 2000 поставлю... может пойдёт, если нет, то пороюсь сам и с собой скопирую. Щас перед глазами нет, да и Оффис у меня 2007 :)

← →
Knight © (2007-04-11 14:54) [12]

> [10] Игорь Шевченко © (11.04.07 14:51)
> write-only user

Это про меня или про Excel? :)

← →
umbra © (2007-04-11 14:56) [13]

Испробую телепатор :):
в редакторе кода (Альт-Ф11) в меню Сервис\Ссылки поставить птицу возле надписи Microsoft forms object library

← →
Knight © (2007-04-11 14:59) [14]

> [13] umbra © (11.04.07 14:56)
> Испробую телепатор :):
> в редакторе кода (Альт-Ф11) в меню Сервис\Ссылки поставить
> птицу возле надписи Microsoft forms object library

Проверю :)

← →
Knight © (2007-04-11 19:39) [15]

> [13] umbra © (11.04.07 14:56)
> птицу возле надписи Microsoft forms object library

Это включено&#133

← →
Knight © (2007-04-11 19:39) [16]

> [13] umbra © (11.04.07 14:56)
> птицу возле надписи Microsoft forms object library

Это включено&#133

← →
Knight © (2007-04-11 19:55) [17]

При нажатии пимпочки в Excel&#133 идёт ображение к этому
Sub ReestrShow() frmReestr.Show End Sub

Затем идёт переход сюда

-> Private Sub UserForm_Initialize() " Dangerous command&#133 On Error Resume Next RefreshBuyer RefreshSeller cmbBuyer.ListIndex = 0 On Error Resume Next "Set up initial values mp.Value = 0 dtEndDate.Enabled = False txtNNN.text = getNNN txtXXX.text = VBA.Format(WorksheetFunction.Max(Sheets(optRegistrySheet).Range(«E:E&raquo ;)) + 1, «0000») txtNum.text = WorksheetFunction.Max(Sheets(optRegistrySheet).Range(«A:A»)) + 1

Жёлтая штучка стоит на там где  > и выделен селектом жирный&#133 и ругается, что вариэйбл не определён. В других офисах ругается, что не найдена библиотека где сие определено, в принципе смысл приметрно один. Как найти библиотеку в которой эта шляпа определена? В Delphi хоть поиск по юнитам можно сделать, а тут сплошные DLL :(

← →
Knight © (2007-04-11 19:56) [18]

Причём до переустановки операционки всё работало.

← →
Knight © (2007-04-11 20:12) [19]

Если эту строку заремить, то он упирается дальше в

dtRegistration.Value = VBA.Date

У всех префикс dt мож DateTime какой-нить?

← →
Knight © (2007-04-11 20:17) [20]

Если в проекте использовалась какая-нибудь библиотека, а вдруг она исчезла&#133 то при открытии проекта она и из списка просто пропадает, и он при этом молчит, что ему чего-то не хватает? Так?

> On Error Resume Next

Закомментируйте эту строку, может быть сообщение об ошибке будет более вразумительным.
Похоже, использовался какой-то контрол для выставления какой-то даты. В новой операционке его не оказалось, значит, скорее всего это нестандартный контрол.

> Как найти библиотеку в которой эта шляпа определена?

Надо подключить к проекту библиотеку Microsoft Visual Basic for Applications Extensibility, в редакторе кода нажать Ctrl-G и выполнить следующий макрос

Sub enumbrokenrefs() Dim refer As Reference For Each refer In ThisWorkbook.VBProject.References If refer.IsBroken Then Debug.Print refer.FullPath End If Next End Sub

Нашёл&#133

Ни одного сбоя&#133 по Ref&#133

Подскажите ещё чё-нить&#133

> -> Private Sub UserForm_Initialize()

Судя по всему dtEndDate - какой-то Edit на форме.
Форма есть?

> [27] Наиль © (11.04.07 22:41)

Форма есть, но никаких подобных элементов там нет&#133 завтра ещё оригиналы на компе в той органицазии поищу, мож там какие установочные файлы есть, т.к. на форме явно чего-то не хватает. До завтра тему можно заморозить :)

Всё.. проблема решена. В одной из подпапок нашёл ярлык ссылающийся ня папку на другом диске... в которой сразу упёрся глазами в файл ExcelUpd. Запустил и всё заработало. dtEndDate и подобные это несколько контролов выбора и отображения ДатыВремени.

Спасибо всем кто принял участие и показал куда рыть :)

Чё-то какие-то заморочки пошли с VBA... сперва с Access теперь... Найти похожие ветки