Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Stanislav
Это нормальная ситуация, когда тяжело дается. Главное, что в принципе дается.
Сделать с помощью кнопки конечно можно - это классический способ.
Сейчас акс не дает тебе удалить запись о сотруднике, потому что в других таблицах есть записи, которые ссылаются на эту записью (через поле tab_number).
Поэтому сначала надо удалить все записи об этом сотруднике в дочерних по отношению к Sotrudniki таблицах (Private, Otpusk, Obrazovanie, Deti), а потом уже из родительской Sotrudniki. Делается это так:

Private Sub EmployeeDelete_Click() 'проверим, что выбран сотрудник If nz(Me.tab_number, 0)=0 Then MsgBox "Выберите сотрудника!", vbExclamation Exit Sub End If 'спросим, нужно ли удалять запись о сотруднике: If MsgBox("Удалить запись о сотруднике?", vbQuestion + vbYesNo + vbDefaultButton2, "Внимание!") = vbNo Then Exit Sub End If 'удаляем записи: DoCmd.RunSQL "DELETE Private.* FROM Private WHERE tab_number=" & Me.tab_number 'аналогично для таблиц Otpusk, Obrazovanie, Deti 'и заключительная строка: DoCmd.RunSQL "DELETE Sotrudniki.* FROM Sotrudniki WHERE tab_number=" & Me.tab_number End Sub