ник: Анатолий (Киев)
Const strForm = "fsys_BDStructure_TABLES"
DoCmd.OpenForm strForm
DoCmd.GoToRecord acDataForm, strForm, acNewRec
With Forms(strForm)
...
End With
Кроме того открыть форму можно сразу на новой записи:
DoCmd.OpenForm strForm, , , , acFormAdd
А еще вносить текущее время и юзера лучше по событию Form_BeforeUpdate "fsys_BDStructure_TABLES", при сохранении новой записи если Me.NewRecord=True или поля пусты).
ЗЫ. Я знаю, как должно работать, но никогда не использую CodeContextObject, а у вас всё наоборот. 