Выпадающий список годов

@KiTiger · Регистрация: 04.03.2015

Author24 — интернет-сервис помощи студентам

Доброго времени суток!
Хотел спросить как можно сделать выпадающий список в котором будут года(четырехзначные числа) от 1900 до 2015 , а то в отдельную таблицу вводить все года не хочется ?
Заранее спасибо!

mobile · 11.09.2015, 00:08

Это несложно сделать. Но в форме. Не в таблице. Поле со списком свободное, тип источника строк - список значений.
Код на событие загрузки (Lоad) формы

Visual Basic

Private Sub Form_Load()
    Dim i, s
    For i = 1900 To 2015
        s = s & ";" & i
    Next
    s = Mid(s, 2)
    Me.ИмяПоляСоСписком.RowSource = s
End Sub

Добавлено через 2 часа 42 минуты
Но, вообще говоря, смысла в таком списке нет никакого. Проще и быстрее написать год, чем искать в списке.
А если поле со списком мыслится как мера ограничить интервал возможных значений, то достаточно написать допустимый интервал в условии на значение поля таблицы.

@Павел_2013 · 11.09.2015, 12:28

Решил попробовать, что-то не получилось. Где неправильно?

mobile · 11.09.2015, 14:03

Сообщение от Павел_2013

Где неправильно?

Вот здесь:

Сообщение от mobile

тип источника строк - список значений.

А у Вас Таблица или запрос. Замените на список значений и все пойдет.

@Павел_2013 · 11.09.2015, 14:17

И в правду пошло.

@KiTiger 0 / 0 / 0 Регистрация: 04.03.2015 Сообщений: 17
		1
	Выпадающий список годов 10.09.2015, 21:18. Показов 1238. Ответов 4 Метки нет (Все метки) Доброго времени суток! Хотел спросить как можно сделать выпадающий список в котором будут года(четырехзначные числа) от 1900 до 2015 , а то в отдельную таблицу вводить все года не хочется ? Заранее спасибо! 0

mobile 26805 / 14484 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	11.09.2015, 14:03	4
	Сообщение от Павел_2013 Где неправильно? Вот здесь: Сообщение от mobile тип источника строк - список значений. А у Вас Таблица или запрос. Замените на список значений и все пойдет. 1

@Павел_2013 12 / 12 / 1 Регистрация: 06.11.2013 Сообщений: 113
	11.09.2015, 14:17	5
	И в правду пошло. 0

Опции темы

Выпадающий список годов

Решение