ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вопрос по ActiveX Calendar MSCAL.Calendar.7
25 сообщений из 25, страница 1 из 1
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32803174
GliderAlex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GliderAlex
Гость
У меня есть календарь который служит формой вызова суточных отчётов.
Т.е. при нажатии на дату(например 10.11.04) вызывается форма с отчётами за эту дату. Но после того как форму посмотрели и закрыли, эта дата не активна, т.е. если нужно зайти на неё ещё раз приходится открывать другую дату(например 11.11.04), закрывать, а потом идти обратно на 10.11.04... Как можно этого избежать?
Код вызова вот
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private Sub Calendar0_AfterUpdate()
    Dim stDocName As String
    Dim stLinkCriteria As String
   
    stDocName = "frm_CalDate"
    stLinkCriteria = "[Date]=" & Format(Me.Calendar0, "'yyyymmdd'")
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    
End Sub

Private Sub Calendar0_GotFocus()
End Sub
...
Рейтинг: 0 / 0
29.11.2004, 09:34:33
| Ответить | Цитировать | Написать  
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32803289
Galustov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Galustov
Гость
добрый день
просто перенеси код на событие Click
а ещё для пущей наглядности можно в свойствах поставить ValueIsNull=True и при обновлении делать me.calendar0.value=null
только что у себя попробовал, но правда всё равно остаётся квадратик на последней нажатой дате
...
Рейтинг: 0 / 0
29.11.2004, 10:27:56
| Ответить | Цитировать | Написать  
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32803465
GliderAlex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GliderAlex
Гость
Всё равно не нажимается( Приходится сперва на другую дату переходить
[
SRC vba]
Private Sub Calendar0_AfterUpdate()
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frm_CalDate"
stLinkCriteria = "[Date]=" & Format(Me.Calendar0, "'yyyymmdd'")
DoCmd.OpenForm stDocName, , , stLinkCriteria
Me.Calendar0.Value = Null

End Sub

'Private Sub Calendar0_GotFocus()
'MsgBox "Ïîòåðåí ôîêóñ"
End Sub
[/SRC]
...
Рейтинг: 0 / 0
29.11.2004, 11:24:19
| Ответить | Цитировать | Написать  
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32803496
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
Вызывать отчет сразу по нажатии на дату - не хорошо потому, что вдруг дата была выбрана случайно. Поэтому, лучше запусакть отчет дополнительной кнопкой или двойным кликом по дете. Это и будет решением проблемы!
...
Рейтинг: 0 / 0
29.11.2004, 11:32:38
| Ответить | Цитировать | Написать  
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32803523
Galustov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Galustov
Гость
GliderAlexВсё равно не нажимается( Приходится сперва на другую дату переходить
[
SRC vba]
Private Sub Calendar0_AfterUpdate()

[/SRC]

А должно быть
SRC vba]
Private Sub Calendar0_Click()

[/SRC][/quot]
...
Рейтинг: 0 / 0
29.11.2004, 11:38:57
| Ответить | Цитировать | Написать  
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32803529
Galustov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Galustov
Гость
Rivkin DmitryВызывать отчет сразу по нажатии на дату - не хорошо потому, что вдруг дата была выбрана случайно. Поэтому, лучше запусакть отчет дополнительной кнопкой или двойным кликом по дете. Это и будет решением проблемы!

Да это лучше, но если человек просит сказать, как сделать в его варианте, надо ему ответить (я так думаю )
...
Рейтинг: 0 / 0
29.11.2004, 11:40:39
| Ответить | Цитировать | Написать  
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32803563
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
Galustov Rivkin DmitryВызывать отчет сразу по нажатии на дату - не хорошо потому, что вдруг дата была выбрана случайно. Поэтому, лучше запусакть отчет дополнительной кнопкой или двойным кликом по дете. Это и будет решением проблемы!

Да это лучше, но если человек просит сказать, как сделать в его варианте, надо ему ответить (я так думаю )

1.Пользоваться календарем Адексея Козина или другими календарями - ищи по форуму.
2.Сегодня ему нужен отчет на одну дату, а завтра ему понадобится вывести отчет за некоторый период. Классно будет вылетать отчет сначала на период от первой выбранной даты до второй по-умолчанию и только после закрытия и выбора следующей даты - отчет по выбранному периоду. А если при этом клиент дважды ошибся при выборе первой даты и второй, то можно будет представить количество произнесенных им слов, начинающихся на гагол "мать"
...
Рейтинг: 0 / 0
29.11.2004, 11:52:09
| Ответить | Цитировать | Написать  
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32803687
GliderAlex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GliderAlex
Гость
При попытке написать
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Calendar0_Click()

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frm_CalDate"
stLinkCriteria = "[Date]=" & Format(Me.Calendar0, "'yyyymmdd'")
DoCmd.OpenForm stDocName, , , stLinkCriteria
Me.Calendar0.Value = Null

End Sub
Первый раз форму открывае,но после второго нажатия на кнопку(форму уже прикрыл) пишет
Недопустимая инструкция SQL Проверьте фильтр для сервера в источнике записей формы...
...
Рейтинг: 0 / 0
29.11.2004, 12:25:29
| Ответить | Цитировать | Написать  
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32803697
GliderAlex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GliderAlex
Гость
А так же вылетает в редактор VB при колике мыши в любом другом месте календаря))
...
Рейтинг: 0 / 0
29.11.2004, 12:27:48
| Ответить | Цитировать | Написать  
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32805020
GliderAlex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GliderAlex
Гость
Так что, в этом календаре нет такой возможности что ли?
...
Рейтинг: 0 / 0
30.11.2004, 08:36:03
| Ответить | Цитировать | Написать  
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32805024
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
GliderAlexТак что, в этом календаре нет такой возможности что ли?

