Skip to main content

AccessTr.neT


Uzun Süren İşlemlerde Kodların Birbirini Beklemesi

Uzun Süren İşlemlerde Kodların Birbirini Beklemesi

#31
Ö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
Cevapla
#32
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 Img-grin


Sub aa()
For x

Next

For y
Next
End sub
Cevapla
#33
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
Son Düzenleme: 05/02/2020, 10:25, Düzenleyen: accessman.
Cevapla
#34
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.
Cevapla
#35
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
Cevapla
#36
bu son mesajı niye böyle yazdı acaba site de hata mı var
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task