Önemli olan süre değil bazen 5 saniye bazen 5 dakika
Asıl mesele önceki işlem bitsin faraza
1 milyon adet textbox tanımlayıp sonra
Bunlara değer yükleyeceğiz
İlk işlem tam bitmeden
İkinci işlem textboxu görmüyor ama 1 milyon sayısı sabit bir sayı değil yani
Doevents timer sleep wait for döngüsü çözüm değil
Bitti onayı alıp 2.işleme geçmeli
Uzun Süren İşlemlerde Kodların Birbirini Beklemesi
Normal bir kod bitmeden zaten diğeri çalışmaz.Sizde nasıl oluyor bilemiyorum.Berduş hocanında dediği gibi hata veriyor diyorsunuz dosya yok diyorsunuz denemeden nasıl hata oluyor buda ilginç bir olay.
Örneğin alttaki kod hainlik yada yamukluk yapmazsa ilk döngü bitmeden y döngüsüne para versen geçmez
Sub aa()
For x
Next
For y
Next
End sub
Örneğin alttaki kod hainlik yada yamukluk yapmazsa ilk döngü bitmeden y döngüsüne para versen geçmez
Sub aa()
For x
Next
For y
Next
End sub
for next olmaz
mesela excele bağlanıp 1 milyon kayıtlı sayfadan 100 sutunluk bilgi alıyoruz
sonra bunları sorguyla işleme sokacağız
ilk önce verilerin alınmasını bekle
ama verilerin sorgulanması dışında herşeyi yapabilirsin diyecek
şimdi ben bunu nasıl for next yapayım
mesela excele bağlanıp 1 milyon kayıtlı sayfadan 100 sutunluk bilgi alıyoruz
sonra bunları sorguyla işleme sokacağız
ilk önce verilerin alınmasını bekle
ama verilerin sorgulanması dışında herşeyi yapabilirsin diyecek
şimdi ben bunu nasıl for next yapayım
Son Düzenleme: 05/02/2020, 10:25, Düzenleyen: accessman.
Yav üstadım neden anlatamıyorum.
For döngüsü bir örnekti sadece.
İkincisş ise öncedende yazdığım gibi kodlar çalışırken başka işlem yapabilmen için doevents kullanacaksın.
Şimdi ben sana senin göermediğim sorgunu nasıl bilipte test edeyim.
Birdaha yazayım doevnts yazarsan başka işlem yaparsın.Ben değil uzmanlar demiş bunu.
For döngüsü bir örnekti sadece.
İkincisş ise öncedende yazdığım gibi kodlar çalışırken başka işlem yapabilmen için doevents kullanacaksın.
Şimdi ben sana senin göermediğim sorgunu nasıl bilipte test edeyim.
Birdaha yazayım doevnts yazarsan başka işlem yaparsın.Ben değil uzmanlar demiş bunu.
mesela şu kod içine ilk işlemin bittiği haberini verip döngüden çıkıp işleme devam etmesini sağlamak gibi
Sub WasteTime(Finish As Long)
Dim NowTick As Long
Dim EndTick As Long
EndTick = GetTickCount + (Finish * 1000)
Do
NowTick = GetTickCount
DoEvents
Loop Until NowTick >= EndTick
End Sub
bu son mesajı niye böyle yazdı acaba site de hata mı var
Konuyu Okuyanlar: 5 Ziyaretçi