Kategorileri Ayıklama

[ÖmerBey]

Son paylaştığınız dosyanın yapısı ile ilk paylaştığınız dosya yapıları birbirine uymuyor. Bununla ilgili 11 no'lu mesajda bir hatırlatma yapmıştım.
İncelediğim kadarıyla problem tarihle alakalı değil. Aşağıdaki kırmızı satırdaki şartlar bu dosyada sağlanmadığı için tarih değeri ve diğer değerler diziye yazdırılmıyor.

ElseIf rs.Fields(0) <> "" And rs.Fields(1) <> "" And IsNumeric(rs.Fields(4)) Then
   x = x + 1
   dz(x, 1) = Mid(con.Properties("Data Source"), InStrRev(con.Properties("Data Source"), "\") + 1)
   dz(x, 2) = trh

 

[Trilenium]

Anladım.

Esasında dosyanın yapısı aynı, fakat bu diziyi beceremedim

 

[ÖmerBey]

Kod işlem yaparken verileri önce diziye kaydedip bağlantıyı kapattıktan sonra da dizide ki veriyi sayfaya yazdırıyor. Yukarıdaki IF koşuluna göre 1. sütun dolu ise ve 2. sütun dolu ise ve 5. sütunda da sayı varsa işlem yapılıyor. Yani diziye veriler alınıyor. Önceki dosyanızda bu şartlar sağlanıyordu. Fakat son yüklediğiniz dosyada bu şartı sağlayacak tek bir satır dahi yok. Bunun sonucunda diziye hiç bir veri kaydedilmiyor. Dizi boş olduğu için de sayfaya boş veri yazılıyor.
Umarım açıklayabilmişimdir.

 

[Trilenium]

Anladım. Deneyeceğim tekrardan.

 

[Trilenium]

Yok üstadım, beceremedim. Saatlerdir uğraşıyorum olmadı

 

[Trilenium]

Konu günceldir.

 

[Trilenium]

Çözüldü.