ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / DoCmd.OpenForm и Me
25 сообщений из 50, страница 1 из 2
  1  все
DoCmd.OpenForm и Me
    #39786280
NBjHCBrc6KlSObm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NBjHCBrc6KlSObm
Гость
Есть Форма1.
В неё вводятся данные и делаются вычисления, после чего нажимается Кнопка1, и открывается Форма2, куда попадают результаты вычислений.
Проблема в том, что после выполнения DoCmd.OpenForm "Форма2" обращаться через Me. к элементам Формы1 уже нельзя.
Как можно из этого выкрутиться, кроме использования Forms("Форма1").Controls("Поле1") и т.п.?
...
Рейтинг: 0 / 0
14.03.2019, 22:53
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и Me
    #39786284
Фотография Tarasios
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tarasios
Участник
NBjHCBrc6KlSObm,
перевести фокус на форму 1 и далее играться с me?
...
Рейтинг: 0 / 0
14.03.2019, 23:04
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и Me
    #39786285
NBjHCBrc6KlSObm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NBjHCBrc6KlSObm
Гость
Tarasios, не помогает.
...
Рейтинг: 0 / 0
14.03.2019, 23:10
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и Me
    #39786294
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
NBjHCBrc6KlSObm, Форма2 открыта как acDialog?
...
Рейтинг: 0 / 0
14.03.2019, 23:55
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и Me
    #39786304
NBjHCBrc6KlSObm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NBjHCBrc6KlSObm
Гость
alecko, нет.
...
Рейтинг: 0 / 0
15.03.2019, 00:38
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и Me
    #39786306
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
NBjHCBrc6KlSObm, тогда ничто не мешает обращаться к элементам каждой формы в модуле этой формы по Me.
...
Рейтинг: 0 / 0
15.03.2019, 00:43
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и Me
    #39786310
NBjHCBrc6KlSObm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NBjHCBrc6KlSObm
Гость
alecko, к сожалению VBA считает по-другому.
...
Рейтинг: 0 / 0
15.03.2019, 01:00
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и Me
    #39786311
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
NBjHCBrc6KlSObm, поскольку пробел перед .setfocus код вывалился в ошибку, если форма создана как класс - она закроется.
...
Рейтинг: 0 / 0
15.03.2019, 01:12
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и Me
    #39786312
NBjHCBrc6KlSObm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NBjHCBrc6KlSObm
Гость
alecko, у вас плохое зрение.
...
Рейтинг: 0 / 0
15.03.2019, 01:17
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и Me
    #39786315
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
NBjHCBrc6KlSObm,
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub btnPodpiska_Click()
DoCmd.OpenForm "frmClients", acNormal, , , acFormEdit, acWindowNormal
With Forms("frmClients")
    .K0dSeriaPodpiska = Me.Nm1 'Me.Nm1.Column(5) будем конртролировать по KSK
    !lblIzdanie.Caption = Me.Mr1.Column(1) & Titul(Me.Sr1.Column(1)) & Chr(32) & Me.Nm1.Column(2)
    !Кнопка37.Caption = "КТО?"
End With
End Sub


это пример кода - все работает
...
Рейтинг: 0 / 0
15.03.2019, 01:32
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и Me
    #39786318
NBjHCBrc6KlSObm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NBjHCBrc6KlSObm
Гость
Как оказалось, в Форме2 со старых времён осталось закрытие-открытие Формы1 при запуске = сам дурак :(
...
Рейтинг: 0 / 0
15.03.2019, 01:48
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и Me
    #39786321
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
NBjHCBrc6KlSObmЕсть Форма1.
В неё вводятся данные и делаются вычисления, после чего нажимается Кнопка1, и открывается Форма2, куда попадают результаты вычислений.
Проблема в том, что после выполнения DoCmd.OpenForm "Форма2" обращаться через Me. к элементам Формы1 уже нельзя.
Как можно из этого выкрутиться, кроме использования Forms("Форма1").Controls("Поле1") и т.п.?Не понятно,однако,зачем(какова надобность) открывать форму2,а обращаться к форме1?
После открытия ф2 фокус надо переводить на ф1(в событии "открытие" ф2),чтоб обращаться к элементам ф1-бессмыслица какая-то...
...
Рейтинг: 0 / 0
15.03.2019, 02:03
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и Me
    #39786322
NBjHCBrc6KlSObm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NBjHCBrc6KlSObm
Гость
sdku, из формы1 в форму2 выписываются результаты вычислений, после чего форма1 закрывается и продолжается заполнение формы2.
...
Рейтинг: 0 / 0
15.03.2019, 02:12
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и Me
    #39786323
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
вдогонку:на скрине видно что после открытия "f_order" Вы пытаетесь перевести фокус на "f_calc" из той же процедуры из которой открыли "f_order",хотя фокус уже на вновь открытой форме,и перевести его в зад можно только из неё ("f_order")
...
Рейтинг: 0 / 0
15.03.2019, 02:23
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и Me
    #39786324
NBjHCBrc6KlSObm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NBjHCBrc6KlSObm
Гость
sdku, вы комменты почитайте что ли, Tarasios так предложил, ещё спросите, зачем я поле 2 раза вывожу в Debug.Print :)
Да и какая разница откуда SetFocus вызывать.
...
Рейтинг: 0 / 0
15.03.2019, 02:27
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и Me
    #39786325
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Так и пишите:
-открыть ф2 (в процедуре ф1)
-записать значение ф1.поле в ф2.поле (в загрузке ф2)
-закрыть ф1 (в загрузке ф2)
...
Рейтинг: 0 / 0
15.03.2019, 02:29
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и Me
    #39786326
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
NBjHCBrc6KlSObm....Да и какая разница откуда SetFocus вызывать. Вы в этом уверены????
...
Рейтинг: 0 / 0
15.03.2019, 02:33
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и Me
    #39786328
