Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Как сделать источником строк Combobox-а: 1-числа 12 прошедших месяцев  [new]
Адеке
Guest
Как можно источником строк раскрывающегося списка сделать 1-числа 12 прошедших месяцев от сегодняшней даты?
Например сегодня в списке должно быть:
01.10.2017
01.09.2017
01.08.2017
01.07.2017
01.06.2017
01.05.2017
01.04.2017
01.03.2017
01.02.2017
01.01.2017
01.12.2016
01.11.2016

а в следующем месяце:
01.11.2017
01.10.2017
01.09.2017
01.08.2017
01.07.2017
01.06.2017
01.05.2017
01.04.2017
01.03.2017
01.02.2017
01.01.2017
01.12.2016
4 окт 17, 16:33    [20842842]     Ответить | Цитировать Сообщить модератору
 Re: Как сделать источником строк Combobox-а: 1-числа 12 прошедших месяцев  [new]
Akina
Member

Откуда: Зеленоград, Москва, Россия
Сообщений: 15930
Ну например заполнить его при Workbook_Open...
4 окт 17, 16:43    [20842881]     Ответить | Цитировать Сообщить модератору
 Re: Как сделать источником строк Combobox-а: 1-числа 12 прошедших месяцев  [new]
mds_world
Member

Откуда: Ташкент
Сообщений: 27457
Можно задать источник списка запросом с помощью бонимовского Digits. Но проще в коде на событии загрузки формы генерировать RowSource списка
Private Sub Form_Load()
    Dim i, d, s
    For i = -12 To -1
        d = DateAdd("m", i, Date)
        s = s & ";" & DateSerial(Year(d), Month(d), 1)
    Next
    Me.ПолеСоСписком.RowSource = Mid(s, 2)
End Sub
4 окт 17, 19:39    [20843393]     Ответить | Цитировать Сообщить модератору
 Re: Как сделать источником строк Combobox-а: 1-числа 12 прошедших месяцев  [new]
Адеке
Guest
mds_world,

спасибо
5 окт 17, 14:35    [20845494]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить