Спасибо, но:
Me.Dirty = False (и т.п. бубны, вплоть до простого DoCmd.... acSaveЧтоТоТам)
в главной приводит к передаче ей фокуса (- т.е. тот же резалт что и при .Update ее клона. проверял в тяпницу).
Проблема токмо в том, что юзер тыкает в некоторый контрол подчиненной, а оказывается в 1-м контроле главной, или (если я потрахался и вернул выделение на запись подчиненки) - в 1-м (или активном на момент _выхода_/_перехода_ - это от реализации) контроле подчиненки, а не в том, куда тыкал. Вот с этим и борюсь.
______
ЗЫ клон удобен тем, что единообразно правятся все процедуры
(и работы с формой, и выписки документа через рекордсеты (в т.ч. массовые))
т.е. вместо куска кода
.Edit
'...по кучке полей
.Update
вызывается (одна на все случаи):
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Sub addUNames(rst As Recordset, Optional Suff As String, Optional tStamp As Date)
On Error Resume Next 'не все поля могут наличествовать
If tStamp = 0 Then
tStamp = Now()
End If
With rst
.Fields("UserTime" & Suff) = Now()
.Fields("UserName" & Suff) = CurrentUser()
.Fields("UserNameW" & Suff) = UserNameEnv()
.Fields("ComputerName" & Suff) = ComputerNameEnv()
End With
End Sub
вот оттуда все и пошло.
_________
Проверил с BeforeUpdate (мастер) + AfterUpdate (сама) - все действительно работает тип-топ. Только запись в подчиненке, в которую "ткнули" перескакивает "под обрез" (как если бы я сам это все реализовал, но контрол правда нужной, и надуваться самому не надо). А если я пробовал открыть список в новой записи, то язычок списка "облизывается" (список чуть приоткрывается и тут же втягивается).
с удалениями получается полный абзац (хотя фокус тоже вертается, за счет разделения событий) - а именно - целых 3 процедуры:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Private Sub Form_Delete(Cancel As Integer)
If Not fOp Then
ApCnfrm = Application.GetOption("Confirm Record Changes")
Application.SetOption "Confirm Record Changes", True
fOp = True
End If
End Sub
Private Sub Form_AfterDelConfirm(Status As Integer)
If Not (Status = acDeleteOK) Then
'отменить вставку, потеряв фокус?
End If
'DoEvents 'вертаем фокус в подформу
Application.SetOption "Confirm Record Changes", ApCnfrm
fOp = False
End Sub
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
Response = acDataErrContinue
If MsgBox("удалить записи?", vbYesNo) = vbYes Then
upUNames Me.PARENT, "_T"
Else
Cancel = True
End If
End Sub
автортоже не без греха: - ну дак, не триггер, есс-но.
Т.ч. буду смотреть через запросы (мога там визуальных неожиданностей поменьше).
