| |
|
|
| | Посоветуйте, как скопировать запись из одной базы в нее же с изменением отдельных полей при этом скопировать и все записи из подчиненных таблиц. Потребность такая - есть таблица данных по семье к ней привязана таблица данных по членам семьи а к членам семьи несколько таблиц с характеристиками особенностей членов семьи и т.п. Нужно эту ветку связи перенести как шаблон с заменой кодов по которым связаны таблицы. Нет ли примера на vba реализующего такой перенос... | |
| |
| |
|
|
| |
|
|
| | а можно еще раз ТЗ - путано как-то - если я правильно понял - нужно создавать что-то типа "родственные связи" брат/деверь/шурин где члены семьи повторяются по нескольку раз и вы хотите к этим записям копировать запись из таблы
характеристиками особенностей членов семьи
|
но зачем???
ведь если он рыжий, высокий, хулиган - то создав новую связь он таким и останется, получится мы создаем 2 раза одну и туже запись в подчиненной табле, а при изменнении х-ки - лысый, высокий, хулиган - их нужно будет отслеживат во всех повторяющихся записях 
или у меня сегодня телепания страдает | |
| |
| |
| |
|
|
| | может быть так
Private Sub Кнопка266_Click()
Dim pole1, pole2, pole3
nompolisx = Me!кодсемьи ' исходный ключ в одной таблице
Set rst = dbs.OpenRecordset("дела семей", dbOpenDynaset) 'как сказать что только на добавление открываю
rst.AddNew
rst![дата консилиума] = Me![дата консилиума]
rst![фамилия] = Me![фамилия] ' и т д по всем полям записи из формы ....
rst![дата ввода] = Date 'часть полей изменяю
rst![отделение] = "ОПЖ" '
rst![ВРЕМЯ ОКОНЧАНИЯ] = Time
nomer = rst![кодсемьи] 'сохранение нового ключа ? будет ли он в этот момент или после обновления
rst.Update
rst.Close
'таким образом у меня есть старый ключ для поиска подчиненных и новый для замены
Set rst = dbs.OpenRecordset("анкета", dbOpenDynaset) 'можно ли открыть по условию
'Установка критериев поиска
strCriteria = "кодсемьи='nompolisx'" 'правильно ли пишу не знаю .... это поле связи кодсемьи
With rst
If .EOF = True Then GoTo FindAndChangeEnd 'Если таблица пустая то на выход...
.MoveLast 'Заполнение набора записями
.MoveFirst 'Возврат в начало
'Поиск
.FindFirst strCriteria
If Not rst.NoMatch Then 'Если искомое найдено
'Вкл режим добавления
.Add
'Изменение значения поля c ключом ....
!кодсемьи = nomer
.Update 'Сохранение
Else
MsgBox "По указанным критериям запись не найдена!", vbInformation
End If
End With
End Sub | |
| |
| |
| |
|
|
| | бли-и-и-н :)
а можно чуть подробнее о предметке?
в общем случае похоже на то, что тебе нужно описать полный граф отношений субъектов в семье | |
| |
| |
| |
|
|
| | спасибо всем.Нашла решение и все оказалось очень просто но муторно. Если интересно пришлю кусок. | |
| |
| |
| |
|
|
| | как всегда - женщина разговаривает сама с собой.  | |
| |
| |
