Private Sub Кнопка5_Click()
If IsNull(Me.name_obj) Then Exit Sub
If MsgBox("Підтвердження видалення запису " & Me.name_obj.Value, vbYesNo + vbDefaultButton2, "Запис буде видалено") = vbYes Then

With CurrentDb.QueryDefs("Запрос1")
       .Parameters("ID_tsh") = Me.name_obj.Value
       .Execute
    End With
Me.name_obj.Requery
End If
End Sub

DELETE tbl_dir_obj.id
FROM tbl_dir_obj
WHERE (((tbl_dir_obj.id)=[ID_tsh]));