Всем привет!

В некоторых случаях удобнее пользоваться календарем для ввода даты чем вбивать цифры с клавиатуры, однако размещение календаря в каждом месте формы где нужно вводить дату неудобно, громоздко и неэстетично.

Выход:
при нажатии кнопки появляется модальная pop up форма в которой можно выбрать дату.

я предлагаю решение в котором заранее заготовленная формочка с календарем может вызываться из любой формы одной строкой кода.
Позиционирование календаря выполняется автоматически по отношению к элементу управления из которого вызван код.

Посмотреть снапшот и скачать демонстрационный пример можно на моей страничке http://kozin1.narod.ru/sql/forms/index.htm#p14

в самом деле это всплывающая форма со стандартным календарем, безусловно на форму можно положить любой Activex или наваять свой набор контролов и использовать не только для выбора даты.
изюминка не в этом а в комбинации:
- вызов popup формы для полученя из нее данных одной строкой кода
- автоматическое позиционирование этой формы к контролу откуда вызов.
- работает с максимизироваными формами.

Хотя в плане совершенствования возможно имеет смысл снабдить пример каким-нибудь красивым AX - календарем.

Виктор что нибудь порекомендуете?

2 Hummer
немного громоздковато конструировать кнопку. но классно. где ты был когда мне нужно было ?

2 виктор
>Я просто передаю нужное поле как As Control.
я так обычно и делаю. но на этот раз словил глюк и решил не заморачиваться

в вызове делаю
dim ctl as control
set ctl = me.myctl
call mysyb(ctl) < глюк при передаче передается значение а не ссылка на контрол (раньше вроде так получалось ) access XP, mdb

декларировано
public mysyb(ctl as control )
...

>Это про календарик? Так он не мой и лежит на hiprog уже сто лет:)

дык, слепой я - пока носом не ткнут ))

2 виктор
> public mysyb(ByRef ctl as control )
разумеется именно так и делал.


спасибо за замечание по поводу мерцания -как сам не заметил???

уже исправил...