Какой возможности?
...
Рейтинг: 0 / 0
30.11.2004, 08:39:17
| Ответить | Цитировать | Написать  
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32805030
GliderAlex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GliderAlex
Гость
Я уже описывал проблему...
У меня есть календарь который служит формой вызова суточных отчётов.
Т.е. при нажатии на дату(например 10.11.04) вызывается форма с отчётами за эту дату. Но после того как форму посмотрели и закрыли, эта дата не активна, т.е. если нужно зайти на неё ещё раз приходится открывать другую дату(например 11.11.04), закрывать, а потом идти обратно на 10.11.04... Как можно этого избежать?
...
Рейтинг: 0 / 0
30.11.2004, 08:44:03
| Ответить | Цитировать | Написать  
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32805033
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
Так я ведь уже отвечал: см. 11:32 вчера. Чем не устраивает?
...
Рейтинг: 0 / 0
30.11.2004, 08:49:01
| Ответить | Цитировать | Написать  
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32805042
GliderAlex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GliderAlex
Гость
А почему нельзя с одного нажатия это сделать?
Ну а если нельзя, то где этот двойной клик прописывать, извини за такие вопросы но я пока ещё не слишком силён в VB)
...
Рейтинг: 0 / 0
30.11.2004, 08:56:33
| Ответить | Цитировать | Написать  
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32805054
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
В модуле формы календаря в левом комбобоксе выбираешь имя своего контрола календвря (например ActiveXCtl0), в правом комбобоксе выбираешь DblClick. Получаешь заготовку процедуры в которой прописываешь свое открытие отчета.
Но лучше все же (по-моему) дополнительную кнопку поставить. Оно и нагляднее и дешевле - вместо двойного клика тоько одно нажатие
...
Рейтинг: 0 / 0
30.11.2004, 09:09:11
| Ответить | Цитировать | Написать  
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32805068
GliderAlex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GliderAlex
Гость
А при DblClick если пользователь два раза нажимает на календарь(не на день, а в любом месте календаря) то тоже вызывает событие и пишет ошибку, т.к. дата получается не заданной
...
Рейтинг: 0 / 0
30.11.2004, 09:15:48
| Ответить | Цитировать | Написать  
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32805070
GliderAlex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GliderAlex
Гость
Кнопку не хотелось бы, слишком много кнопок будет(( Некрасиво да и форма перегруженна...
...
Рейтинг: 0 / 0
30.11.2004, 09:16:59
| Ответить | Цитировать | Написать  
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32805085
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
Чтобы ошибка не вылезала, прежде чем открывать отчет, проверь, выбрана ли дата. И если не выбрана - дай сообщение.
А что вообще не получается?
Я сделал так и все работает:

Private Sub Calendar0_Click()
MsgBox "tttt"

Me.Calendar0.Value = Null

End Sub
...
Рейтинг: 0 / 0
30.11.2004, 09:27:45
| Ответить | Цитировать | Написать  
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32805101
GliderAlex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GliderAlex
Гость
А ты попробуй что бы вместо твоих ttt дату выводил и всё поймёшь что я имею в виду)))
...
Рейтинг: 0 / 0
30.11.2004, 09:34:56
| Ответить | Цитировать | Написать  
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32805108
GliderAlex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GliderAlex
Гость
ttt он выводит если в любом месте тыкаешь календаря, и не обязательно на дату...
А если форму вызываешь то после её закрытия эту же дату вызвать нельзя(

Попробуй формочку с полем сделать и вызывать её с передачей даты.
...
Рейтинг: 0 / 0
30.11.2004, 09:37:26
| Ответить | Цитировать | Написать  
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32805110
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
GliderAlexА ты попробуй что бы вместо твоих ttt дату выводил и всё поймёшь что я имею в виду)))

