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

@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, начиная с этого момента Нумерация строк в форме

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого 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: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

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

	Нумерация строк в форме 20.02.2025, 18:08. Показов 4794. Ответов 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

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

Решение