Удаление отмеченных записей из раздельно формы

@SumraK_kin · Регистрация: 13.12.2013

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

Всем привет помогите пожалуйста безграмотному! Есть таблица Товар с полями (Артикул, название, Цена, Товар, Удалить) Поле удалить логическое. Есть раздельная форма на таблицу есть кнопка удалить отм. Помогите с VBA кодом, что бы удалялись отмеченные записи. Базу прилагаю. Заранее всем благодарен за помощь!

p.s. и за одно подскажите как уменьшить ширину формы. При открытии в таблице открывается 4 пустых поля. Перепробовал все варианты но сузить форму так и не удалось

@SumraK_kin · 15.01.2014, 12:48 **[ТС]**

Ребят помогите пожалуйста очень надо неудобно удалять по 1 записи, а как сделать не знаю

или я слишком много хочу от access ?

@byte1987 · 15.01.2014, 12:56

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

Помогите с VBA кодом, что бы удалялись отмеченные записи.

Может стоит не удалять, а помечать как "удалено"? А на форме отобразить все без "галочек".

P.S. по сабжу:

Visual Basic
1
2
CurrentProject.Connection.Execute("Delete * From [Товар] Where [Удалить]=True")
Me.Requery

@SumraK_kin · 15.01.2014, 13:00 **[ТС]**

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

Может стоит не удалять, а помечать как "удалено"? А на форме отобразить все без "галочек".

P.S. по сабжу:

Visual Basic
1
2
CurrentProject.Connection.Execute("Delete * From [Товар] Where [Удалить]=True")
Me.Requery

Нет нужно именно удаление. И что значит по сабжу?

@byte1987 · 15.01.2014, 13:04

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

Нет нужно именно удаление.

Ну тогда, как показал.

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

И что значит по сабжу?

http://lurkmore.to/%D0%A1%D0%B0%D0%B1%D0%B6

mobile · 15.01.2014, 13:08

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

подскажите как уменьшить ширину формы. При открытии в таблице открывается 4 пустых поля

На событии загрузки формы пишете

Visual Basic
1
2
3
4
Me.Поле1.ColumnWidth=0   'Или ColumnHidden=True
Me.Поле2.ColumnWidth=0
Me.Поле3.ColumnWidth=0
Me.Поле4.ColumnWidth=0

@SumraK_kin · 15.01.2014, 13:24 **[ТС]**

Уважаемый mobile. Ваш вариант не подходит наверное я не совсем корректно объяснил. Попробую выразиться по подробней. Форма Раздельная вверху область данных внизу таблица. Дак вот таблица открывается с полями Артикул, Название, Цена, Товар, Удалить и дальше идёт пустое место 3,5 колонки. И сузить таблицу в ручную можно но при закрытии/открытии она опять широкая. В конструкторе ширина формы стоит 23,996см и поменять эту цифру он не даёт

Огромное спасибо byte1987 за код!

mobile · 15.01.2014, 15:03

А, разделенная форма!!! Тогда не знаю. Извините за непреднамеренную дезинформацию

Добавлено через 1 час 4 минуты
Посмотрел на забугорных форумах. Тоже не знают как справиться со SplitForm-контролами. Это баг. Наверное. Да и вообще, нафига она нужна эта разделенная форма. Одни неприятности и неудобства. Обычная подчиненная форма делается на 2 минуты дольше, но потом ничего больше не болит за нее. Все работает.

@SumraK_kin · 15.01.2014, 16:59 **[ТС]**

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

P.S базу прикладываю код для кнопки такой:

Visual Basic
1
2
3
4
Private Sub у_заказ_Click()
CurrentProject.Connection.Execute ("Delete * From [Заказы] Where [Удалить_заказ]=True")
Forms![Заказы].Requery
End Sub

@byte1987 · 15.01.2014, 17:07

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

То есть приходиться нажимать на кнопку 2 раза что бы удалились отмеченные строки - это если отметить один элемент, а если к примеру отметить три элемента, то при первом нажатии удалится 2 элемента при 2 нажатии на кнопку удалится оставшийся элемент.

Может, запись еще в режиме редактирования?
Попробуйте так:

Visual Basic
1
2
3
4
5
Private Sub у_заказ_Click()
Me.Requery 'Или переведите фокус на кнопку(хотя не знаю, поможет ли в разделенной форме)
CurrentProject.Connection.Execute ("Delete * From [Заказы] Where [Удалить_заказ]=True")
Forms![Заказы].Requery
End Sub

P.S. Неплохо бы в mdb базу выкладывать на форум.

@SumraK_kin · 15.01.2014, 17:14 **[ТС]**

Спасибо огромное за быстрый ответ. Второй код помог. Ещё раз спасибо!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

@SumraK_kin 0 / 0 / 1 Регистрация: 13.12.2013 Сообщений: 96
	15.01.2014, 12:48 [ТС]
	Ребят помогите пожалуйста очень надо неудобно удалять по 1 записи, а как сделать не знаю или я слишком много хочу от access ? 0

@SumraK_kin 0 / 0 / 1 Регистрация: 13.12.2013 Сообщений: 96
	15.01.2014, 13:24 [ТС]
	Уважаемый mobile. Ваш вариант не подходит наверное я не совсем корректно объяснил. Попробую выразиться по подробней. Форма Раздельная вверху область данных внизу таблица. Дак вот таблица открывается с полями Артикул, Название, Цена, Товар, Удалить и дальше идёт пустое место 3,5 колонки. И сузить таблицу в ручную можно но при закрытии/открытии она опять широкая. В конструкторе ширина формы стоит 23,996см и поменять эту цифру он не даёт Огромное спасибо byte1987 за код! 0

mobile 26825 / 14505 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	15.01.2014, 15:03
	А, разделенная форма!!! Тогда не знаю. Извините за непреднамеренную дезинформацию Добавлено через 1 час 4 минуты Посмотрел на забугорных форумах. Тоже не знают как справиться со SplitForm-контролами. Это баг. Наверное. Да и вообще, нафига она нужна эта разделенная форма. Одни неприятности и неудобства. Обычная подчиненная форма делается на 2 минуты дольше, но потом ничего больше не болит за нее. Все работает. 0

@SumraK_kin 0 / 0 / 1 Регистрация: 13.12.2013 Сообщений: 96
	15.01.2014, 17:14 [ТС]
	Спасибо огромное за быстрый ответ. Второй код помог. Ещё раз спасибо! 0