0 / 0 / 0
Регистрация: 31.01.2015
Сообщений: 7
1

Access - Объединение параметров в DoCmd.OpenForm

03.04.2015, 23:55. Показов 2431. Ответов 2
Метки нет (Все метки)

Добрый вечер!
Уже 5-ый месяц создаю АРМ в MSAccess. Столкнулся с массой проблем и смог их решить, не без вашей помощи за что огромное спасибо! Но с этой проблемой ни как не могу справиться( Сказывается недостаток знаний. Увы(
Вообщем, вот код что имеется в данный момент:
Visual Basic
1
2
3
DoCmd.OpenForm "Форма1",acNormal , , "[Ячейка1]=" & dn1.pedid
DoCmd.OpenForm "Форма1",acNormal, , "[Ячейка2]=" & dn1.mbid
DoCmd.OpenForm "Форма1",acNormal , , "[Ячейка3]=" & dn1.psid
dn1 = модуль в который ранее записываются числовые значения.

Так вот. Мне необходимо, что бы вместо 3 команд "DoCmd.OpenForm "Форма1",acNormal , , " - была одна, но выполнялись все те действия, что описаны выше. Т.е. Объединить 3 строчки в 1. КАК это можно сделать? Буду крайне признателен и благодарен!!!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.04.2015, 23:55
Ответы с готовыми решениями:

DoCmd.OpenForm
И снова здравствуйте Пытаюсь создать кнопку с фильтром, открывающую форму. Имеется главная...

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

Подскажите как задать два условия для DoCmd.OpenForm
Необходимо открыть форму с фильтром на два условия: поле =Код1 и поле =Код2 С одним условием...

DoCmd.OpenForm как прописать отдельно для ввода и редактирования
Подскажите есть команда на кнопке DoCmd.OpenForm "блабла" как прописать отдельно для ввода и...

2
4026 / 1414 / 391
Регистрация: 07.08.2013
Сообщений: 3,529
04.04.2015, 03:47 2
В DoCmd.OpenForm есть параметр OpenArgs в котором можно передать текст
после открытия формы текст можно разбить (если конечно воткнуть разделители)
примерный код будет выглядеть так
Visual Basic
1
2
3
4
5
6
DoCmd.OpenForm "Форма1",acNormal, , , , ,"[Ячейка1]=" & dn1.pedid & "*" & "[Ячейка2]=" & dn1.pedid  & "*" & "[Ячейка3]=" & dn1.pedid 
dim a() as String
a=Split(OpenArgs,"*")
Msgbox a(0)
Msgbox a(1)
Msgbox a(2)
1
0 / 0 / 0
Регистрация: 31.01.2015
Сообщений: 7
05.04.2015, 21:30  [ТС] 3
Большое спасибо! Но увы не помогло...
Решил проблему иным способом...через подтверждение по следующей форме. Но большое спасибо! Аригато!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.04.2015, 21:30
Помогаю со студенческими работами здесь

помогите в пробном примере прописать условие отбора в методе DoCmd.OpenForm
Кто может, помогите в пробном примере прописать условие отбора в методе DoCmd.OpenForm, чтобы при...

Как передать несколько параметров в OpenArgs метода DoCmd.OpenReport
Реально ли на месте OpenArgs передать несколько параметров? DoCmd.OpenReport...

Access VBA DoCmd.RunCommand acCmdDeleteRecord
При использовании "DoCmd.RunCommand acCmdDeleteRecord" удаляется вся запись из запроса. Можно ли...

Импорт данных из excel в access методом docmd.TransferSpreadsheet
Добрый вечер, помогите кто чем сможет!!! Ни как не могу разобраться с этим методом, есть таблица...

Передача параметров из Access в ХП SQL Server - MS Access
Привет всем, подскажите как правильно передать параметры в хранимую процедуру при ее вызове из...

Объединение параметров под один ключ словаря
Имеются результаты итерации в виде 'объект - характеристика' Как получить словарь:...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru