Обращение к подчиненной форме из VBA

@archi_TS · Регистрация: 10.06.2012

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

Как правильно обратиться к подчиненной форме, а именно, отфильтровать подчиненную форму по значению в выпадающем списке. Форма: Find_form, Cписок: Имя транзистора (NameTr) Поле в подчиненной форме для фильтрации name_of_tr

Написал для события "после обновления"(в выпадающем списке) следующее:

Visual Basic

Private Sub NameTr_AfterUpdate()
Me.Filter = "[SubFindForm].Form.name_of_tr = [NameTr].Value"
Me.FilterOn = True
End Sub

не отрабатывает...
Как корректно написать процедуру?

@archi_TS · 11.06.2012, 10:19 **[ТС]**

На всякий случай .mdb а то забыл прикрепить. Буду рад любому напутствию по данному вопросу)

mobile · 11.06.2012, 15:40

archi_TS, если точно по вопросу, то процедура такова

Visual Basic

Private Sub NameTr_AfterUpdate()
    Me.SubFindForm.Form.Filter = "name_of_tr = '" & [NameTr].Value & "'"
    Me.SubFindForm.Form.FilterOn = True
End Sub

Но ведь на форме еще много комбо и представляется, что фильтрацию данных в субформе вы хотите делать по всем полям со списком. Тогда надо сделать функцию, в которой будут собираться фильтры по всем комбо и на афтерапдейт каждого из них вызывать эту функцию.

@WiLex · 11.06.2012, 22:09

Есть предложение использовать Глобалные переменные в MS Access 2000-2003
1. создайте запрос для источника записей подчиненной формы
2. если пользуетесь конструктором откройте его и в конструкторе в поля которые собрались фильтровать впишите (в качестве условия)

SQL

1	LIKE (tempVar1)&*

где tempVar1 - временная переменная хронящая значение условия отбора для данного поля (разумеется для каждого поля свое имя tempVar)
3. при загрузке установите значение всех tempVar`s в значение NULL (эта конструкция даст возможность загрузить все записи подчиненной формы)
4. на событие После обновления, всех контролов фильтра, достаточно просто обновить подчиненную форму, а значения сами передатутся в запрос через tempVar`s и отфильтруют его.

