+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Uzun Süren İşlemlerde Kodların Birbirini Beklemesi (/konu-uzun-suren-islemlerde-kodlarin-birbirini-beklemesi.html)
Cvp: Uzun Süren İşlemlerde Kodların Birbirini Beklemesi - ozanakkaya - 05/02/2020
(05/02/2020, 12:50)accessman yazdı: bu son mesajı niye böyle yazdı acaba site de hata mı var
Sitede hata yok, siz ne yazdıysanız onu gösterir. Yazılan kodda, biri bitmeden diğeri başlamaz. Excelden veri al kodu eklediyseniz o kod çalışır, sonra diğer koda geçer. Konuda 7. sayfaya gelindi hala hangi kodun bekleyeceğine dair bir örneğiniz yok.
Cvp: Uzun Süren İşlemlerde Kodların Birbirini Beklemesi - accessman - 05/02/2020
Dim bitti As Boolean
Private Sub CloseBtn_Click()
Dim bittimi As Boolean
bittimi = first
End Sub
Private Sub Komut381_Click()
WasteTime
End Sub
Function first() As Boolean
bitti = False
Dim i, ii, iii As Integer
For i = 1 To 100
For ii = 1 To 10
For iii = 1 To 10
DoEvents
Next
Next
Next
bitti = True
End Function
Sub WasteTime()
Do
DoEvents
Loop Until bitti = True
MsgBox "merhaba"
End Sub
Cvp: Uzun Süren İşlemlerde Kodların Birbirini Beklemesi - accessman - 05/02/2020
bu kodlarda CloseBtn_Click ile döngü başlatılıyor
Komut381_Click ile mesaj çağırılıyor
mesaj çıkmadan önce sürekli
bitti = true
kontrol etmesini istiyorum
Cvp: Uzun Süren İşlemlerde Kodların Birbirini Beklemesi - feraz - 05/02/2020
(05/02/2020, 15:19)accessman yazdı: Dim bitti As Boolean
Private Sub CloseBtn_Click()
Dim bittimi As Boolean
bittimi = first
End Sub
Private Sub Komut381_Click()
WasteTime
End Sub
Function first() As Boolean
bitti = False
Dim i, ii, iii As Integer
For i = 1 To 100
For ii = 1 To 10
For iii = 1 To 10
DoEvents
Next
Next
Next
bitti = True
End Function
Sub WasteTime()
Do
DoEvents
Loop Until bitti = True
MsgBox "merhaba"
End Sub
Hani döngü yoktu sorgu vardı!!!!!
Cvp: Uzun Süren İşlemlerde Kodların Birbirini Beklemesi - ozanakkaya - 05/02/2020
Sayın @accessman, örnek uygulamanızı ekleyin. "şu işlemi yapınca şu kodu beklemeden şu koda geçiyor" şeklinde ayrıntılı açıklama yazın. İnceleyip çözüm bulmaya çalışalım. Yoksa boolean, for next, hepsi farazi kalacak.