Заказ звонка

Закрыть

*
*
*

Проверить объект

Страницы: 1
RSS
Проверить объект, Проверить: Создан объект или нет?
Необходимо проверить создан ли объект запроса. Если не создан то создать.
вот как я пыталс сделать

Код
   StrListUCCl = "  Sel ect Distinct UC.ID, UC.Shop_ID, UC.NOMENCLATURE_ITEM_ID  "  & _  
                  "  Fr om V_ACCOUNTING_DOCUMENTS as UD " & _ X 
                  "  Left join V_Shops as Sh       "   & _ X 
                  "  On sh.ID = UD.SHOP_ID          "   & _                            
                  "  Left join V_Shops as Sh2       "    & _ X 
                  "  On sh2.ID = UD.CLIENT_ID           "   & _
                  "  Left Join V_ACC_DOC_SPECIFICATIONS as Spec  "  & _
                  "  On Spec.DOCUMENT_ID = UD.ID                  "   & _
                  "  Left Join V_REGISTRATION_CARDS As UC             " & _
                  "  On UC.ID = Spec.REGISTRATION_CARD_ID               " & _                   
                  "  Where Upper(Sh2.SHOP_NUMBER) = Upper('Аренд')  and   " & _
                  "  UC.CLOSED =  'T' X 
    If  ListUCCl Is Nothing  Then  
        Set ListUCCl = TCSApp.ExecSQL(StrListUCCl)
    End If


Пробовал писать
Код
If Not ListUCCl.Empty then...

Обработчик выдает сообщение о том, что объект ListUCCl не создан. Впринципе логично, но как все таки проверить создан объект или нет?
Вот такой вот вариант я и не попробовал

Код
   If  ListUCCl = Empty  Then  
        Set ListUCCl = TCSApp.ExecSQL(StrListUCCl)
    End If


Вопрос решен.
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)