Как сделать автонумерацию на поле номер договора а не счетчик?

@Yalchin · Регистрация: 07.03.2022

Студворк — интернет-сервис помощи студентам

Уважаемые программисты.

Прошу о помощи, как мне присвоить последующий номер в поле номер договора вроде как счетчика каждый раз чтобы в это поле прибавлялся значение +1?

Намример: предыдущий номер договора в записи 089, а после при добавление новой записи чтобы поле автоматически отображал 090 и тд.

Заранее благодарю, за правильный ответ.

P.S.
Я думаю, что это простое задание, но я пока новичок, поэтому поймите и помогите.

@ltv_1953 · 13.04.2022, 12:53

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

Вот такая ошибка выскакивает

Прочитать в справке VBA о константе dbOpenForwardOnly что мешает. DAO не подключили ... .

@Capi · 13.04.2022, 13:02

Yalchin,

Вам же было ещё вчера сказано: кавычки закрывающей нет.
Перед запятой.
Сама запятая появилась.

И скобка закрывающая не на месте.

Делайте без dbOpenForwardOnly вообще, раз совсем не понимаете, что к чему.

А ещё лучше, просто через DMax.

Visual Basic
1
Me.DLM = NZ(DMax("DLM", "<тут должно быть имя таблицы, сами поставьте нужное>")) + 1

@Capi · 13.04.2022, 13:04

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

Прочитать в справке VBA о константе dbOpenForwardOnly что мешает. DAO не подключили

Да у него там эта константа воспринимается как имя таблицы, входящей в декартово произведение.

@SDKU · 13.04.2022, 13:11

