ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вставить значение из запроса в поле формы в VBA
11 сообщений из 11, страница 1 из 1
Вставить значение из запроса в поле формы в VBA
    #40037434
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kniga
Участник
Здравствуйте!

Подскажите, пожалуйста, как вставить итоговое значение из одной формы в другую.
Задача для меня усложнена тем, что вставить надо в необычную форму. В примере (платежный календарь) если дважды кликнуть на поле открывается Форма, куда вводятся значения. Сумму этих значений, хотелось бы отразить в этом же поле. Там реализовано, что когда есть какие-то значения, то число (дата) выделяется красным. А вот вставить само значение не получается. Я попытался сделать это в процедуре myGain наподобие процедуры myVyh, которая делает цветным поле, но никакой реакции.. прошу помочь )
...
Рейтинг: 0 / 0
20.01.2021, 13:29
| Ответить | Цитировать | Написать  
Вставить значение из запроса в поле формы в VBA
    #40037627
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
не получилось у меня скачать - не открывается архив
...
Рейтинг: 0 / 0
21.01.2021, 08:05
| Ответить | Цитировать | Написать  
Вставить значение из запроса в поле формы в VBA
    #40037628
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Serg197311
не получилось у меня скачать - не открывается архив
обнови архиватор или используй 7zip
...
Рейтинг: 0 / 0
21.01.2021, 08:07
| Ответить | Цитировать | Написать  
Вставить значение из запроса в поле формы в VBA
    #40037630
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kniga
Участник
упс.. пересохранил )

Вчера ночером, получилось вставить в форму итоговое поле с функцией
Код: vbnet
1.
=DSum("выручка";"qryReportSum";"[YearNote]=" & [nYear] & " and " & "[MonthNote]=" & [nMonth])

. Оказалось, что запрос был с группировкой, поэтому поначалу никак не получалось.
...
Рейтинг: 0 / 0
21.01.2021, 08:32
| Ответить | Цитировать | Написать  
Вставить значение из запроса в поле формы в VBA
    #40037632
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kniga
Участник
но вот как сохранить в каждом поле вопрос остается (
...
Рейтинг: 0 / 0
21.01.2021, 08:45
| Ответить | Цитировать | Написать  
Вставить значение из запроса в поле формы в VBA
    #40037807
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Все как-то сложно.Если еще актуально гляньте это.
Есть пара недостатков-перед началом использования:
-в тбл.выручка должно быть 12 записей с датами 01.01.2020...01.12.2020(по всем месяцам)
-в свойствах "Запрос1" (заголовки столбцов) перечислить все года для которых создается база(5-8 думаю вполне достаточно)
Начинать с формы "form1"
...
Рейтинг: 0 / 0
22.01.2021, 03:52
| Ответить | Цитировать | Написать  
Вставить значение из запроса в поле формы в VBA
    #40037838
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kniga
Участник
sdku,

Спасибо большое! Почти то, что надо ) Буду пробовать изменить форму итог , надо чтобы там была ленточная форма, потому что в день может несколько поступлений быть (а также в дальнейшем эту же систему применю для расходов, а там в день точно много значений).
...
Рейтинг: 0 / 0
22.01.2021, 09:31
| Ответить | Цитировать | Написать  
Вставить значение из запроса в поле формы в VBA
    #40037842
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kniga
Участник
ой, форму не итог , а просмотрДобавление )
...
Рейтинг: 0 / 0
22.01.2021, 09:46
| Ответить | Цитировать | Написать  
Вставить значение из запроса в поле формы в VBA
    #40038300
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kniga
Участник
Добрый вечер!

Целый день бьюсь с адаптацией примера от sdku к своей базе.. тямы не хватает..(
Вот я думаю, происходит же событие на наличие значений в всплывающей форме в виде оцвечивания поля (надписи) в основной форме, может как-то подобно и на поле Выручка слукапить? Здесь еще раз прошу помощи, потому что сам, к сожалению, не могу допетрить )
Выкладываю облегченный пример, удалил все лишние поля и строчки кода.
...
Рейтинг: 0 / 0
23.01.2021, 16:30
| Ответить | Цитировать | Написать  
Вставить значение из запроса в поле формы в VBA
    #40038526
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Так будет попроще:
-скопируйте в обработку двойного щелчка для всех месяцев код для января( не забудьте, в соответствии с месяцем поменять его номер в WHERE-в примере RecordSource правильно только для января)
-разберитесь с кодом в форме "начало" и не пытайтесь её открыть
-все подсвечиваня полей-пользуйте условное форматирование
-зачем каким-либо(подсвечивание)образом выделять цифры обозначающие день месяца если наличие цифры\или NULL в полях выручка\сдано будет однозначно указывать на наличие записи в одноименных таблицах.
-в заголовке формы "выбор", функцией Dsum(или поле с данными SUM(выручка\сдано отразите итог по этим полям за месяц
...
Рейтинг: 0 / 0
25.01.2021, 02:39
| Ответить | Цитировать | Написать  
Вставить значение из запроса в поле формы в VBA
    #40038636
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kniga
Участник
sdku,

Большое спасибо! Попробую адаптировать.
А подсветка дня месяца осталось с оригинальной БД Календарь, там подсвечивались заметки на день. Оставил, потому что подумал, что как-то подскажет "обратное" действие, т.е. если можно вернуть форматирование, то может и значение в поле можно подобным образом вставить.
...
Рейтинг: 0 / 0
25.01.2021, 12:31
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вставить значение из запроса в поле формы в VBA
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=40037628&tid=1609801]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 77ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 268ms
total:  447ms
созд. / загр.: 447ms
x
x
Закрыть


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