1

голосов
1

ответ
237

Просмотры

MS Access Query ColumnHidden недвижимости

Я написал некоторые VBA код, который (а) устанавливает SQL для запроса на основе входных переменных, (б) открывает запрос в режиме таблицы, и (с) скрывает или показывает столбцы на основе «истинных» / «ложных» значений флажки в другой таблице. Это рассматривает свойство «ColumnHidden», как описано в Microsoft Dev Center помощи. Dev Center Помощь - ColumnHidden Property При выполнении кода (а) и (б) работают, как предполагалось. Тем не менее, я получаю ошибку 3270, «Свойство не найдено» на линии fld.Properties ( «ColumnHidden») = False при выполнении (с). Я был не в состоянии решить эту проблему, даже при попытке методы обработки ошибок, описанной в Dev Center. Пожалуйста помоги! Dim rsLabel Как DAO.Recordset, rsCOlumn Как DAO.Recordset Dim qryCPQ Как DAO.QueryDef Dim strLabel As String, strSQL As String, dbOpenSnapshot) Если не rsCOlumn.EOF Тогда Если rsCOlumn! [CPQ_Publish] = False Тогда fld.Properties ( "ColumnHidden") = True End If End If rsCOlumn.Close Set rsCOlumn = Nothing Set FLD = Nothing Next х Набор д.б.н. = Nothing DoCmd. Закрыть acForm, «CM_frmCollectionReportPre», предложение acSaveNo Per Eric Von Asmuth, я уже добавил в обработке ошибок, поэтому код в настоящее время выглядит следующим образом. Тем не менее, я все еще получаю ошибку 3270 на том же месте. Не исправил вещь. Dim rsLabel Как DAO.Recordset, rsCOlumn Как DAO.Recordset Dim qryCPQ Как DAO.QueryDef Dim strLabel As String, strSQL As String, strColumn As String Dim FLD Как DAO.Field Dim д.б.н. Как DAO.Database Dim прп Как DAO.Property Dim AttArray Как вариант Dim х As Integer Const conErrPropertyNotFound = 3270 '
jhalf2008