Ярлыки

(16) 1С 8.3 (1) 2GIS (1) автоактивация (3) Активация (3) Андроид (113) Антивирус (2) Аудио (2) биоритмы (1) Блок питания (22) боль в спине (1) браузер (2) бросить курить (1) буквы соответствие (1) бумажник (1) бюджетирование (1) ВАЗ 2110 (1) вацап (1) видеонаблюдение (8) Видеосвязь (1) гаджет (1) Галстук (1) геокоординаты (1) дача (1) для дома (1) дом (2) драйвера (6) Дубликаты (1) еда (1) запись (1) Зарядка акб (1) Зарядное устройство (1) звук (4) здоровье (8) знаки зодиака (1) зрение (1) игнтернет (1) иероглифы (1) Изделия из дерева (1) Интернет (10) Интернет-магазины (3) Кино (1) ключница (1) Книги Журналы (1) кожаная обувь (4) командная строка (1) конвертор (1) кошелек (1) кресло-качалка (1) кухня (2) Лекарства (1) логика (1) макрос (1) медицина (1) мозги (1) морщины (2) мтс (1) музыка (9) мультики (1) Мыльные_пузыри (1) Натуральная кожа (56) Облако (1) омск (1) Он Лаин библиотеки (1) органайзер (1) оригами (1) Отбеливание (1) отслеживание посылок (1) Папка (1) Пароли (2) пароль (3) партмоне (1) парфюм (1) переименование файлов (1) питание (1) Планшет (5) поза сна (1) поздравление (1) поиск (1) поиск дублей (1) поисковик (1) Полезные сайты (1) портабле (2) принтер (4) Программы (58) простуда (1) расширения (1) редактор музыкальных файлов (1) Русский язык (1) рут (2) сеть (8) Скрыть информацию (1) Стиль (1) стихи (2) сумка (1) суставы (3) теги (1) трек-номер (1) тренинг (1) тренинг памяти (1) удаленный доступ (2) узлы (1) УНЧ (3) Управление компьютером (2) Управленческий учет (2) Успокоительные средства (1) фильмы (2) Флешка (53) фото (2) цвета в одежде (1) цена (1) экран не гаснет (1) эл почта (2) Ютуб (1) Access (10) Acronis True Image WD Edition (1) AliExpress (1) ALT-коды (1) audi (1) Avira Antivirus (1) bat (2) BIOS (4) chrom (15) Chrome (2) Cube iPlay 10 U83 (1) Dism++ (2) epson 1260 (1) ERD Commander (1) Excel (42) Faceter (1) Firefox (1) GHOST32 (4) gif анимация (1) Google (1) Google Hrome (1) Google Play (1) Grub4Dos (7) HDD (1) Honor (1) HP USB Disk Storage Tool (1) IPTV (1) KPI (1) Linux (16) NirCmd (1) office (4) PDF (1) Pinterest (1) portable (2) Prestigio3502 (1) Rufus (2) SSD (1) torrent (1) UEFI (1) VBA (42) WEB ресурсы (2) WiFi (2) Windows (77) Windows 10 (5) Windows 11 (2) Windows 7 (24) YouTube (15)

суббота, 1 февраля 2014 г.

Создание всплывающего календаря

  1. Откройте учебную базу данных Борей.mdb.
  2. Создать новую форму на основе таблицы Orders и сохраните его как frmOrderDateForm.
  3. Добавьте поле со списком в форму и задайте для свойства ControlSource поля со списком для поля ДатаРазмещения.
  4. Вставьте в форму элемент управления Calendar. 

    Примечание: чтобы вставить элемент управления Calendar, щелкните элемент управления ActiveX, в меню Вставка, а затем выберите элемент управления Календарь или календарь управления 8.0 в зависимости от версии Access, 7.0 или 97.
  5. Задайте следующие свойства для элемента управления Calendar:
       Name: Calendar
       Visible: No
         
  6. Добавьте следующий код в событие MouseDown списком OrderDate:
    Private Sub OrderDate_MouseDown(Button As Integer, _
                                      Shift As Integer, X As Single, _
                                      Y As Single)
    ' Show Calendar and set its date.
       Calendar.Visible = True
       Calendar.SetFocus
       ' Set to today if OrderDate has no value.
       Calendar.Value = IIf(IsNull(OrderDate), Date, OrderDate.Value)
    End Sub
      
  7. Добавьте следующий код в событие Click элемента управления Calendar. 

    Примечание: Необходимо открыть один из списка событий, а затем измените это событие с событием Click.
    Private Sub Calendar_Click()
       ' Set OrderDate to the selected date and hide the calendar.
       OrderDate.Value = Calendar.Value
       OrderDate.SetFocus
       Calendar.Visible = False
    End Sub
         

  8. Сохраните форму и переключитесь в режим формы.
Calendar - имя календаря в свойствах
OrderDate - имя поля в свойствах

Вы увидите, что при нажатии кнопки со стрелкой в поле OrderDate, элемент управления Calendar будет виден и устанавливается на дату в поле. После выбора даты из календаря, календарь исчезнет и будет выбранную дату в поле.Если поле OrderDate не имеет значения, в календаре будет показано на текущую дату.

Комментариев нет:

Отправить комментарий