ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как изменить значения в календаре???
10 сообщений из 10, страница 1 из 1
Как изменить значения в календаре???
    #32310815
Ingvarwolf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ingvarwolf
Участник
Использую на форме календарь, MSCAL.Calendar.7 который. Если добавить на форму кнопку и на ее нажатие сделать:
Код: plaintext
1.
2.
3.
CalendarObj.Day =  10 
CalendarObj.Month =  12 
CalendarObj.Year =  1999

то все отрабатывает как надо и дата в календаре меняется. Но мне надо чтобы значение дата бралось из EditBox-а. И вот такой вот код:
Код: plaintext
1.
2.
3.
4.
dt = CDate(Application.Forms( "Repairs" ).ActiveControl) 'Как раз этот самый EditBox
CalendarObj.Day = CInt(Day(dt))
CalendarObj.Month = CInt(Month(dt))
CalendarObj.Year = CInt(Year(dt))

не работает. Я проверял по шагам — значения функциями (CInt(Day(dt)) и др.) вычисляются правильно, но дата в календаре не выставляется... Кто-нибудь может объяснить мне что не так?
Спасибо.
...
Рейтинг: 0 / 0
30.10.2003, 17:22
| Ответить | Цитировать | Написать  
Как изменить значения в календаре???
    #32310823
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
У Каледаря есть такое свойство Value

CalendarObj.Value = Nz(CDate(Application.Forms("Repairs").ActiveControl).Value, Date)
==
вставил Nz на всякий случай
...
Рейтинг: 0 / 0
30.10.2003, 17:26
| Ответить | Цитировать | Написать  
Как изменить значения в календаре???
    #32310827
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
Блин, Описался: либо CDate лишний либо Nz
Просто надо не забыдь отработать ситуацию с пыстым полем
...
Рейтинг: 0 / 0
30.10.2003, 17:27
| Ответить | Цитировать | Написать  
Как изменить значения в календаре???
    #32310845
Ingvarwolf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ingvarwolf
Участник
Senin Viktor писал:CalendarObj.Value = Nz(CDate(Application.Forms("Repairs").ActiveControl).Value, Date)
Не работает зараза... Ни так, ни без Nz, ни без CDate...

А может есть какой-то другой компонент календарь? Что бы с этим не трахаться...
...
Рейтинг: 0 / 0
30.10.2003, 17:33
| Ответить | Цитировать | Написать  
Как изменить значения в календаре???
    #32310859
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hummer
Участник
Тут можно посмотреть.
Не знаю, как у них с передачей значений календарю, но в первом можно реализовать, он сделан на основе формы без ActiveX - смотрится нормально.
...
Рейтинг: 0 / 0
30.10.2003, 17:38
| Ответить | Цитировать | Написать  
Как изменить значения в календаре???
    #32310866
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
>Не работает зараза... Ни так, ни без Nz, ни без CDate

Должно работать. Ты так делаешь?

dt = CDate(Application.Forms("Repairs").ActiveControl) 'Как раз этот самый EditBox
debug.print dt ' Дата береться?
CalendarObj.Value =dt
==
М.б. проблема в MSCAL.Calendar.7? Это что - 95 Акес?
Ибо в 97 - MSCAL.Calendar.8, в 2000 - MSCAL.Calendar.9, в 2002 -MSCAL.Calendar.10
Посмотри объектную модель - естьли там вообще Value?
...
Рейтинг: 0 / 0
30.10.2003, 17:43
| Ответить | Цитировать | Написать  
Как изменить значения в календаре???
    #32310880
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
Сорри, наврал.
В 97 - MSCAL.Calendar.7
в 2000 MSCAL.Calendar.8
...
Рейтинг: 0 / 0
30.10.2003, 17:51
| Ответить | Цитировать | Написать  
Как изменить значения в календаре???
    #32310881
Фотография TatianaT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TatianaT
Участник
есть в этом календаре глюк, это точно
я его обошла так: скрыла год и месяц календаря и прилепила свои комбобоксы для выбора года и месяца, а число этот гад сьедает нормально
и на апдейт календаря ему подсовывала:

Private Sub ActXCalendar_AfterUpdate()
On Error GoTo ErrorHandler
Me!ActXCalendar.month = Me!cmbMonth.Column(1)
Me!ActXCalendar.year = Me!cmbYear
Me!txtDate = Me!ActXCalendar.Value
Me!ListDats.Requery

ErrorHandler:
Exit Sub
End Sub
вот так это работает и в 97(писала ещё в А97, W98) и в 2000 и в 2002
...
Рейтинг: 0 / 0
30.10.2003, 17:51
| Ответить | Цитировать | Написать  
Как изменить значения в календаре???
    #32310887
Ingvarwolf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ingvarwolf
Участник
2 Senin Viktor:
Именно так я и делаю. И debug.print выводит дату правильную.
Насчет Access — у меня 97, и когда я вставлял календарь, то в списке он назывался "Элемент управления календарь 8.0", а вот в свойствах его было написано MSCAL.Calendar.7
...
Рейтинг: 0 / 0
30.10.2003, 17:54
| Ответить | Цитировать | Написать  
Как изменить значения в календаре???
    #32345741
SM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SM
Участник
Действительно, столкнулся с той же проблемой.
Ни изменение Valueб ни day/Month/year не помогают.

Очень странно.
...
Рейтинг: 0 / 0
07.12.2003, 10:12
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как изменить значения в календаре???
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=1710&tid=1677794]:
 0ms
get settings:
 10ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 53ms
get topic data:
 13ms
get forum data:
 4ms
get page messages:
 55ms
get tp. blocked users:
 2ms
others: 247ms
total:  413ms
созд. / загр.: 413ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]