БД "Библиотека" - удаление записи

Здравствуйте. Столкнулся с проблемой: имеется форма "Удаление книги", соответственно по нажатию кнопки "Удалить" должна удаляться запись из таблицы Издания. Кнопку я делал с помощью Мастера кнопочных форм. При нажатии ничего не происходит.
Можете подсказать, как сделать, чтобы кнопка правильно срабатывала?

сслылка на БД: http://ifolder.ru/27637699



Option Compare Database

Private Sub Выбрать_Click()
On Error GoTo Err_Выбрать_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(1053) & ChrW(1077) & ChrW(1074) & ChrW(1099) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1077) & ChrW(1050) & ChrW(1085) & ChrW(1080) & ChrW(1075) & ChrW(1080)
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Выбрать_Click:
Exit Sub

Err_Выбрать_Click:
MsgBox Err.Description
Resume Exit_Выбрать_Click

End Sub
Private Sub Закрыть_Click()
On Error GoTo Err_Закрыть_Click


DoCmd.Close

Exit_Закрыть_Click:
Exit Sub

Err_Закрыть_Click:
MsgBox Err.Description
Resume Exit_Закрыть_Click

End Sub
Private Sub Кнопка17_Click()
On Error GoTo Err_Кнопка17_Click


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

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

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

End Sub

Файл не смотрел. Но преложение удалять книгу, имхо, неверное. Вместо удаления записи о книге, надо ее помечать (в простейшем случае). Списана она, утеряна и т.д. А в запросах на функционирование библиотеки вставить условие, что поле утраты книги пустое.

mds_world,

т.е. вставить в таблицу еще одно поле, где и указывать действующий "статус" книги?
Просто мне преподаватель сказал, что должна быть функция удаления книги, чтобы избавляться от книг, слишком долго хранящихся в библиотеке

AllOnlyBegins
mds_world, т.е. вставить в таблицу еще одно поле, где и указывать действующий "статус" книги?

Да, примерно так

AllOnlyBegins
Просто мне преподаватель сказал, что должна быть функция удаления книги, чтобы избавляться от книг, слишком долго хранящихся в библиотеке

Одно другому не мешает. Все равно функцию проверки делать на книги "слишком долго хранящиеся в библиотеке". Как попалась такая книга, пометить ее как архивную.

AllOnlyBegins
... Просто мне преподаватель сказал, что должна быть функция удаления книги, чтобы избавляться от книг, слишком долго хранящихся в библиотеке

:)
В таком случае следует провести транзакцию From Хранение To Списание/Уничтожение.
А исчо экземпляры книг случается теряют, безвозвратно портят, воруют...

nord-woolf
:) В таком случае следует провести транзакцию From Хранение To Списание/Уничтожение.

а это как сделать?

AllOnlyBegins,

Все перемещения экземпляров книг в библиотеке - это переход ответственности за сохранность экземпляров
от одного лица к другому.
Все перемещения оформляются транзакциями От <Кого> К <Кому>, будь то пополнение фондов, хранение, выдача читателям,
возврат читателем, сдача в реставрацию, списание, уничтожение и т.д.

Как сделать?
1. Реализовать описание экземпляров книг.
2. Реализовать описание "ответственных".
3. Реализовать описание перехода ответственности (таблица транзакций) экземпляров книг между "ответственными".

Если вкратце. :)