ник: Аленка
Для удобства ввода, у меня в одной форме несколько подчиненных форм. Причем формы вложены друг в друга поочередно, как в матрешке. То есть у основной есть подчиненная, у подчиненной своя подчиненная и т.д.
Мне нужно, чтобы при добавлении новой записи во ВСЕ формы вносилась информация об этом действии. С информацией об изменении записи все просто: пихаю нужные команды в событие ДО ОБНОВЛЕНИЯ и все в порядке. С добавлением сложнее для меня, так как здесь информация заносится лишь один раз.
Вот код. Что тут нужно изменить, чтобы заработало? СПАСИБО ОГРОМНОЕ
Public Sub InputContracts ()
DoCmd.OpenForm "Contracts", acNormal, "", "", , acNormal
DoCmd.GoToRecord , , acNewRec
With Forms(Contracts)
.Добавлено = Now()
.[Кем_добавлено] = Forms.login.ComboBox777
.[NetworkCpuNameAdd] = Forms.login.cmdUserCPU
End With
With Forms(Contracts_Details)
.Добавлено = Now()
.[Кем_добавлено] = Forms.login.ComboBox777
.[NetworkCpuNameAdd] = Forms.login.cmdUserCPU
End With
With Forms(Contracts_Rooms)
.Добавлено = Now()
.[Кем_добавлено] = Forms.login.ComboBox777
.[NetworkCpuNameAdd] = Forms.login.cmdUserCPU
End With
With Forms(Contracts_Service_Nick)
.Добавлено = Now()
.[Кем_добавлено] = Forms.login.ComboBox777
.[NetworkCpuNameAdd] = Forms.login.cmdUserCPU
End With
End Sub