"Ленточная форма и CheckBox в Access 2000" - 2

24.06.2007, 12:27. **Показов** 1576. **Ответов** 1

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

См. тему 'Ленточная форма в Access'. При реализации этого метода (с помощью поля Boolean в таблице) появилась такая проблема:
при выделении ЧекБокса у какой-либо ОДНОЙ записи и выполнении для нее команды (отчет, см. листинг
<i>Dim strFilter As String
If Me.FilterOn Then
strFilter = Me.Filter
strFilter = strFilter & 'and CheckBox = True'
End If

DoCmd.OpenReport ReportName:='Все', _
View:=acPreview, _
WhereCondition:=strFilter</i>
)ничего не появляется.
При выделении нескольких полей выводится отчет по всем записям, кроме той, которая была выделенна последней. После снятия ЧекБокса со всех записей выводится отчет по той записи, которая была убрана (снят ЧекБокс) последней.
И вообще, отчет выводит не все записи, отмеченные ЧекБоксом.
Как быть?
Есть ли другой саособ выделения записей в ленточной форме для последующих операций с ними?

24.06.2007, 20:27

Похоже проблема в следующем:
1. Чекбокс является несвязанным контролом. В этом случае действительно нажатие на один из флажков приводит к выделению всех чекбоксов. Таким образом чекбокс к каждой конкретной записи не привязать. Выход один - создать логическое поле в таблице и _связать_ чекбокс на форме с этим полем.
2. Касаемо того, что не выводится последняя запись... Скорее всего, не происходит update записи, потому, как нет перехода на след. запись. Под нажатие кнопки с обработкой вставь

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Таким образом ты принудительно сохраняешь изменения текущей записи.

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника Maks 21.03.2026 Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .

Nelson

	"Ленточная форма и CheckBox в Access 2000" - 2 24.06.2007, 12:27. Показов 1576. Ответов 1 Метки нет (Все метки) См. тему 'Ленточная форма в Access'. При реализации этого метода (с помощью поля Boolean в таблице) появилась такая проблема: при выделении ЧекБокса у какой-либо ОДНОЙ записи и выполнении для нее команды (отчет, см. листинг <i>Dim strFilter As String If Me.FilterOn Then strFilter = Me.Filter strFilter = strFilter & 'and CheckBox = True' End If DoCmd.OpenReport ReportName:='Все', _ View:=acPreview, _ WhereCondition:=strFilter</i> )ничего не появляется. При выделении нескольких полей выводится отчет по всем записям, кроме той, которая была выделенна последней. После снятия ЧекБокса со всех записей выводится отчет по той записи, которая была убрана (снят ЧекБокс) последней. И вообще, отчет выводит не все записи, отмеченные ЧекБоксом. Как быть? Есть ли другой саособ выделения записей в ленточной форме для последующих операций с ними?

msd
	24.06.2007, 20:27
	Похоже проблема в следующем: 1. Чекбокс является несвязанным контролом. В этом случае действительно нажатие на один из флажков приводит к выделению всех чекбоксов. Таким образом чекбокс к каждой конкретной записи не привязать. Выход один - создать логическое поле в таблице и _связать_ чекбокс на форме с этим полем. 2. Касаемо того, что не выводится последняя запись... Скорее всего, не происходит update записи, потому, как нет перехода на след. запись. Под нажатие кнопки с обработкой вставь DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Таким образом ты принудительно сохраняешь изменения текущей записи.