Я имею форму основала на специфически данных по выставок critieria в коробке списка. Я хочу использовать subform как один из элементов criteira. Все мысли? Под Кодий:
Private Sub Frame0_Click () затемняет strQuery по мере того как
String
выбирает strQuery случая 1
случая Frame0
= «ВЫБИРАЕТ [данные по членства] .ID, [данные по членства]. [Имя проекта], [данные по членства]. [Номер членства], [данные по членства]. [Имя], [данные по членства]. [Фамилия], [данные по членства]. [Телефонный номер], [данные по членства]. [Тип членства], [данные по членства]. Сподвижница, [данные по членства]. Состояние ОТ [данные по членства] ГДЕ [тип членства] = strQuery случая 2
«преимущества» «= «ВЫБИРАЕТ [данные по членства] .ID, [данные по членства]. [Имя проекта], [данные по членства]. [Номер членства], [данные по членства]. [Имя], [данные по членства]. [Фамилия], [данные по членства]. [Телефонный номер], [данные по членства]. [Тип членства], [данные по членства]. Сподвижница, [данные по членства]. Состояние ОТ [данные по членства] ГДЕ [тип членства] = «преимущество плюс» «strQuery случая 3
= «ВЫБИРАЕТ [данные по членства] .ID, [данные по членства]. [Имя проекта], [данные по членства]. [Номер членства], [данные по членства]. [Имя], [данные по членства]. [Фамилия], [данные по членства]. [Телефонный номер], [данные по членства]. [Тип членства], [данные по членства]. Сподвижница, [данные по членства]. Состояние ОТ [данные по членства] ГДЕ [тип членства] = «strQuery случая 4
преимущества дела» «= «ВЫБИРАЕТ [данные по членства] .ID, [данные по членства]. [Имя проекта], [данные по членства]. [Номер членства], [данные по членства]. [Имя], [данные по членства]. [Фамилия], [данные по членства]. [Телефонный номер], [данные по членства]. [Тип членства], [данные по членства]. Сподвижница, [данные по членства]. Состояние ОТ [данные по членства] ГДЕ состоянием не будет нулевое «
Select
конца
если strQuery "" <> txtMemNumb после этого = strQuery &» И [номер членства] = «&
txtMemNumb & "" если strQuery "" <> cboProjectType после этого = strQuery &» И [тип проекта] = ««& cboProjectType &»» «
lstReport.RowSource = strQuery
End Sub
I am заселить сподвижницу автоматически в пределах list.
class=
|
