powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Удаление записи
52 сообщений из 52, показаны все 3 страниц
Удаление записи
    #32538106
Victor5000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Такое дело, есть форма, созданная для ввода данных в таблицу. В ней кнопка удалить запись. При нажатии на нее Access спрашивает подтверждения на удаление.(В желтом окне: "Microsoft Access Предпринимается попытка удалить ... ") Вопрос: можно это отменить или заменить на свое окно?
Как-то не красиво получается, что порекомендуете делать, товарищи!
...
Рейтинг: 0 / 0
Удаление записи
    #32538129
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
DoCmd.SetWarning False
удаление записи
DoCmd.SetWarning True
...
Рейтинг: 0 / 0
Удаление записи
    #32538135
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
блин, опечатка:
docmd.SetWarning s
...
Рейтинг: 0 / 0
Удаление записи
    #32538142
io
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
"delete NameTable where id=" & Screen.ActiveForm!NameField или Me.NameField
И вызывай эту констукцию из своего окна.
...
Рейтинг: 0 / 0
Удаление записи
    #32538154
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
CurrentDB.Execute

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
Удаление записи
    #32538207
Victor5000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
CurrentDB.Execute - как понимать, объясните плизз.
...
Рейтинг: 0 / 0
Удаление записи
    #32538219
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
что-то типа этого:

Код: plaintext
CurrentDb.Execute "DELETE * FROM Table WHERE RecordID = " & me!RecordID
...
Рейтинг: 0 / 0
Удаление записи
    #32538280
Victor5000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Тут ошибку он выдает: Процесс остановлен ядром Microsoft Jet, так как другой пользователь пытается одновресенно изменить те же данные.
Но записи удаляет...
Как быть?
...
Рейтинг: 0 / 0
Удаление записи
    #32538288
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
compact/repair попробуй сделать для начала
...
Рейтинг: 0 / 0
Удаление записи
    #32538309
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
CurrentDB.Execute ..., dbFailOnError

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
Удаление записи
    #32538357
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Kelme

ПАМЯТКА ОТВЕЧАЮЩЕМУ

п.2
...
Рейтинг: 0 / 0
Удаление записи
    #32538376
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо, учту ;)
...
Рейтинг: 0 / 0
Удаление записи
    #32538389
Victor5000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А compact/repair как делать?, извини ламера.
Сделал CurrentDB.Execute ..., dbFailOnError , продолжает ругаться.
...
Рейтинг: 0 / 0
Удаление записи
    #32538396
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторА compact/repair как делать?

Меню Сервис --> Служебные программы --> Сжать/Восстановить базу
...
Рейтинг: 0 / 0
Удаление записи
    #32538426
Victor5000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
НЕ помогло...
...
Рейтинг: 0 / 0
Удаление записи
    #32538435
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У тебя база разненсена на данные и клиентскую часть?
...
Рейтинг: 0 / 0
Удаление записи
    #32538443
Victor5000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
нет
БД должна быть простенькой для доступа в однопользовательском режиме.
...
Рейтинг: 0 / 0
Удаление записи
    #32538452
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Попробуй импортнуть всё в новую базу
...
Рейтинг: 0 / 0
Удаление записи
    #32538453
Фотография Shark
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А я так делаю:
Dim B1 As Boolean
B1 = GetOption("Confirm Action Queries")
SetOption "Confirm Action Queries", False

что- то ужасное

SetOption "Confirm Action Queries", B1

А правильный способ устранения ВСЕХ проблем эксеса- импорт всех объектов в пустую базу. При разработке это раз в неделю надо делать. При некотором навыке;-) это занимает две минуты. импортировал, поправил референсы, поправил параметры запуска и ура.
...
Рейтинг: 0 / 0
Удаление записи
    #32538454
Фотография Shark
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
апаздал
...
Рейтинг: 0 / 0
Удаление записи
    #32538459
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вешаешь на событие открытия формы:
SetOption ("0Confirm Document Deletions"), 0 - это выключить;

А на закрытие формы:
SetOption ("0Confirm Document Deletions"), 1 - включить.
...
Рейтинг: 0 / 0
Удаление записи
    #32538467
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Daf:
а причем здесь удаление объектов базы? ;)
...
Рейтинг: 0 / 0
Удаление записи
    #32538475
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Либо если нужно свое окно, то:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim strSQL
    ' Подавляет вывод стандартного диалогового окна.
    response = acDataErrContinue
    ' Выводит специальное диалоговое окно.
    If MsgBox("Удалить запись?", vbExclamation + vbOKCancel) = vbCancel Then
           Cancel = True
              что то там....             
    Else
              что то другое...              
    End If
