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

12.06.2011, 13:41. Показов 1578. Ответов 0

Метки нет (Все метки)

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

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

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Close()
If Me.Form.Dirty Then 'эта строка неправильная
Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "2-Свидетель"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormEdit
Else
Dim stDocName1 As String
    Dim stLinkCriteria1 As String
    stDocName1 = "ГлавнаяКнопочнаяФорма"
    DoCmd.OpenForm stDocName1, , , stLinkCriteria1, acFormEdit
End If
End Sub

Добавлено через 9 минут
Решено!!!

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Compare Database
    Dim xxx As Boolean
 
Private Sub form_afterupdate()
xxx = True
End Sub
    
 
Private Sub Form_Close()
    If xxx Then
    Dim stDocName As String
        Dim stLinkCriteria As String
        stDocName = "2-Свидетель"
        DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormEdit
    Else
    Dim stDocName1 As String
        Dim stLinkCriteria1 As String
        stDocName1 = "ГлавнаяКнопочнаяФорма"
        DoCmd.OpenForm stDocName1, , , stLinkCriteria1, acFormEdit
    End If
End Sub

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

12.06.2011, 13:41

Ответы с готовыми решениями:

Как открыть одну форму через другую форму в winforms?
Как мне сделать так, что при выборе какой-либо опции из списка одна форма закрывалась, а другая - открывалась? Такой код полностью...

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

Как осуществить переход в другую форму, если кнопка достигнет заданных координат?
Как осуществить переход в другую форму с помощью координат? К примеру с запрограммированной кнопки можем передвигать другую кнопку влево и...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

12.06.2011, 13:41

Помогаю со студенческими работами здесь

VBA. Механизм копирования из формы в другую форму
Доброго времени суток. Пишу Диплом, нужна помощь. Вписав дату в поле "Дата" в форме "Составление расписаний" нужно чтобы в форме...

Сделать так, что если человек авторизован выводить одну форму, если нет - другую.
Надо сделать так, что если человек авторизован выводить одну форму, если нет другую, подскажите как это можно реализовать? Мой вариант,...

Изменение textbox через другую форму
Вопросов юудет много... Вот первый Всем привет. Я тут новенький. И вот сразу задам вопрос.. Вот есть есть на Form2 TexBox куда...

Как сделать чтобы при нажатии на красный крестик программа не закрывалась а открывала нужную мне форму?
Как сделать чтобы при нажатии на красный крестик программа не закрывалась а открывала нужную мне форму? Я хочу сделать выбор чтобы при...

Как программно скопировать форму из одной базы в другую если код формы защищен паролем (пароль известен)
Пытаюсь скопировать форму (код формы в VBA закрыт паролем "123") из одной своей базы в другую не получается DoCmd.TransferDatabase...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

Наверх