автонумерация поля (помогите новичку...)

[Evgeny34]

Здоровья Всем! знания мои минимальны, облазил все и везде, похожего не нашел .
1. необходимо при создании новой(!) строки в таблице в поле (№ договора) автоматически генерировать следующий номер относительно предыдущей строки, но при копировании(!) строки номер должен остатся прежним (а посему поле не ключевое).
2. при создании новой строки в поле (дата) дата должна вводится текущим значением, но с возможностью корректировки дня/числа
Предполагаю что это элементарно но что-то нуууникаккк ...
Заранее благодарствую!

[megavolt]

Сообщение от Evgeny34

Здоровья Всем! знания мои минимальны, облазил все и везде, похожего не нашел .
1. необходимо при создании новой(!) строки в таблице в поле (№ договора) автоматически генерировать следующий номер относительно предыдущей строки, но при копировании(!) строки номер должен остатся прежним (а посему поле не ключевое).
2. при создании новой строки в поле (дата) дата должна вводится текущим значением, но с возможностью корректировки дня/числа
Предполагаю что это элементарно но что-то нуууникаккк ...
Заранее благодарствую!

1. При копировании Insert в таблу из вашей со счетчиком формат в табле будет поля числовым
2. now() значение по умолчанию в конструкторе таблицы

[megavolt]

Вообще, принцип построения базы - пофигу как строки порядок.

[Evgeny34]

с датой спасибо но успел уже и сам найти,
а по первому ничего не понял. во первых ключ дает последовательные номера, и все бы ничего но мне нужна возможность повторения номеров
рисую
ключ|№ дог
1 1
2 2
3 2
4 2
5 3
6 4
7 4
8 5
9 6
при нажатии кнопки "новый клиент" в форме, в таблице формируется новая строка с новым следующим номером дог, но при копировании последней строки меняются содержание некоторых полей, а основные в т.ч. №дог остаются - а может функция DMax поможет, можно ее в свойствах поля таблицы заставить в значение по умолчанию работать?

[Marchuk]

в таблице вроде нет.

[Marchuk]

я в форме что-то типа такого делал.

Sub FO()
Dim dbs As Database
Dim tdf As TableDef
Dim rec As Variant

Set dbs = CurrentDb
Set tdf = dbs.TableDefs("Calendar")
tdf.OpenRecordset.MoveLast
Set rec = dbs.OpenRecordset("Calendar", dbOpenSnapshot)
rec.MoveLast
Form_Главная!Поле3.Value = rec.Fields("Week_id").Value

End Sub