...
Рейтинг: 0 / 0
Удаление записи
    #32538495
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Эх, и точно, ошибся....


Вешаешь на событие открытия формы:
SetOption ("Confirm Record Changes"), 0 - это выключить;

А на закрытие формы:
SetOption ("Confirm Record Changes"), 1 - включить.
...
Рейтинг: 0 / 0
Удаление записи
    #32538584
Victor5000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Окошко сделал
Dim strSQL

response = acDataErrContinue
If MsgBox("Удалить запись?", vbExclamation + vbOKCancel) = vbCancel Then
Cancel = True


Else

DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True
End If

А с "CurrentDb.Execute "DELETE * FROM Table WHERE RecordID = " & me!RecordID"
продолжает ругаться
...
Рейтинг: 0 / 0
Удаление записи
    #32538615
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ээээ....
А у тебя таблица Table1, поле RecordID имеются? ;)
это я тебе для примера написал, и не забудь dbFailOnError в CurrentDb.Execute поставить.
...
Рейтинг: 0 / 0
Удаление записи
    #32538647
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А до окошка, что не ругался?

и где ты это пишишь?

Код: plaintext
CurrentDb.Execute "DELETE * FROM Table WHERE RecordID = " & me!RecordID
...
Рейтинг: 0 / 0
Удаление записи
    #32538686
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
пилять....
сори вырвалось...

вопросы
1. Ты когда-нить писал что-нить ручками в VBA/SQL?
2. есть ли параметр(ы) который однозначно определяет текущую запись если есть приведи их здесь, с описанием формата, и название соответствующего(их) полей в таблице...

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
Удаление записи
    #32538687
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ах да ещё текст ошибки

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
Удаление записи
    #32538692
Victor5000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Private Sub Кнопка20_Click()
On Error GoTo Err_Кнопка_Click
CurrentDb.Execute "DELETE * FROM Счет WHERE КодДокумента= " & Me!КодДокумента, dbFailOnError




DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Кнопка20_Click:
Exit Sub

Err_Кнопка20_Click:
MsgBox Err.Description
Resume Exit_Кнопка20_Click

End Sub

Окошко в другой форме с такойже кнопкой удаления!
Вместо Table1, RecordID свои имена вбил, ребята!!! Оно же бы тогда меня сразу в текст кода тыкало.
В принципе, меня создаваемое окошко устраивает. С "CurrentDb.Execute "DELETE * FROM Счет WHERE КодДокумента= " & Me!КодДокумента, dbFailOnError" - черт с ним. Хотелось этот вариант просто попробывать, сравнить, что лучше. Видать, не очень он корректный.
Так что всем спасибо!!!
С днем пограничника!!! :-)
...
Рейтинг: 0 / 0
Удаление записи
    #32538702
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ещё раз пять-десять пилять...

у тебя ошибка вылетает не на CurrentDb.Execute...
а на
Код: plaintext
1.
2.
DoCmd.DoMenuItem acFormBar, acEditMenu,  8 , , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu,  6 , , acMenuVer70
что и есть удаление записи только через меню...

в итоге у тебя должОн получится такой код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Кнопка20_Click()
On Error GoTo Err_Кнопка_Click
  CurrentDb.Execute "DELETE * FROM Счет WHERE КодДокумента= " _
    & Me!КодДокумента, dbFailOnError
  Me.RecordSourse = Me.RecordSourse  'для обновления данных на форме
 
  Exit_Кнопка20_Click:
  Exit Sub
Err_Кнопка20_Click:
  MsgBox Err.Description
  Resume Exit_Кнопка20_Click
End Sub

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
Удаление записи
    #32538714
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Sfagnum, хочу уточнить на будущее:

Код: plaintext
1.
DoCmd.DoMenuItem acFormBar, acEditMenu,  8 , , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu,  6 , , acMenuVer70

Это работат через стандартное меню. И если его отключить, то вылезает ошибка?
...
Рейтинг: 0 / 0
Удаление записи
    #32538731
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
никогда не пользовался, такие конструкции вызывают у меня панический страх, так что однзначно ответить не смогу, но что точно, так это то что индексы меняются от версии к версии...

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
Удаление записи
    #32538738
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибки за инфу...
...
Рейтинг: 0 / 0
Удаление записи
    #32538740
Victor5000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
убрал:

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Ошибки нет

А на месте RecordSourse в "Me.RecordSourse = Me.RecordSourse" что должно то быть имя таблицы? Чего-то не втыкаюсь...
...
Рейтинг: 0 / 0
Удаление записи
    #32538751
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
автор
А на месте RecordSourse в "Me.RecordSourse = Me.RecordSourse" что должно то быть имя таблицы? Чего-то не втыкаюсь


