Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Как задать переменной значение через поле со списком?  [new]
zar
Member

Откуда:
Сообщений: 100
Как задать переменной значение через поле со списком, потом запустить запрос, а в нем сделать выборку по значению этой переменной?
15 мар 05, 18:24    [1388152]     Ответить | Цитировать Сообщить модератору
 Re: Как задать переменной значение через поле со списком?  [new]
Shuhard
Member

Откуда:
Сообщений: 4998
zar
Как задать переменной значение через поле со списком, потом запустить запрос, а в нем сделать выборку по значению этой переменной?

а куда девать результат выполнения запроса?
проще сделать 2 списка,во втором отображать результат изменения первого
достаточно повесить на afterupdate первого requery второго
+ в where ведомого написать некий_ID=Forms![форма]![ведущий список]
15 мар 05, 18:38    [1388203]     Ответить | Цитировать Сообщить модератору
 Re: Как задать переменной значение через поле со списком?  [new]
zar
Member

Откуда:
Сообщений: 100
Shuhard
zar
Как задать переменной значение через поле со списком, потом запустить запрос, а в нем сделать выборку по значению этой переменной?

а куда девать результат выполнения запроса?
проще сделать 2 списка,во втором отображать результат изменения первого
достаточно повесить на afterupdate первого requery второго
+ в where ведомого написать некий_ID=Forms![форма]![ведущий список]

Мне надо присвоить переменной значение из поля со списком.
15 мар 05, 19:06    [1388259]     Ответить | Цитировать Сообщить модератору
 Re: Как задать переменной значение через поле со списком?  [new]
ы
Guest
public переменная

public function GetMyVar()
  getMyVar=переменная
end function

public sub setMyVar
  переменная = Forms!myForm!myCombobox.value
end sub

Запрос
select * from MyTable where myfield=getMyVar()
15 мар 05, 19:11    [1388277]     Ответить | Цитировать Сообщить модератору
 Re: Как задать переменной значение через поле со списком?  [new]
Пользователь2
Guest
Это тема неоднократно освещалась. Кстати, на форуме работает поиск.

Вот тебе пример для текстовой переменной.

Модуль:

Private srtValue As String

Public Function SetValue(Value As String)
   strValue = Value
End Function

Public Function GetValue()
   GetValue = strValue
End Function

Потом на кнопку вешаешь код:

Private Sub cmdButton_Click()
    SetValue Me.cboComboBox
    DoCmd.OpenQuery "qryQuery"
End Sub

Составляешь запрос:

SELECT tblClients.FIO, tblClients.ID
FROM tblClients
WHERE (((tblClients.FIO)=GetValue()));
16 мар 05, 12:48    [1390179]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить