Вопрос!

20.01.2011, 20:12. **Показов** 751. **Ответов** 3

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

Есть форма, которая открывается при запуске базы. В ней поле со списком и кнопка. Можно ли сделать так, чтобы выбранное значение из списка передавалось некоей переменной, для использования в дальнейшем в базе.
А также, можно ли потом каким-либо образом подставлять это значение в текстовое поле для каждой новой записи.
Заранее спасибо.
P.S. Access 2003, WinXP

@Vadim_ig · 24.01.2011, 15:55

создаете модуль в котором пишете приблизительно следующее
Private DataVar as Integer
Public function SetDataVar(val as Integer)
'всяческие проверки на допустимость
DataVar=val
end function
Public function GetDataVal() as Integer
GetDataVal=DataVal
end function

Потом в первой форме с помощью функции SetDataVar задаете значение,
а нужным полям свойство значение по умолчанию ставите '=GetDataVal()'

@aksakal.ru · 24.01.2011, 16:12

NO VBA:

делаешь форму на основе таблицы, например, темп с текстовым полем 1
открываешь эту форму как невидимую, режим изменение; передаешь значение (Задать значение); закрываешь форму темп, в дальнейшем берешь значение из таблицы темп поля1

Access в массы, no VBA forever

24.01.2011, 19:57

Спасибо! Все заработало!

dread81
		1
	Вопрос! 20.01.2011, 20:12. Показов 751. Ответов 3 Метки нет (Все метки) Есть форма, которая открывается при запуске базы. В ней поле со списком и кнопка. Можно ли сделать так, чтобы выбранное значение из списка передавалось некоей переменной, для использования в дальнейшем в базе. А также, можно ли потом каким-либо образом подставлять это значение в текстовое поле для каждой новой записи. Заранее спасибо. P.S. Access 2003, WinXP

@Vadim_ig 1 / 1 / 1 Регистрация: 05.01.2010 Сообщений: 235
	24.01.2011, 15:55	2
	создаете модуль в котором пишете приблизительно следующее Private DataVar as Integer Public function SetDataVar(val as Integer) 'всяческие проверки на допустимость DataVar=val end function Public function GetDataVal() as Integer GetDataVal=DataVal end function Потом в первой форме с помощью функции SetDataVar задаете значение, а нужным полям свойство значение по умолчанию ставите '=GetDataVal()' 0

@aksakal.ru 0 / 0 / 0 Регистрация: 05.12.2010 Сообщений: 96
	24.01.2011, 16:12	3
	NO VBA: делаешь форму на основе таблицы, например, темп с текстовым полем 1 открываешь эту форму как невидимую, режим изменение; передаешь значение (Задать значение); закрываешь форму темп, в дальнейшем берешь значение из таблицы темп поля1 Access в массы, no VBA forever 0

dread81
	24.01.2011, 19:57	4
	Спасибо! Все заработало!