Как сделать источником строк Combobox-а: 1-числа 12 прошедших месяцев / Microsoft Access

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как сделать источником строк Combobox-а: 1-числа 12 прошедших месяцев

4 сообщений из 4, страница 1 из 1

Как сделать источником строк Combobox-а: 1-числа 12 прошедших месяцев

#39530933

Адеке

Гость

Как можно источником строк раскрывающегося списка сделать 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:33

| Ответить | Цитировать | Написать

Как сделать источником строк Combobox-а: 1-числа 12 прошедших месяцев

#39530942

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

Ну например заполнить его при Workbook_Open...

...

Рейтинг:

0 / 0

04.10.2017, 16:43

| Ответить | Цитировать | Написать

Как сделать источником строк Combobox-а: 1-числа 12 прошедших месяцев

#39531070

mds_world

Участник

Откуда: Ташкент

Сообщения: 27 530

Рейтинг: 0 / 0

Можно задать источник списка запросом с помощью бонимовского 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

04.10.2017, 19:39

| Ответить | Цитировать | Написать

Как сделать источником строк Combobox-а: 1-числа 12 прошедших месяцев

#39531507

Адеке

Гость

mds_world,

спасибо

...

Рейтинг:

0 / 0

05.10.2017, 14:35

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=39531070&tid=1612042]:	0ms
get settings:	10ms
get forum list:	15ms
check forum access:	4ms
check topic access:	4ms
track hit:	46ms
get topic data:	12ms
get forum data:	3ms
get page messages:	44ms
get tp. blocked users:	1ms
others:	284ms

total:	423ms