NBjHCBrc6KlSObm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NBjHCBrc6KlSObm
Гость
sdku, вызвал из Immediate, проблемы?
...
Рейтинг: 0 / 0
15.03.2019, 02:47
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и Me
    #39786329
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
NBjHCBrc6KlSObmЕсть Форма1.
В неё вводятся данные и делаются вычисления, после чего нажимается Кнопка1, и открывается Форма2, куда попадают результаты вычислений.
Расчеты в формах-это круто.Если есть желание покажите что сделали и опишите вкратце "хотелку"-т.к не понятно что Вы делаете (от слова совсем)
...
Рейтинг: 0 / 0
15.03.2019, 02:55
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и Me
    #39786330
NBjHCBrc6KlSObm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NBjHCBrc6KlSObm
Гость
sdku, но ведь проблема топика уже решена и причина (кривые руки) установлена, с чем вы мне хотите помочь?
...
Рейтинг: 0 / 0
15.03.2019, 02:58
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и Me
    #39786332
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
NBjHCBrc6KlSObm,
-а как она решена?
-"меня терзают смутные сомненья" по поводу правильности структуры БД вследствии нарушения основополагающих принципов "базостроения"
...
Рейтинг: 0 / 0
15.03.2019, 03:20
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и Me
    #39786333
NBjHCBrc6KlSObm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NBjHCBrc6KlSObm
Гость
sdku, и какой принцип я нарушил?
...
Рейтинг: 0 / 0
15.03.2019, 03:21
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и Me
    #39786335
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
NBjHCBrc6KlSObmsdku, вызвал из Immediate, проблемы?
и что же было написано в immediate? (какой объект оказался в фокусе?)
для ответа на Ваш вопрос я должен видеть схему БД
...
Рейтинг: 0 / 0
15.03.2019, 03:31
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и Me
    #39786338
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
sdkuдля ответа на Ваш вопрос я должен видеть схему БД
...
Рейтинг: 0 / 0
15.03.2019, 03:58
| Ответить | Цитировать | Написать  
DoCmd.OpenForm и Me
    #39786353
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
sdkuдля ответа на Ваш вопрос я должен видеть схему БД
Нaвеяло воспоминаниями. :))

Приходит мужик в магазин и спрашивает: Нет ли у вас перчаток?
Ему - а какого цвета Вас интересуют?
Мужик охренел - сроду их не было никогда, а тут еще про цвет спрашивают! Он - ну, допустим, коричневые.
Ему - а какой из оттенков коричневого, можете назвать? С чем именно носить будете?
Мужик - ну, с пальто.
Ему - знаете, принесите Ваше пальто, мы под колер поточнее перчатки Вам попробуем подобрать.
У мужика уже крыша съезжает, не верит своим ушам - вот это сервис, невероятно!
Тут рядом с ним из очереди мужичок высовывается:
- Да не верьте Вы им !!! Я уже и унитаз приносил, и жопу показывал, а туалетную бумагу все равно так и не подобрали !!!
...
Рейтинг: 0 / 0
15.03.2019, 07:46
| Ответить | Цитировать | Написать  
25 сообщений из 50, страница 1 из 2
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / DoCmd.OpenForm и Me
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39786323&tid=1610809]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 31ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 70ms
get tp. blocked users:
 1ms
others: 330ms
total:  472ms
созд. / загр.: 472ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]