должно так и остаться, это аналог Me.Requery
...
Рейтинг: 0 / 0
Удаление записи
    #32538762
Victor5000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Так оно же ругается на: Me.RecordSourse = Me.RecordSourse
...
Рейтинг: 0 / 0
Удаление записи
    #32538774
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ругается, на *уй посылает.....

очень ценная инфа, номер ошибки слабо сказать, или сообщение само...
...
Рейтинг: 0 / 0
Удаление записи
    #32538777
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А если попробовать в место
Код: plaintext
Me.RecordSourse = Me.RecordSourse

написать Form.Requery
...
Рейтинг: 0 / 0
Удаление записи
    #32538799
Victor5000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ААААА! Прости ламера.
Ругается Microsoft Visual Basic:
Compile error:
Method or data member not found

Указывает на:
Private Sub Кнопка20_Click()
On Error GoTo Err_Кнопка20_Click
CurrentDb.Execute "DELETE * FROM Счет WHERE КодДокумента = " & Me!КодДокумента, dbFailOnError

Me.RecordSourse = Me.RecordSourse '(Этот RecordSourse выделен!)


Exit_Кнопка20_Click:
Exit Sub

Err_Кнопка20_Click:
MsgBox Err.Description
Resume Exit_Кнопка20_Click


End Sub

Вот...
Что думаешь?
...
Рейтинг: 0 / 0
Удаление записи
    #32538802
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
RecordSour c e, господа!!!
...
Рейтинг: 0 / 0
Удаление записи
    #32538808
Victor5000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вот, блин!
Спасибо Саныч!
Спасибо Daf!
Спасибо Kelme!

Все отлично работает!!!
...
Рейтинг: 0 / 0
Удаление записи
    #32538809
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ребят сильно не материтесь но походу у меня ачепятка закралась надо:
me.RecordSour c e = me.RecordSour c e

а в чём смысл: мы переназначаем сурс формы, на что форма реагирует однозначно - загружает данные из нового сурса. Но так как нам надо только обновить то мы подсовываем ему старое значение RecordSource. и получаем эффект обновление данных, почму так делаю, просто у меня сложилось что это единственный способ 100% обновить форму... за подробностями к поиску на форме...

ЗЫ Читай всё таки ошибки

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
Удаление записи
    #32538813
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Апаздал!!!(с) первоисточник не помню...

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
Удаление записи
    #32585959
Dmitry-SQL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Господа!
В продолжение темы:

Код: plaintext
CurrentDb.Execute ("DELETE * FROM Состояние_ТЕ WHERE №_п/п=" & Me.№_п_п & ";", dbFailOnError)
Говорит - ошибка синтаксиса.

Код: plaintext
CurrentDb.Execute ("DELETE * FROM Состояние_ТЕ WHERE №_п/п=" & Me.№_п_п & ";")
или
Код: plaintext
CurrentDb.Execute ("DELETE * FROM Состояние_ТЕ WHERE №_п/п=" & Me.№_п_п)
Говорит - мало параметров, нужно 2.

Что-то, где-то?
...
Рейтинг: 0 / 0
Удаление записи
    #32585982
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Dmitry-SQLГоворит - ошибка синтаксиса.
http://www.sql.ru/faq/faq_topic.aspx?fid=213
вопрос 15.
...
Рейтинг: 0 / 0
Удаление записи
    #32585986
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Dmitry-SQLГоворит - мало параметров, нужно 2.
Чему равно Me.№_п_п?
...
Рейтинг: 0 / 0
Удаление записи
    #32585992
Dmitry-SQL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
strSQL = "DELETE * FROM Состояние_ТЕ WHERE '№_п/п=" & Me.№_п_п & "'"
CurrentDb.Execute strSQL
Йо-х-хо! Удаляет ВСЁ!
...
Рейтинг: 0 / 0
Удаление записи
    #32586032
Dmitry-SQL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
strSQL = "DELETE * FROM Состояние_ТЕ WHERE №_п/п=" & Me.№_п_п
CurrentDb.Execute strSQL
Мало параметров...
...
Рейтинг: 0 / 0
Удаление записи
    #32586037
Dmitry-SQL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Владимир СанычЧему равно Me.№_п_п?
Это счетчик - целое число.
...
Рейтинг: 0 / 0
Удаление записи
    #32586508
Dmitry-SQL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Кто-нибудь подскажет?
...
Рейтинг: 0 / 0
Удаление записи
    #32586523
Dmitry-SQL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
strSQL = "DELETE * FROM Состояние_ТЕ WHERE [№_п/п]=" & Me.№_п_п

Получилось...
...
Рейтинг: 0 / 0
52 сообщений из 52, показаны все 3 страниц
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Удаление записи
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]