Нумерация строк в форме

@INexteR · Регистрация: 25.01.2023

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

Приветствую, уважаемые, есть необходимость в табличной форме помимо основных данных из таблицы отобразить столбец, в котором будет отображаться нумерация строк. Чтобы пользователь открыл форму и в ней вот тут же присутствовала нумерация в первом столбце. Есть ли способ добиться этого с помощью vba? Уже много чего перепробовал и всё бестолку (либо получается что весь столбец заполнен одним и тем же номером, либо при выборе строки меняются значения во всем столбце на её порядковый номер; это подходит только для простой формы)

@INexteR · 09.03.2025, 14:55 **[ТС]**

Панург, пожалуйста ◕ᴥ◕

@Панург · 09.03.2025, 15:39

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

как это работает

Свойство Recordset.AbsolutePosition (DAO)

Добавлено через 3 минуты
Свойство Recordset.Bookmark (DAO)

Свойство Form.RecordsetClone (Access)

@Eugene-LS · 09.03.2025, 18:13

INexteR, в простеньком примере из Post#19 , не включена перенумерация после удаления записи.
Если нужна - добавьте в модуль формы:

Visual Basic
1
2
3
4
Private Sub Form_AfterDelConfirm(Status As Integer)
'Перенумерация после удаления записи
    If Status = acDeleteOK Then Me.[Ваше поле счётчика].Requery
End Sub

@Панург · 09.03.2025, 19:15

Сообщение от Eugene-LS

Если нужна - добавьте в модуль формы:

ели предполагать, то предлагать грамотно

Requery тут совершенно избыточно -тянуть данные по-новой. Более легковесного Recalc тут достаточно

@Eugene-LS · 09.03.2025, 19:20

Сообщение от Панург

Recalc тут достаточно

Согласен!

И с добавлением новых записей, после удаления, не всё в порядке, к сожалению.

@Eugene-LS · 10.03.2025, 14:40

Сообщение от Панург

Requery тут совершенно избыточно -тянуть данные по-новой

Какие данные! Поле то не связано ...
Проверил: И при Rerquery поля, и при Recalc формы - исполняются (в данном случае) одни и те же вычисления.
На скорость гонять поленился.

А по поводу нумерации новых записей пока так:

Visual Basic
1
2
3
4
5
6
7
8
        ' Экранирование повтора номера на новой записи, для "красоты восприятия"
        If SRCForm.AllowAdditions Then ' Добавление в форме разрешено
            ' Если находимся на новой и "грязной" (редактируемой) записи
            If SRCForm.NewRecord And SRCForm.Dirty Then
                FrmNumRec = "..."      ' Тут то, что отображаем на новой записи
                GoTo FrmNumRecBye      ' Фсё! - На выход!
            End If
        End If

...
The Requery method updates the data underlying a specified control that's on the active form by requerying the source of data for the control.
...
If the object specified by expression isn't bound to a field in a table or query, the Requery method forces a recalculation of the control.

@Панург · 10.03.2025, 17:34

Сообщение от Eugene-LS

Какие данные! Поле то не связано ...
Проверил: И при Rerquery поля, и при Recalc формы - исполняются (в данном случае) одни и те же вычисления.

да даже и так - ну и что? Зачем знать конкретный контрол, если есть специализированный метод формы? В общем - ниачём...

@Eugene-LS · 10.03.2025, 17:46

Сообщение от Панург

В общем - ниачём...

Как предисловие ко второму абзацу ...
В пост #25 кто то про "грамотность" намекнул ...
Думаю, будь в форме ещё расчётные поля (что запросто), то Recalc исполнился бы медленнее чем Requery одного не связанного поля.
Теперича: ФСЁ!

@Панург · 10.03.2025, 18:26

Сообщение от Eugene-LS

В пост #25 кто то про "грамотность" намекнул ...

но ты же не знал что непривязанный контрол просто пересчитается (да я тоже сроду для текстбокса не применял) ? Именно в 25 посте ты сам согласился с этим. Ну какбэ ты повысил свою грамотность, благодаря моему замечанию. такчта... я был прав фактически. А избыточная информация представленная тобой... ну пусть будет

@Eugene-LS · 10.03.2025, 18:59

Сообщение от Панург

А избыточная информация

Ну пусть будет избыточная ...

Скрин по примеру из пост #19.

@Eugene-LS · 10.03.2025, 19:36

INexteR, Версия с учётом постов # 23 и 30 (удаление и добавление).

@INexteR · 15.03.2025, 17:56 **[ТС]**

Eugene-LS, Панург, интересная дискуссия и спасибо за решения!

@Eugene-LS · 15.03.2025, 19:36

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

интересная дискуссия

Это в каком месте она была "интересная"?

@INexteR · 23.03.2025, 16:56 **[ТС]**

Eugene-LS, начиная с этого момента Нумерация строк в форме

Новые блоги и статьи Все статьи Все блоги /
Из невышедшего на форуме-2. Беседа с ИИ об олдскульных разработчиках и их методов в программировании zorxor 23.09.2026 Друзья, этот материал не вышел на форуме, а хотя он очень и очень важный. Хотя, точнее, материал этот вышел, но оказался несовместимым с форматом форума. А тут можно, в блоге. . . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

@INexteR 17 / 16 / 1 Регистрация: 25.01.2023 Сообщений: 468

	Нумерация строк в форме 20.02.2025, 18:08. Показов 4791. Ответов 33 Метки access (Все метки) Приветствую, уважаемые, есть необходимость в табличной форме помимо основных данных из таблицы отобразить столбец, в котором будет отображаться нумерация строк. Чтобы пользователь открыл форму и в ней вот тут же присутствовала нумерация в первом столбце. Есть ли способ добиться этого с помощью vba? Уже много чего перепробовал и всё бестолку (либо получается что весь столбец заполнен одним и тем же номером, либо при выборе строки меняются значения во всем столбце на её порядковый номер; это подходит только для простой формы) 0

@INexteR 17 / 16 / 1 Регистрация: 25.01.2023 Сообщений: 468
	09.03.2025, 14:55 [ТС]
	Панург, пожалуйста ◕ᴥ◕ 0

@INexteR 17 / 16 / 1 Регистрация: 25.01.2023 Сообщений: 468
	15.03.2025, 17:56 [ТС]
	Eugene-LS, Панург, интересная дискуссия и спасибо за решения! 0

@INexteR 17 / 16 / 1 Регистрация: 25.01.2023 Сообщений: 468
	23.03.2025, 16:56 [ТС]
	Eugene-LS, начиная с этого момента Нумерация строк в форме 0

Нумерация строк в форме

Решение