Private Sub __BeforeInsert(Cancel As Integer) ' - If Format(Me._, "w", 2) = 6 Or Format(Me._, "w", 2) = 7 Then Me._.SetFocus DoCmd.OpenForm "DatePicker" End If End Sub
https://www.sql.ru/forum/1314215/sobytie-pered-sozdaniem-novoy-zapisi