Форум программистов, компьютерный форум, киберфорум
Наши страницы

MS Access

Войти
Регистрация
Восстановить пароль
 
 
Nikolaha5
0 / 0 / 0
Регистрация: 18.04.2017
Сообщений: 19
#1

Отображение/скрытие подчиненной формы - MS Access

26.04.2017, 10:35. Просмотров 343. Ответов 19
Метки нет (Все метки)

Всем доброго дня и отличного настроения, помогите новичку, а то памяти совсем нет уже ))
Давно уже не брал я в руки access, лет 15 прошло, забыл уже всё напрочь ((

Есть база, нужно сделать:
1. При установке флажка "имеется пропуск" появлялась в этом же окне формы подчиненная форма "Пропуск". Дабы внести в нее данные. И там и оставалась. А если флажка нет, то ничего бы не появлялось.
2. При вносе данных в подчиненную форму "Пропуск", происходит переход к внесению новой записи в основной форме "Человек", а не в подчиненной, ибо пропуск может быть только один.
0
Вложения
Тип файла: zip pass1.zip (36.2 Кб, 4 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.04.2017, 10:35
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Отображение/скрытие подчиненной формы (MS Access):

Скрытие/отображение подчиненной формы по нажатию кнопки - MS Access
Есть 4 формы. 3 из них подчиненные формы для первой. В первой форме 3 кнопки. При нажатии на кнопку должна отобразиться одна из подчиненных...

Скрытие вкладок подчиненной формы с условием главной формы - MS Access
Вопрос вот в чем Уважаемые! Как сделать так, чтобы при выборе на главной форме параметра VZB, на подчиненной форме оставалась лишь...

Скрытие столбцов таблицы подчиненной формы через VBA или макрос - MS Access
Друзья, помогите решить проблему. Есть разделенная форма источник данных в которой . В форме есть поля: , еще несколько и поле ...

Отображение полей подчиненной формы - MS Access
Доброго времени суток. Прошу помощи в решении. ну очень надо. Есть основная форма Форма1 на которой есть поле Поле1, имеющее два...

Сумма из подчиненной формы, отмена записей в подчиненной форме - MS Access
Нужна сразу помощь по четырем пунктам, форма КвитанцияСкупкиОбмена надо: 1. Суммирование поля Сумма в подчиненной форме с занесением в...

Выборка в подчиненной форме 2 из формы 2 по выбранному значению в подчиненной форме 1 из формы 1 - MS Access
Добрый день! Есть 2 формы(на первой форме находится "подчиненная форма 1", на второй "подчиненная форма 2") В "подчиненной форме 1"...

19
ltv_1953
Эксперт MS Access
12753 / 5747 / 1086
Регистрация: 21.06.2012
Сообщений: 10,354
26.04.2017, 10:58 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Как вариант (смотрите процедуры обработки событий)
1
Вложения
Тип файла: 7z pass1.7z (22.6 Кб, 7 просмотров)
Nikolaha5
0 / 0 / 0
Регистрация: 18.04.2017
Сообщений: 19
26.04.2017, 11:08  [ТС] #3
не увидел никаких изменений.
Процедуру просмотрел.
Private Sub Form_Current()
Me.пропуск.Visible = Me.Имеется_пропуск_
End Sub

Private Sub Имеется_пропуск__Click()
Me.пропуск.Visible = Me.Имеется_пропуск_
Находил такой вариант, но никаких изменений у меня нет.
0
ltv_1953
Эксперт MS Access
12753 / 5747 / 1086
Регистрация: 21.06.2012
Сообщений: 10,354
26.04.2017, 11:17 #4
У меня все работает. Если у Вас отключено выполнение макросов и т.п. - то кто ж Вам доктор ... ?
1
Nikolaha5
0 / 0 / 0
Регистрация: 18.04.2017
Сообщений: 19
26.04.2017, 11:29  [ТС] #5
ну как-то так.

При вводе новой записи подчиненна форма тоже висит.
0
Миниатюры
Отображение/скрытие подчиненной формы   Отображение/скрытие подчиненной формы  
ltv_1953
Эксперт MS Access
12753 / 5747 / 1086
Регистрация: 21.06.2012
Сообщений: 10,354
26.04.2017, 11:42 #6
Угу. Еще раз - все работает
0
Миниатюры
Отображение/скрытие подчиненной формы  
Nikolaha5
0 / 0 / 0
Регистрация: 18.04.2017
Сообщений: 19
26.04.2017, 11:43  [ТС] #7
Поставил "Отключить все макросы с уведомлением". Заработало.

Теперь остался ключевой, не менее важный вопрос.
Как сделать переход к вводу данных в основной форме после ввода серии и номера в подчиненной форме по клавише "Enter" (или кнопку отельную туда присабачить в конце), а не так, как сейчас (ввод второй записи, которая все равно вылетает с ошибкой.
0
ltv_1953
Эксперт MS Access
12753 / 5747 / 1086
Регистрация: 21.06.2012
Сообщений: 10,354
26.04.2017, 12:06 #8
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Цитата Сообщение от Nikolaha5 Посмотреть сообщение
которая все равно вылетает с ошибкой.
Ну так поставьте обработку ошибок в форме пропуск. Например
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Error(DataErr As Integer, Response As Integer)
        Response = acDataErrContinue
        Select Case DataErr
        Case 3022
            Me.Undo
            Me.Recordset.MoveFirst
            Me.Parent.Код.SetFocus
        Case Else
            Response = acDataErrDisplay
        End Select
End Sub
1
Nikolaha5
0 / 0 / 0
Регистрация: 18.04.2017
Сообщений: 19
26.04.2017, 12:35  [ТС] #9
Ну что сказать. Мастер своего дела. Спасибо, проблема решена.
0
Nikolaha5
0 / 0 / 0
Регистрация: 18.04.2017
Сообщений: 19
26.04.2017, 12:45  [ТС] #10
Простите за наглость, а возможно сделать переход не к новой записи, а например в окно второй подчиненной формы?
Например в "Учебные заведения"?
0
Вложения
Тип файла: zip pass1 (2).zip (34.1 Кб, 2 просмотров)
ltv_1953
Эксперт MS Access
12753 / 5747 / 1086
Регистрация: 21.06.2012
Сообщений: 10,354
26.04.2017, 13:14 #11
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Замените одну строку в процедуре модуля формы пропуск
Visual Basic
1
2
3
Private Sub Form_AfterUpdate()
        Me.Parent.Controls("Учебное заведение").SetFocus
End Sub
1
Nikolaha5
0 / 0 / 0
Регистрация: 18.04.2017
Сообщений: 19
26.04.2017, 13:35  [ТС] #12
Не перевелась земля людьми добрыми

Буду теперь учить что значат все эти команды, тяжело начинать все заново.
0
ltv_1953
Эксперт MS Access
12753 / 5747 / 1086
Регистрация: 21.06.2012
Сообщений: 10,354
26.04.2017, 14:50 #13
Цитата Сообщение от Nikolaha5 Посмотреть сообщение
Буду теперь учить что значат все эти команды
Посмотрите здесь .... Справочник команд VBA?
0
Nikolaha5
0 / 0 / 0
Регистрация: 18.04.2017
Сообщений: 19
27.04.2017, 08:58  [ТС] #14
А еще такой вопрос имеется.
Все настроил, всё работает. Перескакивает.
А можно ли сделать, чтобы при перескоке с "пропуск" в "Учебное заведение" в подчиненной форме Пропуск оставалась запись 1, т.е. активная и единственная. Сейчас остается запись 2. На картинке обозначил, что я имел ввиду, думаю более понятно будет.
И возможно ли вообще убрать эту строку?
0
Миниатюры
Отображение/скрытие подчиненной формы  
ltv_1953
Эксперт MS Access
12753 / 5747 / 1086
Регистрация: 21.06.2012
Сообщений: 10,354
27.04.2017, 09:04 #15
Все же уже написано, можно "по кусочкам" собрать. Берем последнюю Form_AfterUpdate() и добавляем строчку из Form_Error:
Visual Basic
1
2
3
4
Private Sub Form_AfterUpdate()
        Me.Recordset.MoveFirst
        Me.Parent.Controls("Учебное заведение").SetFocus
End Sub
0
27.04.2017, 09:04
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.04.2017, 09:04
Привет! Вот еще темы с ответами:

Обновление поля подчиненной формы по обновлению поля другой подчиненной формы - MS Access
Доброго времени суток. Прошу помощи, запутался. Существует главная форма (допустим frmMain) На форме frmMain размещено 2 подчиненные...

Обновление подчиненной формы из подчиненной формы - MS Access
Есть форма Прибора Учета на ней размещены две подформы Показания (то есть две формы одной и той же таблицы, делается для удобного...

Запрет на создание записи в подчиненной форме при отсутствии значения в поле главной формы( или в этой же подчиненной форме) Аксесс 2003 - MS Access
Доброго времени суток ! Помогите , пожалуйста, решить проблему! шаг 1. В форме "frmТОиР_2" при вводе в "ПОЛЕ 28" номера изделия...

Дублирование записи главной формы вместе со всеми записями подчиненной формы - MS Access
есть таблица: билет поля: идбилет; идклиент; идзалог подчиненная таблица: залог поля: идбилет; идзалог; наименование получаем...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
15
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru