У меня очень странная проблема. Сначала код.
Private Function ProcessRecord(ByVal rsDocs As ADODB.Recordset) As Variant
Dim rsTemp As ADODB.Recordset
rsTemp = rsDocs
rsDocs = RemoveDuplicateDocs(rsTemp)
Exit Function
Ошибка возникает во второй строке функции, где rsTemp установлен равным rsDocs. Он говорит: «Ошибка компиляции: неправильное использование свойства». Я искал информацию об этой ошибке в другом месте, и во всех отчетах есть случаи, когда люди либо забывают знак равенства, либо неправильно добавляют команду «Установить» в начале строки кода. Эта ошибка не имеет смысла для меня, потому что раньше она прекрасно компилировалась, и изменения, которые я внес в этот проект, даже не относятся к классу, который выдает ошибку. Код здесь идентичен тому, что было раньше. Кто-нибудь когда-нибудь видел ошибку, подобную этой, по какой-то веской причине? Спасибо!