Не работает метод Find в Recordset'е

[Emmelman]

Еще раз здравствуйте, уважаемые форумчане!
Опять прошу совета!
Дали установку реализовать удаление записей из базы данных, открыл свой старый проект и взял оттуда код,предварительно его проверив,что он там работает, вот он:

PHP код:

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

Вот и все изменения! Прога вылетает в том месте, которое я выделил жирным шрифтом, проверял по breakpoint' у. Вылетает ошибка такая - object doesn't support this property or method

В чем может быть причина?В старом проекте все работает...
Заранее спасибо!

[shanemac51]

нет ли здесь кавычек

Me.[Table1 subform].[OPERATIONDATE]

=============
или это дата

[Emmelman]

В данном столбце хранится дата, но в формате числа - 20121201 типа вот этого

[Андрэич]

А так:

...& Forms![Главная форма].Controls![подчинённая форма].Form.Controls![Поле на подчинённой форме].Value & ...

[Myhaylo]

& [Table1 subform].Form.[OPERATIONDATE] &

[alvk]

правильно вот так:

.Find ("[OPERATIONDATE] = " & Me.[Table1 subform].form.[OPERATIONDATE] & "")

[Emmelman]

Сообщение от alvk

правильно вот так:

.Find ("[OPERATIONDATE] = " & Me.[Table1 subform].form.[OPERATIONDATE] & "")

дааа!!!Спасибо огромное,выручили! Просто добавил .form. между и все заработало! Блин..тока странно,что код работает в старой проге,хотя...наверно это из-за форм,там нет подчиненной

[alvk]

На будущее хочется вам посоветовать:
Подходите строже к именам форм и таблиц, пробелы не нужны, названия должны нести смысловую нагрузку.

[Emmelman]

Это точно,спасибо! Сейчас посмотрю, переименую, аккуратненько,чтобы ошибок не было.