| |
|
|
| | Доброго времени суток.
Ситуация: две подчиненные формы, сходные структуры данных.
Задача: перебросить строки первой формы во вторую в определенной
последовательности, выбирая по одной строке в первой подчиненной форме
(ставим галочку в спецполе) инфа этой строки переносится во вторую
форму в первой скрывается. У меня клин...  | |
| |
| |
| |
|
|
| | клин клином вышибают.
обработка на событие после обновление на Галочку (Олечку) - в форме источник - нечто
set rst=Forms!Главная!подчиненная_получатель.Forms.Recordsetclone
with rst
.addnew
заносим данные
.Update
End With
Forms!Главная!подчиненная_получатель.Forms.Requery | |
| |
| |
| |
|
|
| | Спасибо! Пробую...
==================================================================
Рано радовался. Таких свойств или методов у этих объектов нет, объявляет VBA
Надо наверное пример выложить?
И еще, хотел код вставит вместо русских букв обраказябра. | |
| |
| |
| |
|
|
| | Что-то вы напутали...
Допустим, на главной форме есть элементы-контейнеры субформ с именами "Суб1" и "Суб2".
В подформе "Суб1" есть поле "Галочка". В запросе-источнике подформы "Суб1" должно быть условие: WHERE [Галочка] = False.
У подформы Суб2 должно быть разрешено добавление записей.
На событие AfterUpdate поля "Галочка" пишем:
IF Me![Галочка]=False Then Exit Sub 'Обрабатываем только установку флажка
Set rst = Me.Parent!Суб2.Form.Recordset 'Получаем ссылку на Recordset-получатель
rst.AddNew
'Заполняем поля
rst.Update 'Новая запись добавлена в Суб2 и она - текущая
Me.Requery 'Перезапрос Суб1 - отмеченная запись исчезает.
|
| |
| |
| |
| |
|
|
| | По "Суб1" я сделал сразу правильно (как у ВАС). По "Суб2" писал как kot_k_k советовал.
MSA материться, упирается, не хочет.
Строка:
Set rst = Me.Parent!Суб2.Form.Recordset
заработала.
НИЧЕГО НЕ ПОНИМАЮ!!! | |
| |
| |
| |
|
|
| | для нормального копирования русского из VBA (и не только) нужно чтобы при копировании стоял русский шрифт.
как это нету. всегда были - скрин в студию, а еще лучше базу в формате 2003, (2007-й не предлагать однозначно)
п.с. хотя MSA 2007 - всего можно ожидать.  | |
| |
| |
| |
|
|
| | Спасибо, научили ... Два часа пытался вставить - НИХТ!
Private Sub Выбор_AfterUpdate()
Dim rst As Recordset
Set rst = Me.Parent!Суб_9_БП_ТелоКонтроль.Form.Recordset
rst.Update
rst.Fields("КодКБП") = Me.КодКБП
rst.Fields("НомППЭ") = Me.НомПП
rst.Fields("ТекстСКБП") = Me.ТекстСЭБП
rst.Fields("Условие") = Me.УсловиеЭСБП
Stop
End Sub
|
| |
| |
| |
| |
|
|
| | Спасибо Всем. Пока поехало. | |
| |
| |
| |
|
|
| | Классный сайт. Постараюсь быть постоянным. | |
| |
| |
| |
|
|
| | желательно имена полей, форм, запросов, отчетов писать латиницей и без пробелов | |
| |
| |
| |
|
|
| | Учту на будущее а на эту работу уже полтора года ушло.
Понемногу забываю что в начале насочинял. | |
| |
| |
