|
Всплывающий календарик
Всплывающий DatePicker для заполнения поля даты в формах
Для установки календаря - скачайте файл, запустите установить к себе в проект
Для вызова календаря достаточно установить фокус на поле в которое будет возврашена дата и открыть календарь:
Private Sub Кнопка15_Click()
Me.ПолеДаты.SetFocus
DoCmd.OpenForm "datepicker"
End Sub
Календарь запоминает последнюю дату которую через него ввели
если вам в какой - то момент этого не нужно вызывайте его так:
Private Sub Кнопка15_Click()
Call SaveSetting(Left(CurrentProject.name, Len(CurrentProject.name) - 4), "datepicker", "LastEntredDate", НужнаяДата)
Me.ПолеДаты.SetFocus
DoCmd.OpenForm "datepicker"
End Sub
Пример вызова из табличной формы:
Private Sub sss_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'в табличном режиме удобно даблкликом - в остальных кнопкой
'If Me.Form.CurrentView = acCurViewDatasheet Then
If Button = 1 Then DoCmd.OpenForm "DATEPICKER"
'End If
End Sub
Вид в одиночной и ленточной форме:
Вид в табличной форме:
Версия 3.4
Исправлен код, вызывающий событие после обновления для контролов находящихся в подчиненных формах.
Добавлен код, закрывающий календарик при клике мышкой за пределами календарика
Добавлена возможность автоматического экспорта в свой проект
Исправлены ошибки
MDB (Access 2000-2003, 368 кб)
RAR (Access 2000-2003, 63 кб)
Версия для Access 97 в редакции CtrlAlt
RAR (Access 97, 75 Кб)
Версия 3.5 (Windows 2000, XP полупрозрачность)
Исправлен вид календаря при использовании региональных настроек отличных от России.
Возможность задать полупрозрачность
MDB (Access 2000-2003, 400 кб)
RAR (Access 2000-2003, 73 кб)
Версия 3.6 ( учет праздников и переносов выходных )
by kanelix
Добавлена таблица учета дней - исключений из правила СБ-ВС выходной.
Правка списка дней из календаря по правой кнопке мыши
MDB (Access 2000-2003, 660 кб)
RAR (Access 2000-2003, 111 кб)
Внимание! все примеры будут корректно работать только при установленных
последних версиях сервис - паков операционной системы и драйверов доступа к данным
| |