Private Sub Удалить_Click()
On Error GoTo Err_Удалить_Click

MyS = Trim$(DLookup("ОКУД", "t1", "[Use]=True"))
Dim MyN As ADODB.Recordset
Set MyN = New ADODB.Recordset
Dim Msg As Integer
MyN.Open "Select * From t3_" & MyS & "_" & MyR, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With MyN
  .Find ("[Дата редакции]='" & Me.[Дата редакции] & "'")
  
    If .EOF = True Then
        MsgBox "Не существует записей в таблице", vbOKOnly + vbCritical, "Удаление записи"
    Else
        Msg = MsgBox("Вы действительно хотите удалить текущую запись?", vbYesNo + vbCritical, "Удаление записи")
        If Msg = vbYes Then
            .Delete
        End If
    End If
End With
MyN.Close
Set MyN = Nothing
        
[Forms]![t3_info].Requery

Exit_Удалить_Click:
    Exit Sub
Err_Удалить_Click:
    MsgBox Err.Description
    Resume Exit_Удалить_Click
End Sub

Private Sub Удалить_Click()
On Error GoTo Err_Удалить_Click
Dim MyE As ADODB.Recordset
Set MyE = New ADODB.Recordset
Dim Msg As Integer
MyE.Open "Select * From Table2", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With MyE
  'ВОТ ТУТ ВОЗНИКАЕТ ОШИБКА =================================
.Find ("[OPERATIONDATE]='" & Me.[Table1 subform].[OPERATIONDATE] & "'")
  '========================================================
    If .EOF = True Then
        MsgBox "Не существует записей в таблице", vbOKOnly + vbCritical, "Удаление записи"
    Else
        Msg = MsgBox("Вы действительно хотите удалить текущую запись?", vbYesNo + vbCritical, "Удаление записи")
        If Msg = vbYes Then
            .Delete
        End If
    End If
End With
MyE.Close
Set MyE = Nothing
        
Exit_Удалить_Click:
    Exit Sub
Err_Удалить_Click:
    MsgBox Err.Description
    Resume Exit_Удалить_Click
End Sub