IMHO и мой способ не сложен.
Перед delete сделать select и посмотреть есть ли возвращеные записи. Это проще?

Это сообщение отредактировал(а) boevik - 12.10.2006, 13:28

Привет всем!
У меня есть аналогичная задача. Если у читателя имеется задолженность по ннигам, то...
-----------------------------------------------   
Case cmdDelete       '-- delete the current record
     
   Dim reply As Integer
  
       Dim iResponse As Integer
    Dim sAskUser As String
    If Text4.Text > 0 Or Text6.Text > 0 Or Text7.Text > 0 Then
         reply = MsgBox("Удалить нельзя - имеется задолженность: " & _
                         "абонем.= " & Text4.Text & _
                         ", читзал=" & Text6.Text & _
                         ", подп. изд=" & Text7.Text, vbCritical, "Контроль!")
     Else
    sAskUser = "Желаете удалить запись?"
    iResponse = MsgBox(sAskUser, vbQuestion + vbYesNo + _
              vbDefaultButton2, "Контроль!")
End Sub
--------------------------------------------
Может подойдет такая идея?