Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вопрос по ActiveX Calendar MSCAL.Calendar.7 / 25 сообщений из 25, страница 1 из 1
29.11.2004, 09:34:33
    #32803174
GliderAlex
GliderAlex
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ActiveX Calendar MSCAL.Calendar.7
У меня есть календарь который служит формой вызова суточных отчётов.
Т.е. при нажатии на дату(например 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, 10:27:56
    #32803289
Galustov
Galustov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ActiveX Calendar MSCAL.Calendar.7
добрый день
просто перенеси код на событие Click
а ещё для пущей наглядности можно в свойствах поставить ValueIsNull=True и при обновлении делать me.calendar0.value=null
только что у себя попробовал, но правда всё равно остаётся квадратик на последней нажатой дате
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.11.2004, 11:24:19
    #32803465
GliderAlex
GliderAlex
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ActiveX Calendar MSCAL.Calendar.7
Всё равно не нажимается( Приходится сперва на другую дату переходить
[
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:32:38
    #32803496
Rivkin Dmitry
Rivkin Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ActiveX Calendar MSCAL.Calendar.7
Вызывать отчет сразу по нажатии на дату - не хорошо потому, что вдруг дата была выбрана случайно. Поэтому, лучше запусакть отчет дополнительной кнопкой или двойным кликом по дете. Это и будет решением проблемы!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.11.2004, 11:38:57
    #32803523
Galustov
Galustov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ActiveX Calendar MSCAL.Calendar.7
GliderAlexВсё равно не нажимается( Приходится сперва на другую дату переходить
[
SRC vba]
Private Sub Calendar0_AfterUpdate()

[/SRC]

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

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

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

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

1.Пользоваться календарем Адексея Козина или другими календарями - ищи по форуму.
2.Сегодня ему нужен отчет на одну дату, а завтра ему понадобится вывести отчет за некоторый период. Классно будет вылетать отчет сначала на период от первой выбранной даты до второй по-умолчанию и только после закрытия и выбора следующей даты - отчет по выбранному периоду. А если при этом клиент дважды ошибся при выборе первой даты и второй, то можно будет представить количество произнесенных им слов, начинающихся на гагол "мать"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.11.2004, 12:25:29
    #32803687
GliderAlex
GliderAlex
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ActiveX Calendar MSCAL.Calendar.7
При попытке написать
Код: 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:27:48
    #32803697
GliderAlex
GliderAlex
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ActiveX Calendar MSCAL.Calendar.7
А так же вылетает в редактор VB при колике мыши в любом другом месте календаря))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2004, 08:36:03
    #32805020
GliderAlex
GliderAlex
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ActiveX Calendar MSCAL.Calendar.7
Так что, в этом календаре нет такой возможности что ли?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2004, 08:39:17
    #32805024
Rivkin Dmitry
Rivkin Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ActiveX Calendar MSCAL.Calendar.7
GliderAlexТак что, в этом календаре нет такой возможности что ли?

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

Private Sub Calendar0_Click()
MsgBox "tttt"

Me.Calendar0.Value = Null

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

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

Пожалуйста:
If Not IsNull(Me.Calendar0) Then _
MsgBox Format(Me.Calendar0, "dd/mm/yyyy")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2004, 09:50:02
    #32805128
GliderAlex
GliderAlex
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ActiveX Calendar MSCAL.Calendar.7
Вот так вот заработало)
Код: 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:51:26
    #32805133
GliderAlex
GliderAlex
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ActiveX Calendar MSCAL.Calendar.7
Кстати а что за подчёркивание? вот это

Код: plaintext
 Then _
Это что, вместо Else?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2004, 10:09:54
    #32805162
Rivkin Dmitry
Rivkin Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ActiveX Calendar MSCAL.Calendar.7
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:12:57
    #32805170
Rivkin Dmitry
Rivkin Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ActiveX Calendar MSCAL.Calendar.7
Вообще-то я - жадный на код и я бы сократил так:

Код: 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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вопрос по ActiveX Calendar MSCAL.Calendar.7 / 25 сообщений из 25, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 362ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1670051]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 69ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 217ms
total:  362ms
x
x
Закрыть


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