Skip to main content

AccessTr.neT


Web Üzerinden İmsakiye

Web Üzerinden İmsakiye

#13
(23/08/2009, 02:38)sledgeab yazdı: eklenti düzeltildi.

ayrıca tüm önerilerinizi sonraki web çalışmalarında bekliyorum.

rows nedir, item nedir öğrendiniz nasıl olsa.

Az buçuk Vba bilgisi olan rows, Item nedir bilir, ama anlayamadığım tablonun adının "table" olduğunu nasıl anladınız.
Ayrıca bu tür örneklerde kod satırları tek tek açıklansa bilmeyenler için çok faydalı olacağı kanaatindeyim.
Nasıl olsa amaç pişmiş balık sunmak yerine balık tutmasını öğretmek değil mi?
Aslında bu örnek bana benzer konuda web üzerindeki sorgulamayı bu şekilde yapılabileceğini gösterdi. Çok teşekkür ederim.
Cevapla
#14
(23/08/2009, 13:26)teknikdestek yazdı: Değerli katkıları için destek ekibimize rep vermiyor muyuz sayın admin?
Maytas'a var sana yok,

Sn maytas,

bu uygulamada aktarma kodlarının denenmesi gerekli, örneği yaptığımda deneme ile yazılan kodları herkesin görmesi açısından silmemiştim. Zira benzeri bir çalışmada bilgisayarcı hocamın verdiği kodları (kısaltılmış kodu) kullanmıştık.

Bence Access ile uğraşıyorsanız ve birşeyler öğrenme çabasındaysanız öğrenmeniz gereken en son şey bu olmalı.
mehmetdemiral, esrefigit, cuneyt ve bilgisayarcıda sanırım benimle aynı fikirdedir.
Cevapla
#15
Emeği geçen herkese teşekkürler güzel bir çalışma olmuş. Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla
#16
(22/08/2009, 09:59)Bilgisayarcı yazdı:
Kod:
With IE.Document.All.tags("table").Item(1)
  For i = 1 To 30
    For j = 2 To 10
      s = .Rows(i).cells(j).innertext
    Next
  Next
End With

Bu şekilde daha kolay olmaz mıydı?

(23/08/2009, 01:41)maytas yazdı: Bir küçük ilave de ben yapayım.
İlgili örnekte bu şekilde uygulanabilir:

Kod:
s = 2
With IE.Document.All.tags("table").Item(1)
  Do While s <= 362
    For I = 1 To 30
      For J = 2 To 10
        Controls("Metin" & s) = .Rows(I).cells(J).innertext
        s = s + 1
        If s = 11 Then s = 102
      Next
    Next
  Loop
End With


Benim yazdığım uzun kod ve sizin tavsiye ettiğiniz kodlar hakkında kısa bir hikaye.

Hastalığımın dermanını arıyorum, il il gezerken çareyi Ankarada buluyorum
yola çıktığım yer Samsun

Ama Ankaraya Erzurumdan geçmişim

sizin verdiğiniz kodun anlamı "Sen neden Erzurumdan geçtin Samsundan Ankaraya daha kestirme yol var."

Ben Ankaraya gideceğimi bilemedim ki, Ordu Tokat Yozgat derken Erzuruma kadar gittim.

Baştan Ankaraya gideceğimi bilsem ben de o yoldan gelirdim.

Kod tamamlandıktan sonra da düzeltme gereği duymamıştım. Çünkü Ankaraya Nasıl geldin diye soran olursa koddan bakıp anlayabilir. Bu veriler metin kutularına nasıl geliyor misali.
Cevapla
#17
Emeği geçenlere, paylaşımdan dolayı teşekkür ederim.
Cevapla
#18
her zamanki gibi süper bir örnek, paylaşımın için teşekkür ederim, başarılar.
Böyle şeyler nereden aklına geliyor, nasıl yapıyorsun bilmiyorum, tebrikler.
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task