currentdb.execute delete...

DELETE Дело.[№ договора], [Крточка учета подчиненная].Код, [Оперативное опиание].Договор, 
[Оперативные карточки].Код, [Оперативные карточки].*, Дело.[№ договора], [Оперативное опиание].*,
[Крточка учета подчиненная].*
FROM (([Оперативные карточки] LEFT JOIN Дело ON [Оперативные карточки].Код = Дело.[№ договора]) 
INNER JOIN [Крточка учета подчиненная] ON [Оперативные карточки].Код = [Крточка учета подчиненная].Код)
INNER JOIN [Оперативное опиание] ON [Оперативные карточки].Код = [Оперативное опиание].Договор
WHERE ((([Оперативные карточки].Код)=[Forms]![Данные]![Данные_подч1].[form].[код]));

Option Compare Database
Option Explicit

Private Sub Выход_Click()
DoCmd.Close
End Sub

Private Sub Кн_Удал_запись_Click()
    Dim stDocName As String
    Dim stLinkCriteria As String
    DoCmd.OpenQuery "З_Удаление"
End Sub

DELETE [Оперативные карточки].*, [Оперативные карточки].Код
FROM (([Оперативные карточки] INNER JOIN Дело ON [Оперативные карточки].Код = Дело.[№ договора]) 
INNER JOIN [Крточка учета подчиненная] ON [Оперативные карточки].Код = [Крточка учета подчиненная].Код)
INNER JOIN [Оперативное опиание] ON [Оперативные карточки].Код = [Оперативное опиание].Договор
WHERE ((([Оперативные карточки].Код)=[Forms]![Данные]![Данные_подч1].[form].[код]));

DELETE [Оперативные карточки].*, [Оперативные карточки].Код
FROM [Оперативные карточки]
WHERE ((([Оперативные карточки].Код)=[Forms]![Данные]![Данные_подч1].[form].[код]));

Private Sub Кн_Удал_запись_Click()
DoCmd.SetWarnings False
    Dim stDocName As String
    Dim stLinkCriteria As String
'    DoCmd.OpenQuery "З_Удаление"
CurrentDb.Execute "Delete from [Оперативные карточки] where [Код]=" & Me![Данные_подч1].[Form].[Код]
DoCmd.SetWarnings True
DoCmd.Close
End Sub

CurrentDb.Execute "Delete from [Оперативные карточки] where [Код]=" & Me![Данные_подч1].[Form].[Код]