Public Sub aУдалитьЛишниеФункции()
On Error GoTo Ошибка                                                            'из таблицы "юСписокФункций" удаляем функции,
Dim strЗапрос  As String, strОсновнойСписок As String                           'которых уже нет в модулях
Dim rstОсновнойСписок As Recordset, rstВспомогательныйСписок As Recordset
Dim dbТекущая As Database
Set dbТекущая = CurrentDb
Set rstОсновнойСписок = dbТекущая.OpenRecordset("SELECT юСписокФункций.* FROM юСписокФункций ORDER BY юСписокФункций.КодФункции DESC;", dbOpenDynaset)
Set rstВспомогательныйСписок = dbТекущая.OpenRecordset("юСписокФункцийВспом", dbOpenDynaset)
    Do Until rstОсновнойСписок.EOF
        strОсновнойСписок = rstОсновнойСписок!ИмяФункции
        Debug.Print strОсновнойСписок
        
        rstВспомогательныйСписок.FindFirst "ИмяФункции = " & rstОсновнойСписок!ИмяФункции
        If rstВспомогательныйСписок.NoMatch Then
            rstОсновнойСписок.Delete                                            'удаляем устаревшую функцию
        End If
        rstОсновнойСписок.MoveNext
    Loop
Exit Sub
Ошибка:                                                                         'Обработка ошибки
MsgBox (Err.Description & "  " & Err.Number)
End Sub

 rstВспомогательныйСписок.FindFirst "ИмяФункции = " & rstОсновнойСписок!ИмяФункции