ник: bel
я что-то не понимаю почему при втором нажатии на кнопку не происходит закрятие формы календаря. У меня есть формы DatePicker - собственно календарь и frmMonth - не знаю зачем нужно, я ее скопировала вместе с календарем.
В моей форме "Информационная записка" нарисовала кнопку и в свйство "Нажатие кнопки" вставила:
Public Sub Дата_AfterUpdate()
'Это событие, в случае если оно объявлено как публичное,
'вызывает календарь после вставки даты
End Sub
Далее в свойстве поля "Дата", где должна появляться выбранная дата, "После обновления" написала:
Public Sub Дата_AfterUpdate()
'Это событие, в случае если оно объявлено как публичное,
'вызывает календарь после вставки даты
End Sub
И в свойстве того же поля "Кнопка вниз" написала:
Private Sub Дата_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'второй вариант вызова (для тесных форм где кнопку негде разместить)
'по правой кнопке мыши и подходит только в случае если не используются в форме контекстные меню
'Me.ShortcutMenu = False
'Button = 2 - нажатие на правую кнопку мыши
'Button = 4 - нажатие на колесико мыши
If Button <> 1 Then DoCmd.OpenForm "datepicker"
End Sub
Да и еще вот, что было вставлено в свойство "Таймер" формы:
Private Sub Form_Timer()
oldcolor = 0
If IsLd("datepicker") And Not IsLd("frmmonth") Then
If Forms("datepicker").cap.Caption <> "Click here" Then
oldcap = Forms("datepicker").cap.Caption
Forms("datepicker").cap.Caption = "Click here"
Forms("datepicker").cap.ForeColor = vbRed
Me.TimerInterval = 1000
countflash = countflash + 1
Else
If countflash < 3 Then Me.TimerInterval = 5000 Else Me.TimerInterval = 0
Forms("datepicker").cap.Caption = oldcap
Forms("datepicker").cap.ForeColor = oldcolor
End If
End If
End Sub
И когда я нажимаю по несколько раз на кнопку, чтобы закрыть этот всплывающий календарь, то выскакивает именно то, что в свойстве "Таймер"