Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.06.2009, 15:48   #11
НеВа6464
Пользователь
 
Регистрация: 16.05.2009
Сообщений: 64
По умолчанию

Цитата:
Сообщение от Punker1 Посмотреть сообщение
В стандартной установке ни в 2003 ни в 2007 календаря нет, надо дополнительно в опциях установки Access ставить галку на элементе управления календарь, сам с этой проблемой столкнулся.
А я и Access никогда не устанавливаю, поэтому у меня стандартного календаря нету
НеВа6464 вне форума Ответить с цитированием
Старый 23.06.2009, 05:16   #12
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Цитата:
А я и Access никогда не устанавливаю, поэтому у меня стандартного календаря нету
Я тоже не устанавливаю Access. Стандартный элемент управления "Календарь" можно установить и отдельно.
Скопируйте файл "mscomct2.ocx" в папку "C:\Windows\System32" (для XP) и зарегистрируйте его в реестре.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 07.07.2009, 10:08   #13
Punker1
 
Регистрация: 18.03.2009
Сообщений: 6
По умолчанию

Во вложении необходимый файл библиотеки для колендаря для 2003 и для 2007 офисов, файл для соответствующего офиса надо скопировать в папку с:\windows\system32 для windows xp и vista и в папку с:\winnt\system32 для windows 2000. В текстовом файле текст, который надо ввести в поле команды "Выполнить" в windows, не забыв указать соответствующую папку windows или winnt для соответствующей системы.
Вложения
Тип файла: rar 11 и 12.rar (98.7 Кб, 75 просмотров)
Punker1 вне форума Ответить с цитированием
Старый 14.07.2009, 13:32   #14
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

Календарь отличный. В чистом виде данный календарь есть. Текущая дата, месяц, год , время. В VB грубоватый календарь.
segail вне форума Ответить с цитированием
Старый 14.07.2009, 19:15   #15
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

У вас применяется код открытия календаря
Private Sub CommandButton1_Click(): Me.TextBox1 = Get_Date(Me.TextBox1, Now): End Sub

Мне необходимо чтобы после клика по кнопке Private Sub CommandButton2_Click() (у меня выходит информационное сообщение), после закрытия сообщения должен открыться календарь
segail вне форума Ответить с цитированием
Старый 14.07.2009, 20:03   #16
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Цитата:
после закрытия сообщения должен открыться календарь
Ну и? Открылся календарь. Что дальше?
Куда должна попасть выбранная пользователем дата?
EducatedFool вне форума Ответить с цитированием
Старый 14.07.2009, 20:18   #17
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

Пока ни куда. Там не только дата там целый набор значений. Надо все продумать. В календарь надо будет еще добавить кое какие объекты.
segail вне форума Ответить с цитированием
Старый 14.07.2009, 20:22   #18
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Попробуй так:
Код:
Private Sub CommandButton2_Click()
    MsgBox "Посмотрите на мой календарь", vbInformation, "segail"
    Дата = Get_Date(Now)
End Sub
EducatedFool вне форума Ответить с цитированием
Старый 14.07.2009, 20:29   #19
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

Это конечная часть кода. Что то не то. Не открывается


Private Sub CommandButton2_Click()
................................... .....................

Application.Goto Reference:="К_Сброс"
MsgBox " Данные сохранены ", 64, "Сохранение данных"
Дата = Get_Date(Now)
End If.
End Sub

Последний раз редактировалось segail; 14.07.2009 в 21:00.
segail вне форума Ответить с цитированием
Старый 14.07.2009, 20:31   #20
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

Кнопка открытия находится на другой форме. Сообщение уже есть. Второго не надо

Что вместо даты поставить UserForm2 ? Не подходит.
Me.Date = Get_Date(Now) тоже не подходит. Не знаю

Последний раз редактировалось segail; 14.07.2009 в 22:35.
segail вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Рамка на форме... Deight Общие вопросы Delphi 6 30.12.2008 12:19
Фопрос по форме. yura-cat Помощь студентам 1 15.10.2008 20:02
Кнопки на форме forzi Помощь студентам 5 10.05.2008 11:56
Gif на форме SnakeMan Помощь студентам 3 04.04.2008 15:05
Gif'ы на форме GAGARIN-NEW Общие вопросы Delphi 3 11.11.2007 11:22