+ к ответу Владимира Саныча

Не желательно пользоваться в ADP.

Еще вариант

docmd.gotorecord ,,acnewrec

При этом если речь идет о подчиненной формы, а код вызывается из главной, надо выполнить

me.подчиненнаяформа.form.контролподчиненнойформы.setfocus

:))

Подозреваю, что автору надо быть уверенным, что при любых действиях пользователя запись будет сохранена, например, чтобы дальше пользоваться в программе ее ключем (форма открыта в режиме диалогового окна).
(хотя это и не всегда удобно пользователю)

Встречный вопрос: а почему бы не сказать об этом сразу?

Отвечаю в меру сил.

private sub form_current()
me.Какоенибудьполе=null
docmd.runcommand accmdsaverecord
end sub

Заполнить нужно поле, в котором разрешены пустые значения. Перед сохранением записи надо заполнить все обязательные поля (кроме, соответственно, счетчика - он сам заполнится).

---

Такой способ создаст запись, но есть одно но. В этой форме пользователь сможет и дальше создаваться записи. Если нужно быть уверенным, что будет создана только одна запись, нужно воспользоваться способом ВС и чуть-чуть дописать:

dim rs as dao.recordset
dim idNewRec as long
set rs = currentdb.openrecordset("mytable")
rs.addnew
'тут заполнить необходимые поля
inNewRec = rs.Id
rs.update
docmd.openform "myform",,"Id=" & IdNewRec,acedit
Forms("FyForm").allowDeletions=false
Forms("FyForm").allowAdditions=false

Примерно так...