Добрый день уважаемые форумчане прошу вас подсказать помочь разобраться (((( С вашей помощью был создан файл для весовой службы (прошу меня простить, приложить его не могу весит около 500Kb) Данный файл на моем компьютере работает и все хорошо!!! Как только я его выложил в общую папку (для весовой службы)
Цитата
на некоторых компьютерах
при его использовании происходят ошибки вот какие: [img][/img] о чем говорит данная запись:
Цитата
Не удалось загрузить объект, потому что он не доступен на этой машине
и ругается на код на UserForm3 на его активацию [img][/img] Обратился к нашим айтишникам (правда они с макросами не особо дружат) но он именно на том компьютере где происходил подобный сбой переустановил офис, но проблема не решилась... Помогите в разъяснениях подобной проблемы (((( сам код для активации вот: [vba]
Код
Private Sub UserForm_Activate() 'активация выпадающих списков на "UserForm3" при выборе "ComboBox" и "Календаря" Me.ComboBox1.RowSource = "Завод" Me.ComboBox2.RowSource = "Поставщик" Me.ComboBox3.RowSource = "Грузоперевозчик" Me.ComboBox4.RowSource = "ВидМатериала" Me.ComboBox5.RowSource = "Тара" Me.ComboBox6.RowSource = "Номенклатура" Me.ComboBox7.RowSource = "ВидЦемента" Me.ComboBox8.RowSource = "МашиныПривоза" Me.ComboBox9.RowSource = "МестоПриемки" Me.MonthView1.Visible = False 'активация календаря If Me.Tag = "red" Then Call UserForm_Ini 'активация кода для редактирования выбранной строки
End Sub
[/vba] сам код для календаря вот он: [vba]
Код
Private Sub CommandButton6_Click() 'Код для календаря Me.MonthView1.Visible = True Me.MonthView1.Value = Date 'данный код позволяет календарю начинаться с текущего года и даты Me.MonthView1.Refresh 'Set obj = UserForm3.Controls("TextBox1") ' + CStr(CommandButton6.Tag)) 'With UserForm3.MonthView1 ' .Top = TextBox1.Top + 17 ' .Left = obj.Left ' .Visible = True ' .Tag = CommandButton6.Tag 'End With End Sub
Private Sub MonthView1_Dateclick(ByVal DateClicked As Date) 'Код для календаря On Error Resume Next Set obj = UserForm3.Controls("TextBox1" + CStr(MonthView1.Tag)) obj.Text = MonthView1.Value MonthView1.Visible = False End Sub
[/vba]
В самом файле имеется 5 форм
Добрый день уважаемые форумчане прошу вас подсказать помочь разобраться (((( С вашей помощью был создан файл для весовой службы (прошу меня простить, приложить его не могу весит около 500Kb) Данный файл на моем компьютере работает и все хорошо!!! Как только я его выложил в общую папку (для весовой службы)
Цитата
на некоторых компьютерах
при его использовании происходят ошибки вот какие: [img][/img] о чем говорит данная запись:
Цитата
Не удалось загрузить объект, потому что он не доступен на этой машине
и ругается на код на UserForm3 на его активацию [img][/img] Обратился к нашим айтишникам (правда они с макросами не особо дружат) но он именно на том компьютере где происходил подобный сбой переустановил офис, но проблема не решилась... Помогите в разъяснениях подобной проблемы (((( сам код для активации вот: [vba]
Код
Private Sub UserForm_Activate() 'активация выпадающих списков на "UserForm3" при выборе "ComboBox" и "Календаря" Me.ComboBox1.RowSource = "Завод" Me.ComboBox2.RowSource = "Поставщик" Me.ComboBox3.RowSource = "Грузоперевозчик" Me.ComboBox4.RowSource = "ВидМатериала" Me.ComboBox5.RowSource = "Тара" Me.ComboBox6.RowSource = "Номенклатура" Me.ComboBox7.RowSource = "ВидЦемента" Me.ComboBox8.RowSource = "МашиныПривоза" Me.ComboBox9.RowSource = "МестоПриемки" Me.MonthView1.Visible = False 'активация календаря If Me.Tag = "red" Then Call UserForm_Ini 'активация кода для редактирования выбранной строки
End Sub
[/vba] сам код для календаря вот он: [vba]
Код
Private Sub CommandButton6_Click() 'Код для календаря Me.MonthView1.Visible = True Me.MonthView1.Value = Date 'данный код позволяет календарю начинаться с текущего года и даты Me.MonthView1.Refresh 'Set obj = UserForm3.Controls("TextBox1") ' + CStr(CommandButton6.Tag)) 'With UserForm3.MonthView1 ' .Top = TextBox1.Top + 17 ' .Left = obj.Left ' .Visible = True ' .Tag = CommandButton6.Tag 'End With End Sub
Private Sub MonthView1_Dateclick(ByVal DateClicked As Date) 'Код для календаря On Error Resume Next Set obj = UserForm3.Controls("TextBox1" + CStr(MonthView1.Tag)) obj.Text = MonthView1.Value MonthView1.Visible = False End Sub
Нет календаря на этой машине, в сообщении об этом и пишут. Надо секретную библиотеку на компе заиметь. А лучше перейти на самопальный календарь на стандартных элементах формы.
Нет календаря на этой машине, в сообщении об этом и пишут. Надо секретную библиотеку на компе заиметь. А лучше перейти на самопальный календарь на стандартных элементах формы.wild_pig
sboy, wild_pig, Добрый день!!! А как же заиметь данную библиотеку (((( прошлись по References-VBAproject в том списке что включено у меня те же самые галки стоят и на том компьютере. Но самое что интересное (((( на двух других то он открывается и не ругается (((( и плюс еще один мой (в котором также работает)
sboy, wild_pig, Добрый день!!! А как же заиметь данную библиотеку (((( прошлись по References-VBAproject в том списке что включено у меня те же самые галки стоят и на том компьютере. Но самое что интересное (((( на двух других то он открывается и не ругается (((( и плюс еще один мой (в котором также работает)lebensvoll
sboy, спасибо!!! Направил данный материал нашим айтишникам пусть установят потому как не все нам разрешено (((( Но тему пока что не закрывайте (((( если вдруг не поможет то я обязательно отпишусь как за положительный результат так и за отрицательный также...
sboy, спасибо!!! Направил данный материал нашим айтишникам пусть установят потому как не все нам разрешено (((( Но тему пока что не закрывайте (((( если вдруг не поможет то я обязательно отпишусь как за положительный результат так и за отрицательный также...lebensvoll
RAN, я уже не на работе и в стенах дома. Я помню эти ссылки и ознакомился с ними ((( но бегло Но суть в том что на трех компах данные проблемы не возникали (((( а именно на одном из еще одного пользователя данным файлом возникли такие вот трудности ((((. Но самое что интересное что даже если я сам потом вхожу в данный файл возникает та же проблема (((( и он вновь ругается. На всех компах стоит офис 2010 на всех включены все те же галочки что и у меня [img][/img]
RAN, я уже не на работе и в стенах дома. Я помню эти ссылки и ознакомился с ними ((( но бегло Но суть в том что на трех компах данные проблемы не возникали (((( а именно на одном из еще одного пользователя данным файлом возникли такие вот трудности ((((. Но самое что интересное что даже если я сам потом вхожу в данный файл возникает та же проблема (((( и он вновь ругается. На всех компах стоит офис 2010 на всех включены все те же галочки что и у меня [img][/img]lebensvoll
SLAVICK, Доброе утро!!! Я прочел множество тем с данным календарем (также что посоветовал RAN, и _Boroda_, и натыкался часто на то что иной раз в действительности MSCOMCT2.OCX нет 64х ((((( а с 32м при их установке возникают иной раз ошибки ((((. Не знаю сегодня посмотрим направил материал айтишникам чтоб установили MSCOMCT2.OCX потому как у нас нет прав администратора. Но если у нас не решится данная проблема (((( то не могли бы вы подсказать как тогда создать
Цитата
перейти на самопальный календарь на стандартных элементах формы.
SLAVICK, Доброе утро!!! Я прочел множество тем с данным календарем (также что посоветовал RAN, и _Boroda_, и натыкался часто на то что иной раз в действительности MSCOMCT2.OCX нет 64х ((((( а с 32м при их установке возникают иной раз ошибки ((((. Не знаю сегодня посмотрим направил материал айтишникам чтоб установили MSCOMCT2.OCX потому как у нас нет прав администратора. Но если у нас не решится данная проблема (((( то не могли бы вы подсказать как тогда создать
Цитата
перейти на самопальный календарь на стандартных элементах формы.
есть в готовых решениях тут и тут и еще по форуму где-то видел. Сам я календарем не пользуюсь но как-то делал одно задание - там нужно было сделать календарь на стандартных средствах: см в приложении.
Поменял файл - удалил лишний код, чтобы не мешался
есть в готовых решениях тут и тут и еще по форуму где-то видел. Сам я календарем не пользуюсь но как-то делал одно задание - там нужно было сделать календарь на стандартных средствах: см в приложении.
Поменял файл - удалил лишний код, чтобы не мешался
SLAVICK, RAN, а у меня тогда вот такой вот вопрос Почему если я использую одну форму на другом компьютере (добавить запись) КОД НЕ РУГАЕТСЯ А если к примеру я начинаю либо редактировать выбранную строку или же скопировать данные то как раз таки начинает ругаться... Хотя если сам я начинаю его использовать на своем компьютере то у меня все работает я вообще ни чего не понимаю...
SLAVICK, RAN, а у меня тогда вот такой вот вопрос Почему если я использую одну форму на другом компьютере (добавить запись) КОД НЕ РУГАЕТСЯ А если к примеру я начинаю либо редактировать выбранную строку или же скопировать данные то как раз таки начинает ругаться... Хотя если сам я начинаю его использовать на своем компьютере то у меня все работает я вообще ни чего не понимаю...lebensvoll
SLAVICK, программисты (((( какие то не программисты ((( Результатов положительных я так от них и не дождался (((( Я прочел по поводу
Цитата
Option Explicit
и что оно означает я понял. Единственное я не понял в саму форму (UserForm) также следует ее внедрить или же нет??? Только на листы где имеются модули???
SLAVICK, программисты (((( какие то не программисты ((( Результатов положительных я так от них и не дождался (((( Я прочел по поводу
Цитата
Option Explicit
и что оно означает я понял. Единственное я не понял в саму форму (UserForm) также следует ее внедрить или же нет??? Только на листы где имеются модули???lebensvoll
SLAVICK, я вообще не могу понять почему подобное происходит Если я сижу с данным файлом то у меня все работает. Если весовая служба из Люберец начинает его использовать то выпадает вот такая вот ошибка [img][/img] [img][/img] Создавать новый календарь для своих форм (((( я просто не справлюсь ((( прошел по ссылке (программисты) My WebPage скачали (MSCOMCT2.OCX) и при их установке на тех компьютерах где происходят подобные проблемы установили его. Результаты не дали свои плоды (((( Сейчас вставил
Цитата
Option Explicit
в модуль листа где есть у меня КОД VBA [img][/img] Попросил весовую службу попробовать в работе результат ОТРИЦАТЕЛЬНЫЙ
SLAVICK, я вообще не могу понять почему подобное происходит Если я сижу с данным файлом то у меня все работает. Если весовая служба из Люберец начинает его использовать то выпадает вот такая вот ошибка [img][/img] [img][/img] Создавать новый календарь для своих форм (((( я просто не справлюсь ((( прошел по ссылке (программисты) My WebPage скачали (MSCOMCT2.OCX) и при их установке на тех компьютерах где происходят подобные проблемы установили его. Результаты не дали свои плоды (((( Сейчас вставил
Цитата
Option Explicit
в модуль листа где есть у меня КОД VBA [img][/img] Попросил весовую службу попробовать в работе результат ОТРИЦАТЕЛЬНЫЙ lebensvoll
Option Explicit Не исправляет ошибки. В этом режиме - программа сразу указывает на необъявленные переменные, и все. Таким способом не дает Вам запустить Вашу программу с ошибками, которые могут возникнуть в следствии некорректного распознавания типа переменной..
Какая ОС и офис - установлены там где отчет не работает?
Your best options are to create your own ActiveX Control
там же есть еще несколько интересных ссылок.
Повторюсь если если Вы хотите создать отчет, которым будут пользоваться другие - лучше взять самодельный календарь - любой, из здесь предложенных(кстати файл из 11-го поста у них работает?). Иначе все танцы с бубном(если они помогут) придется повторять на каждом компе, где захотят его использовать. И если вдруг поставят новые компы - то все сначала. Оно того стоит? Не проще ли потратить полчаса(Это с запасом), чтобы прикрутить туда готовый календарь?
Option Explicit Не исправляет ошибки. В этом режиме - программа сразу указывает на необъявленные переменные, и все. Таким способом не дает Вам запустить Вашу программу с ошибками, которые могут возникнуть в следствии некорректного распознавания типа переменной..
Какая ОС и офис - установлены там где отчет не работает?
Your best options are to create your own ActiveX Control
там же есть еще несколько интересных ссылок.
Повторюсь если если Вы хотите создать отчет, которым будут пользоваться другие - лучше взять самодельный календарь - любой, из здесь предложенных(кстати файл из 11-го поста у них работает?). Иначе все танцы с бубном(если они помогут) придется повторять на каждом компе, где захотят его использовать. И если вдруг поставят новые компы - то все сначала. Оно того стоит? Не проще ли потратить полчаса(Это с запасом), чтобы прикрутить туда готовый календарь?SLAVICK
SLAVICK, Вот что мне ответил наш программист ((( [img][/img]
Цитата
Не проще ли потратить полчаса(Это с запасом), чтобы прикрутить туда готовый календарь?
Да проще согласен (((( это если когда понимаешь в этих кодах (((( а так мне потребуется еще больше аж в цать ((((. Я попытаюсь то по любому потому как не вижу вариантов (((( раз такое дело.
Цитата
Какая ОС
да 64
Цитата
офис
у всех 2010 Я сейчас посмотрю вашу ссылку и попрошу программистов проделать тогда еще раз кое какие манипуляции
SLAVICK, Вот что мне ответил наш программист ((( [img][/img]
Цитата
Не проще ли потратить полчаса(Это с запасом), чтобы прикрутить туда готовый календарь?
Да проще согласен (((( это если когда понимаешь в этих кодах (((( а так мне потребуется еще больше аж в цать ((((. Я попытаюсь то по любому потому как не вижу вариантов (((( раз такое дело.
Цитата
Какая ОС
да 64
Цитата
офис
у всех 2010 Я сейчас посмотрю вашу ссылку и попрошу программистов проделать тогда еще раз кое какие манипуляцииlebensvoll
и попрошу программистов проделать тогда еще раз кое какие манипуляции
Дело хозяйское, программистов напрягать, но! MonthView, DataTimePicker и тп. нормально не работали, не работают, и работать не будут. Веселых разборок вашим программистам!
и попрошу программистов проделать тогда еще раз кое какие манипуляции
Дело хозяйское, программистов напрягать, но! MonthView, DataTimePicker и тп. нормально не работали, не работают, и работать не будут. Веселых разборок вашим программистам! RAN
RAN, Доброе утро!!! Тогда придется разобраться с кодами от SLAVICK, и применить их к своему файлу других вариантов тогда я не вижу (((( Долгий процесс будет ой как долгий СПАСИБО ОГРОМНОЕ ВАМ ВСЕМ!!!!
RAN, Доброе утро!!! Тогда придется разобраться с кодами от SLAVICK, и применить их к своему файлу других вариантов тогда я не вижу (((( Долгий процесс будет ой как долгий СПАСИБО ОГРОМНОЕ ВАМ ВСЕМ!!!!lebensvoll