Patarciau kad tokiu klaidu nebutu pries kazkoki kreipimasi i sub objektus visada tikrint ar jie egzistuoja tuo metu ir t.t.. 

"Tomas" <Tomas@Bomba.lt> wrote in message news:hpi4a5$a9v$1@trimpas.omnitel.net...
>O ką sako ActiveWorkbook.ActiveSheet.QueryTables.count ???
> 
> "b2b" <b2b@gmail.com> wrote in message 
> news:hpi1ht$6co$1@trimpas.omnitel.net...
>> Ka negerai darau ? Ismeta klaidas (prisegti printscreen'ai):
>>
>>
>> Private Sub Worksheet_Change(ByVal Target As Range)
>>    If Target.Address = "$B$1" Then
>>
>>    With ActiveWorkbook.ActiveSheet.QueryTables(1)
>>        .BackgroundQuery = False
>>        .CommandText = Array( _
>>            "SELECT PM.PART_CODE [Produkto kodas], PM.PART_DESC_1 [Produkto 
>> pavadinimas]," & _
>> "PB.IC_LOT_NUMBER [Partija], PB.CREATION_DATE [Pagaminimo data], 
>> PM.SHELF_LIFE [Sandeliavimo trukme, d]," & _
>> "(PB.BEST_BEFORE_DATE-PM.DISTRIBUTION_DAYS) [Sand?liavimo data], 
>> PM.DISTRIBUTION_DAYS [Galiojimo trukme, d]," & _
>> "PB.BEST_BEFORE_DATE [Galioja iki], ILS.IC_QTY_AVAILABLE [Esamas 
>> (momentinis) kiekis], PM.IC_UNIT_CAPACITY [Mato vienetai]" & _
>> "FROM [duomenu_baze].[dbo].IC_LOT_STATUS ILS with (nolock, nowait)" & _
>> "INNER JOIN PRODUCT_MASTER PM  with (nolock, nowait)" & _
>> "ON PM.PART_CODE=ILS.PART_CODE and 
>> PM.IC_UNIT_CAPACITY=ILS.UNIT_OF_MEASURE" & _
>> "INNER JOIN PART_BATCHES PB with (nolock, nowait)" & _
>> "ON PB.PART_CODE=ILS.PART_CODE and PB.IC_LOT_NUMBER=ILS.IC_LOT_NUMBER and 
>> PB.WAREHOUSE=ILS.WAREHOUSE" & _
>> "and ILS.IC_QTY_AVAILABLE > '0.000000'" & _
>> "where ILS.WAREHOUSE  = 'ActiveWorkbook.ActiveSheet.Cells(1, 2).Value'" & 
>> _
>> "order by ILS.WAREHOUSE, PB.CREATION_DATE")
>>        .Refresh
>>    End With
>>    End If
>> End Sub
>>
>>
>>
>> 
> 
> 
> 
> __________ Information from ESET Smart Security, version of virus signature database 5007 (20100407) __________
> 
> The message was checked by ESET Smart Security.
> 
> http://www.eset.com
> 
> 
> 
>