Vba в access

@psixatron · Регистрация: 19.02.2016

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

Вот такое представление у меня в форме, хотелось бы чтоб из одной такой формы открывалась другая по двойному нажатию на поле ( надпись) . Сделал, работает. Но не фильтрует по коду. Другими словами есть две таблицы Одна группа, другая участники в этой группе. В ленточной работает. Но мне нужно в этой форме. Может что подскажите?
Грубо говоря моя задача - есть форма ( там список групп).. Щелкая двойным нажатием открываеться вторая форма со всписком людей который будут состоять в этой группе. Добавляю их по нажатию в третьей форме через кнопку.

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
On Error Resume Next
Dim strSQL As String
strSQL = " SELECT gruppa.grooup, gruppa.Codgrooup " & _
         " FROM gruppa " & _
         " ORDER BY gruppa.grooup ASC"
Me.lstInfo.RowSource = strSQL
Me.btnDeleteReader.Enabled = False
End Sub

Вот поле, здесь появляется допустим группа, в одной группе состоят несколько человек. Кликая по полю через команду:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub lstInfo_DblClick(Cancel As Integer)
DoCmd.OpenForm "frmReaders", acNormal, , "[Codgrooup] =" & Me.lstInfo, acFormEdit, acDialog
End Sub
 
Private Sub кнопка1_Click()
On Error GoTo Err_cmdEdit_Click
 
 
  DoCmd.OpenForm "frmReaders", acNormal, , "[Codgrooup] =" & Me.lstInfo, acFormEdit, acDialog
 
Exit_cmdEdit_Click:
    Exit Sub
 
Err_cmdEdit_Click:
    MsgBox Err.Description
    Resume Exit_cmdEdit_Click

Хочу попасть на вторую форму с уже отфильтроваными людьми по коду группы. Но не выходит почему то.

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
On Error Resume Next
Dim strSQL As String
strSQL = " SELECT klient.familia, klient.codklienta " & _
         " FROM klient " & _
         " ORDER BY klient.familia ASC"
Me.lstInfo.RowSource = strSQL
Me.btnDeleteReader.Enabled = False
End Sub

@texnik-san · 23.03.2016, 23:38

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

Хочу попасть на вторую форму с уже отфильтроваными людьми по коду группы. Но не выходит почему то.

В чем это "не выходит" выражается: форма не открывается или не отфильтровано?

Добавлено через 2 минуты
Codgrooup написано без опечаток? Оно вообще в форме frmReaders в списке полей источника есть?

Форма-то хоть не свободная, как в вашем предыдущем примере?

Добавлено через 12 минут
Я хоть убейте не понимаю, зачем вообще вы привели текст этих процедур Form_Load(). Какое отношение процедуры на загрузке первой и третьей форм имеют к тому, что у вас не фильтруются записи во второй форме?

Вы же знаете, что параметр "[Codgrooup] =" & Me.lstInfo в операторе открытия формы фильтрует записи формы, и именно это пытаетесь сделать, да?

@psixatron · 23.03.2016, 23:46 **[ТС]**

да без опечаток. Форма открывается, но не фильтрует. Да свободная. Но поля то в таблице связанны. Подчиненные формы мне не уместны к сожалению. Может что то и делаю не правильно. Выкладываю бд. Да есть. Просьба не обращать внимание на ошибку. Меня интересует только форма frmgrooup - Через неё должно всё происходит. Событие поставил на кнопку 13. или можно двойным нажатием на надпись группы.

@texnik-san · 24.03.2016, 00:25

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

Форма открывается, но не фильтрует. Да свободная.

Ну и все, это уже ответ.

Сообщение от texnik-san

параметр "[Codgrooup] =" & Me.lstInfo в операторе открытия формы фильтрует записи формы

В смысле - только формы.

Если у формы нет записей, то этот парамер ни на что не влияет.

@psixatron · 24.03.2016, 00:33 **[ТС]**

Тогда как можно реализовать мою задачу? смысл думаю понятен. Делать подчинённую форму? как ещё сделать данный фильтр. или есть другие пути следования. Спасибо за ответ

mobile · 24.03.2016, 00:36

Поскольку формы свободные, то разумно делать через параметр OpenArgs команды OpenForm вызова формы frmReaders. В процедуре загрузки frmReaders добавлен код для фильтрации списка по OpenArgs

mobile · 24.03.2016, 00:37

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

Тогда как можно реализовать мою задачу? смысл думаю понятен. Делать подчинённую форму?

Да, это был бы хороший выход. И наглядный

@texnik-san · 24.03.2016, 00:39

Пробуйте

Не по теме:

UPD: опоздала ))

@psixatron · 24.03.2016, 00:46 **[ТС]**

mobile можно я расплачусь от счастья? это именно то что я хотел. Гениально, превосходно. Такое ощущение что вба придумали вы. или знаете его как себя. Я понимаю что мои познания просто ничтожны. Большое вам человеческое спасибо, я уже две клавиатуры сломал. А сделать не смог. p.s. клавиатур много. Очень постараюсь в дальнейшом разбираться в этом сам. Это действительно очень интересно.

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@psixatron 0 / 0 / 0 Регистрация: 19.02.2016 Сообщений: 35
	24.03.2016, 00:33 [ТС]
	Тогда как можно реализовать мою задачу? смысл думаю понятен. Делать подчинённую форму? как ещё сделать данный фильтр. или есть другие пути следования. Спасибо за ответ 0

@psixatron 0 / 0 / 0 Регистрация: 19.02.2016 Сообщений: 35
	24.03.2016, 00:46 [ТС]
	mobile можно я расплачусь от счастья? это именно то что я хотел. Гениально, превосходно. Такое ощущение что вба придумали вы. или знаете его как себя. Я понимаю что мои познания просто ничтожны. Большое вам человеческое спасибо, я уже две клавиатуры сломал. А сделать не смог. p.s. клавиатур много. Очень постараюсь в дальнейшом разбираться в этом сам. Это действительно очень интересно. 0

Vba в access

Решение