Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как сделать источником строк Combobox-а: 1-числа 12 прошедших месяцев / 4 сообщений из 4, страница 1 из 1
04.10.2017, 16:33
    #39530933
Адеке
Адеке
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать источником строк Combobox-а: 1-числа 12 прошедших месяцев
Как можно источником строк раскрывающегося списка сделать 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
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.10.2017, 16:43
    #39530942
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать источником строк Combobox-а: 1-числа 12 прошедших месяцев
Ну например заполнить его при Workbook_Open...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.10.2017, 19:39
    #39531070
mds_world
mds_world
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать источником строк Combobox-а: 1-числа 12 прошедших месяцев
Можно задать источник списка запросом с помощью бонимовского Digits. Но проще в коде на событии загрузки формы генерировать RowSource списка
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
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
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.10.2017, 14:35
    #39531507
Адеке
Адеке
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать источником строк Combobox-а: 1-числа 12 прошедших месяцев
mds_world,

спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как сделать источником строк Combobox-а: 1-числа 12 прошедших месяцев / 4 сообщений из 4, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 395ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1612042]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 28ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 44ms
get tp. blocked users:
 2ms
others: 276ms
total:  395ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]