Пожалуйста:
If Not IsNull(Me.Calendar0) Then _
MsgBox Format(Me.Calendar0, "dd/mm/yyyy")
...
Рейтинг: 0 / 0
30.11.2004, 09:38:28
| Ответить | Цитировать | Написать  
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32805128
GliderAlex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GliderAlex
Гость
Вот так вот заработало)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub Calendar0_DblClick()

Dim stDocName As String
Dim stLinkCriteria As String
If Not IsNull(Me.Calendar0) Then _
    stDocName = "frm_CalDate"
    stLinkCriteria = "[Date]=" & Format(Me.Calendar0, "'yyyymmdd'")
    DoCmd.OpenForm stDocName, , , stLinkCriteria
   
End Sub

Пока никаких траблов не нашёл...
Спасибо)
...
Рейтинг: 0 / 0
30.11.2004, 09:50:02
| Ответить | Цитировать | Написать  
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32805133
GliderAlex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GliderAlex
Гость
Кстати а что за подчёркивание? вот это

Код: plaintext
 Then _
Это что, вместо Else?
...
Рейтинг: 0 / 0
30.11.2004, 09:51:26
| Ответить | Цитировать | Написать  
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32805162
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
GliderAlexКстати а что за подчёркивание? вот это

Код: plaintext
 Then _
Это что, вместо Else?

Не может быть, чтобы заработало!
Вот это подчеркивание - перенос строки! (См хелп)

Твой код равносилен такому:

Private Sub Calendar0_DblClick()

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Dim stDocName As String
Dim stLinkCriteria As String
If Not IsNull(Me.Calendar0) Then stDocName = "frm_CalDate"

stLinkCriteria = "[Date]=" & Format(Me.Calendar0, "'yyyymmdd'")
DoCmd.OpenForm stDocName, , , stLinkCriteria
   
End Sub

и он ничего не делает!
Должно быть:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub Calendar0_DblClick()

Dim stDocName As String
Dim stLinkCriteria As String
If Not IsNull(Me.Calendar0) Then 
    stDocName = "frm_CalDate"
    stLinkCriteria = "[Date]=" & Format(Me.Calendar0, "'yyyymmdd'")
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End If

End Sub

Ребята, читайте источники!
...
Рейтинг: 0 / 0
30.11.2004, 10:09:54
| Ответить | Цитировать | Написать  
Вопрос по ActiveX Calendar MSCAL.Calendar.7
    #32805170
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
Вообще-то я - жадный на код и я бы сократил так:

Код: plaintext
1.
2.
3.
4.
5.
Private Sub Calendar0_DblClick()

If Not IsNull(Me.Calendar0) Then _
    DoCmd.OpenForm "frm_CalDate", , , "[Date]=" & Format (Me.Calendar0, "'yyyymmdd'")
   
End Sub

Короче, читабельнее и экономичнее!
...
Рейтинг: 0 / 0
30.11.2004, 10:12:57
| Ответить | Цитировать | Написать  
25 сообщений из 25, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вопрос по ActiveX Calendar MSCAL.Calendar.7
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32805128&tid=1670051]:
 0ms
get settings:
 6ms
get forum list:
 19ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 76ms
get topic data:
 5ms
get forum data:
 1ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 196ms
total:  340ms
созд. / загр.: 340ms
x
x
Закрыть


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