Внимательно прочитайте пост с описанием tempVar`s там есть примеры как для VBA так и для SQL, но модуль написать (скопировать) прийдется )), какой из вариантов выбирать Вам.
Вроде все! Удачи!

@minob · 11.06.2012, 22:33

Есть предложение использовать Глобалные переменные в MS Access 2000-2003
...

Пожалуйста, продемонстрируйте ваши рекомендации на небольшом конкретном примере.

@archi_TS · 11.06.2012, 22:44 **[ТС]**

Всем большое спасибо. Написал вот так:

Visual Basic

Option Compare Database
 
Private Sub NameTr_AfterUpdate()
If IsNull(Me.NameTr) Then
    Me.SubFindForm.Form.Filter = ""
    Me.SubFindForm.Form.FilterOn = False
Else
        Me.SubFindForm.Form.Filter = "name_of_tr =  '" & [NameTr].Value & "'"
        Me.SubFindForm.Form.FilterOn = True
End If
End Sub
 
 
Private Sub Выключатель42_Click()
Me.SubFindForm.Form.Filter = ""
Me.SubFindForm.Form.FilterOn = False
[ПолеСоСписком0].Value = ""
[ПолеСоСписком2].Value = ""
[ПолеСоСписком4].Value = ""
[NameTr].Value = ""
[ПолеСоСписком10].Value = ""
[ПолеСоСписком12].Value = ""
[ПолеСоСписком14].Value = ""
[ПолеСоСписком16].Value = ""
[ПолеСоСписком18].Value = ""
[ПолеСоСписком20].Value = ""
End Sub
 
Private Sub ПолеСоСписком16_AfterUpdate()
If IsNull(Me.ПолеСоСписком16) Then
    Me.SubFindForm.Form.Filter = ""
    Me.SubFindForm.Form.FilterOn = False
Else
        Me.SubFindForm.Form.Filter = "type_of_characteristic =  '" & [ПолеСоСписком16].Text & "'"
        Me.SubFindForm.Form.FilterOn = True
End If
End Sub
 
Private Sub ПолеСоСписком2_AfterUpdate()
If IsNull(Me.ПолеСоСписком2) Then
    Me.SubFindForm.Form.Filter = ""
    Me.SubFindForm.Form.FilterOn = False
Else
        Me.SubFindForm.Form.Filter = "name_tech =  '" & [ПолеСоСписком2].Text & "'"
        Me.SubFindForm.Form.FilterOn = True
End If
End Sub
Private Sub ПолеСоСписком18_AfterUpdate()
If IsNull(Me.ПолеСоСписком18) Then
    Me.SubFindForm.Form.Filter = ""
    Me.SubFindForm.Form.FilterOn = False
Else
        Me.SubFindForm.Form.Filter = "name_of_condition =  '" & [ПолеСоСписком18].Text & "'"
        Me.SubFindForm.Form.FilterOn = True
End If
End Sub
 
Private Sub ПолеСоСписком12_AfterUpdate()
If IsNull(Me.ПолеСоСписком12) Then
    Me.SubFindForm.Form.Filter = ""
    Me.SubFindForm.Form.FilterOn = False
Else
        Me.SubFindForm.Form.Filter = "type_of_tranz =  '" & [ПолеСоСписком12].Value & "'"
        Me.SubFindForm.Form.FilterOn = True
End If
End Sub
 
Private Sub ПолеСоСписком10_AfterUpdate()
If IsNull(Me.ПолеСоСписком10) Then
    Me.SubFindForm.Form.Filter = ""
    Me.SubFindForm.Form.FilterOn = False
Else
        Me.SubFindForm.Form.Filter = "year_order =  '" & [ПолеСоСписком10].Text & "'"
        Me.SubFindForm.Form.FilterOn = True
End If
End Sub
 
Private Sub ПолеСоСписком20_AfterUpdate()
If IsNull(Me.ПолеСоСписком20) Then
    Me.SubFindForm.Form.Filter = ""
    Me.SubFindForm.Form.FilterOn = False
Else
        Me.SubFindForm.Form.Filter = "base_version =  '" & [ПолеСоСписком20].Text & "'"
        Me.SubFindForm.Form.FilterOn = True
End If
End Sub
 
Private Sub ПолеСоСписком14_AfterUpdate()
If IsNull(Me.ПолеСоСписком14) Then
    Me.SubFindForm.Form.Filter = ""
    Me.SubFindForm.Form.FilterOn = False
Else
        Me.SubFindForm.Form.Filter = "construction =  '" & [ПолеСоСписком14].Text & "'"
        Me.SubFindForm.Form.FilterOn = True
End If
End Sub
 
Private Sub ПолеСоСписком4_AfterUpdate()
If IsNull(Me.ПолеСоСписком4) Then
    Me.SubFindForm.Form.Filter = ""
    Me.SubFindForm.Form.FilterOn = False
Else
        Me.SubFindForm.Form.Filter = "type_tech =  '" & [ПолеСоСписком4].Text & "'"
        Me.SubFindForm.Form.FilterOn = True
End If
End Sub
 
Private Sub ПолеСоСписком0_AfterUpdate()
If IsNull(Me.ПолеСоСписком0) Then
    Me.SubFindForm.Form.Filter = ""
    Me.SubFindForm.Form.FilterOn = False
Else
        Me.SubFindForm.Form.Filter = "customer_name =  '" & [ПолеСоСписком0].Value & "'"
        Me.SubFindForm.Form.FilterOn = True
End If
End Sub

То что хотел вроде заработало как надо)

@WiLex · 12.06.2012, 21:47

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

Пожалуйста, продемонстрируйте ваши рекомендации на небольшом конкретном примере.

Посмотрите этот вариант!

если нужно организовывать фильтрацию данных более чем по 10 полям такой способ, считаю неприемлемым т.к. будет много контролов для фильтрации и форма будет перегружена ими.

P/S: но при помощи этой функции, 3-5 контролов для ввода условий и возможно 1 дополнительной таблицы можно организовать фильтрацию на любое количество полей

@sergeos · 12.06.2012, 23:12

WiLex, а что нет никакого способа контролы в массив запихнуть?
жаль, чегото не получается динамически на форме сформировать контролы, просит чтобы режим формы был acDesign, а у меня при загрузке формы не получается перехватить и загнать в Design Mode. Только если открывать с другой формы.

@alvk · 13.06.2012, 03:13

WiLex, это не удобно. Возможно просто до конца не довели?

@minob · 13.06.2012, 09:08

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

Посмотрите этот вариант!

Посмотрел. Ни одной глобальной переменной, о которых писалось здесь, в приложении не обнаружил. В запросе используется не переменная, как показано в примере по ссылке, а функция MyTempVars, описанная в общем модуле, которую Jet SQL "видит", в отличие от переменных. Таким образом вы пытаетесь в примере выдать желаемое за действительное путем подмены понятий. Позтому можно сделать вывод, что рекомендации по ссылке являются плодом безосновательной фантазии.
Судя по комментариям к функции MyTempVars

Visual Basic

'Created 13/01/2012 Wilex Soft Studio
'Колекция глодальных переменных
'Создает именованные глобальные переменные, хранящие значения
'на протяженнии всей сеии пользователя
Public Function MyTempVars(Name As String, Optional Val) 'Функция принимающая и возвращающая переменные
Static MyTempVarsCol As New Collection 'колекция переменных
On Error Resume Next
    MyTempVars = Null
    MyTempVars = MyTempVarsCol(Name)
    If IsMissing(Val) Then Exit Function
    MyTempVarsCol.Remove Name
    If Not IsNull(Val) Then MyTempVarsCol.Add Val, Name
End Function

вы путается в понятиях области видимости переменных и времени их существования. Функция, несмотря на ваши декларации, никаких глобальных переменных не создает, она лищь работает с компонентами коллекции, которые никаким образом не причастны к глобальным переменным. Объектная переменная MyTempVarsCol, объявленная в функции, как Static, является локальной, имеющей областью видимости только эту функцию и время существования от первого вызова функции и до завершения работы приложения.

Функция MyTempVars в выложенном примере притянута за уши, чтобы выдать желаемое (см.рекомендации по ссылке) за действительное. Достаточно изменить запрос qryTBL1 таким образом

SQL

SELECT KeyID_tbl1, Chapter1, Chapter2, Chapter3, Chapter4, Chapter5, Chapter6, Chapter7
FROM tbl1
WHERE Chapter1 LIKE Forms!Form1!cmbBoxCh1 & "*" AND 
      Chapter2 LIKE Forms!Form1!cmbBoxCh2 & "*" AND 
      Chapter3 LIKE Forms!Form1!cmbBoxCh3 & "*" AND 
      Chapter4 LIKE Forms!Form1!cmbBoxCh4 & "*" AND 
      Chapter5 LIKE Forms!Form1!cmbBoxCh5 & "*" AND 
      Chapter6 LIKE Forms!Form1!cmbBoxCh6 & "*" AND 
      Chapter7 LIKE Forms!Form1!cmbBoxCh7 & "*"

чтобы получить тот же результат без использования функции.

P.S. Т.к. переменная - это отдельный именованный участок памяти, то говорить "именованная переменная" это все равно, что масло масляное.

@darklumen · 04.09.2017, 16:40

Подскажите пожалуйста, вот чтобы отменить внесенные изменения через форму достаточно написать: Me.Undo
А если на форме есть подчиненная форма, как отменить изменения, внесенные через подчиненную форму?
Forms![Название подчиненной формы].Undo не работает)

mobile · 04.09.2017, 17:40

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

если на форме есть подчиненная форма, как отменить изменения, внесенные через подчиненную форму?

После того, как Вы нажали кнопку или просто перешли на любой контрол на главной форме, редактируемая запись сохранилась в таблице и все OldValue ее полей исчезли. Поэтому, чтобы удовлетворить требованиям отмены, надо сохранять значения записи до модификации, например в массиве или свободном адо-рекордсете. Или в таблице типа журнала изменений. Тогда, при необходимости достаем сохраненные старые значения и записываем их в таблицу вместо новых.

@minob 3544 / 1118 / 94 Регистрация: 13.03.2011 Сообщений: 1,513
	11.06.2012, 22:33	5
	Есть предложение использовать Глобалные переменные в MS Access 2000-2003 ... Пожалуйста, продемонстрируйте ваши рекомендации на небольшом конкретном примере. 1

@sergeos 206 / 23 / 5 Регистрация: 12.06.2012 Сообщений: 235
	12.06.2012, 23:12	8
	WiLex, а что нет никакого способа контролы в массив запихнуть? жаль, чегото не получается динамически на форме сформировать контролы, просит чтобы режим формы был acDesign, а у меня при загрузке формы не получается перехватить и загнать в Design Mode. Только если открывать с другой формы. 0

@alvk 7395 / 4532 / 295 Регистрация: 12.08.2011 Сообщений: 14,015
	13.06.2012, 03:13	9
	WiLex, это не удобно. Возможно просто до конца не довели? Миниатюры 0

@darklumen 0 / 0 / 0 Регистрация: 05.06.2013 Сообщений: 38
	04.09.2017, 16:40	11
	Подскажите пожалуйста, вот чтобы отменить внесенные изменения через форму достаточно написать: Me.Undo А если на форме есть подчиненная форма, как отменить изменения, внесенные через подчиненную форму? Forms![Название подчиненной формы].Undo не работает) 0

mobile 26805 / 14484 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	04.09.2017, 17:40	12
	Сообщение от darklumen если на форме есть подчиненная форма, как отменить изменения, внесенные через подчиненную форму? После того, как Вы нажали кнопку или просто перешли на любой контрол на главной форме, редактируемая запись сохранилась в таблице и все OldValue ее полей исчезли. Поэтому, чтобы удовлетворить требованиям отмены, надо сохранять значения записи до модификации, например в массиве или свободном адо-рекордсете. Или в таблице типа журнала изменений. Тогда, при необходимости достаем сохраненные старые значения и записываем их в таблицу вместо новых. 0

Обращение к подчиненной форме из VBA

Решение