На сколько я понимаю на форме\в таблице должно быть поле дата
Тогда такой вариант (с нового года нумерация начинается по новой, с 1):

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub дата_AfterUpdate() 
Dim myCount
myCount = DCount("*", "договора", "Year(дата)=" & Year(Me.дата)
If myCount = 0 Then
Me.договор= "бла-бла № 1"
Else
Me.договор= "бла-бла № " &  myCount + 1
End If
End Sub

@Capi · 13.04.2022, 13:20

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

DCount

Ага.
А удалили какие-то записи, и пошли дубликаты.

Добавлено через 2 минуты

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

Me.договор= "бла-бла № 1"

Текстовым номер договора делать будем?
Как-то не очень.

@SDKU · 13.04.2022, 13:37

1. с какого перепугу возможно удаление оформленного договора-по моему это вообще надо запретить.(Ну разве что история не нужна...)
2. а почему не текст-допустим в нумерации договоров есть какой-то префикс-впрочем тип данных ТС выберет сам

@VinniPuh · 13.04.2022, 14:17

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

...а почему не текст-допустим в нумерации договоров...

А шо?
Так можно было?

@Yalchin · 13.04.2022, 14:21 **[ТС]**

Как подключить DAO?

@Capi · 13.04.2022, 14:28

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

Как подключить DAO?

Да не нужно это.

Делайте, как показано - через DMax.

Добавлено через 1 минуту
Вот здесь сказано же: https://www.cyberforum.ru/post16174232.html

Добавлено через 1 минуту
Скобки <...> в имени таблицы не ставьте!

@Yalchin · 13.04.2022, 14:48 **[ТС]**

Не получается.

Run-Time error ' 137':
Type mismatch

Выскакивает.

@Capi · 13.04.2022, 14:50

Не по теме:

Точно, до лета не разберёмся...

Yalchin,

Выражение своё покажите.

@Yalchin · 13.04.2022, 14:51 **[ТС]**

SQL
1
Me.DLM = NZ(DMax("DLM", "BLC")) + 1

@Capi · 13.04.2022, 15:00

1. Что такое BLC ?
2. Какой тип поля DLM ?

3. Так пробовали?

Visual Basic
1
Me.DLM = NZ(DMax("DLM", "BLC"), 0) + 1

4. Уже есть другие записи в таблице договоров?

@АЕ · 13.04.2022, 15:15

Yalchin, кто как. Я например судовые дела нумеровал (а договора можно также) в текстовом поле
по маске 0001/22, где последние две цифры это год. И каждый год начинался с 1. Принцип поиска максимального тот же что предложила Capi за исключением, что вычленял еще год запросиком.

@Yalchin · 13.04.2022, 15:19 **[ТС]**

1. DLM - числовое поле
2. BLC - имя таблицы
И так пробовал

SQL
1
Me.DLM = NZ(DMax("DLM", "BLC"), 0) + 1

@Capi · 13.04.2022, 15:23

Yalchin,

Не на все вопросы ответили.

@Yalchin · 13.04.2022, 15:26 **[ТС]**

Я проверял в двух вариантах.
База заполненная и пустая. Одна та ошибка выскакивает.

@Capi · 13.04.2022, 15:27

АЕ,

У меня тоже в одном из проектов договоры нумеруются внутри года.
Но сам год там не фигурирует.
Для формирования полного представления номера (с годом через знак дроби)
год берется при надобности из даты договора.

@АЕ · 13.04.2022, 15:30

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

И так пробовал

пробуйте так

Visual Basic
1
Me.DLM = NZ(DMax("[DLM]", "BLC"), 0) + 1

Добавлено через 1 минуту

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

Но сам год там не фигурирует.

тогда будут совпадать номера. Или я не понял?

@Capi · 13.04.2022, 15:32

Сообщение от АЕ

тогда будут совпадать номера

Будут.
Но есть еще дата заключения договора (откуда год потом берется).

И вот их пары уже не совпадают.

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@Yalchin 5 / 0 / 0 Регистрация: 07.03.2022 Сообщений: 39

	Как сделать автонумерацию на поле номер договора а не счетчик? 12.04.2022, 18:25. Показов 3009. Ответов 45 Метки нет (Все метки) Уважаемые программисты. Прошу о помощи, как мне присвоить последующий номер в поле номер договора вроде как счетчика каждый раз чтобы в это поле прибавлялся значение +1? Намример: предыдущий номер договора в записи 089, а после при добавление новой записи чтобы поле автоматически отображал 090 и тд. Заранее благодарю, за правильный ответ. P.S. Я думаю, что это простое задание, но я пока новичок, поэтому поймите и помогите. 0

@SDKU 598 / 404 / 51 Регистрация: 06.03.2022 Сообщений: 2,129
	13.04.2022, 13:37
	1. с какого перепугу возможно удаление оформленного договора-по моему это вообще надо запретить.(Ну разве что история не нужна...) 2. а почему не текст-допустим в нумерации договоров есть какой-то префикс-впрочем тип данных ТС выберет сам 0

@Yalchin 5 / 0 / 0 Регистрация: 07.03.2022 Сообщений: 39
	13.04.2022, 14:21 [ТС]
	Как подключить DAO? 0

@Yalchin 5 / 0 / 0 Регистрация: 07.03.2022 Сообщений: 39
	13.04.2022, 14:48 [ТС]
	Не получается. Run-Time error ' 137': Type mismatch Выскакивает. 0

@Capi Модератор 6231 / 2909 / 708 Регистрация: 12.06.2016 Сообщений: 7,839
	13.04.2022, 14:50
	Не по теме: Точно, до лета не разберёмся... Yalchin, Выражение своё покажите. 0

@АЕ ᴁ © 4088 / 2469 / 514 Регистрация: 13.12.2016 Сообщений: 8,397 Записей в блоге: 5
	13.04.2022, 15:15
	Yalchin, кто как. Я например судовые дела нумеровал (а договора можно также) в текстовом поле по маске 0001/22, где последние две цифры это год. И каждый год начинался с 1. Принцип поиска максимального тот же что предложила Capi за исключением, что вычленял еще год запросиком. 0

@Capi Модератор 6231 / 2909 / 708 Регистрация: 12.06.2016 Сообщений: 7,839
	13.04.2022, 15:23
	Yalchin, Не на все вопросы ответили. 0

@Yalchin 5 / 0 / 0 Регистрация: 07.03.2022 Сообщений: 39
	13.04.2022, 15:26 [ТС]
	Я проверял в двух вариантах. База заполненная и пустая. Одна та ошибка выскакивает. 0

@Capi Модератор 6231 / 2909 / 708 Регистрация: 12.06.2016 Сообщений: 7,839
	13.04.2022, 15:27
	АЕ, У меня тоже в одном из проектов договоры нумеруются внутри года. Но сам год там не фигурирует. Для формирования полного представления номера (с годом через знак дроби) год берется при надобности из даты договора. 0