+- 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 - accessman - 05/02/2020
Onu Örnek olarak vermiştim
Kısa işlemlerde sıkıntı çıkmıyor
Acaba 1.işlemi fonksiyon yazıp boolean olarak döndürsek
true ile dönünceye kadar 2.işlemi while döngüsü içinde bekletsek olur mu
Cvp: Uzun Süren İşlemlerde Kodların Birbirini Beklemesi - accessman - 05/02/2020
Kod:
Public Function Pause(NumberOfSeconds As Variant)
On Error GoTo Error_GoTo
Dim PauseTime As Variant
Dim Start As Variant
Dim Elapsed As Variant
PauseTime = NumberOfSeconds
Start = Timer
Elapsed = 0
Do While Timer < Start + PauseTime
Elapsed = Elapsed + 1
If Timer = 0 Then
' Crossing midnight
PauseTime = PauseTime - Elapsed
Start = 0
Elapsed = 0
End If
DoEvents
Loop
Exit_GoTo:
On Error GoTo 0
Exit Function
Error_GoTo:
Debug.Print Err.Number, Err.Description, Erl
GoTo Exit_GoTo
End FunctionCvp: Uzun Süren İşlemlerde Kodların Birbirini Beklemesi - feraz - 05/02/2020
Olabilir true olursa mesaj kutusuda çıkar istenirse mantıken.
Cvp: Uzun Süren İşlemlerde Kodların Birbirini Beklemesi - accessman - 05/02/2020
Bunlar işe yarar mı bilmiyorum
İstediğim 1.işlemi gerekirse 3 gün beklemeli
Cvp: Uzun Süren İşlemlerde Kodların Birbirini Beklemesi - feraz - 05/02/2020
PauseTime
Yukardakini nasıl belirleyeceksiniz pekii.
Cvp: Uzun Süren İşlemlerde Kodların Birbirini Beklemesi - accessman - 05/02/2020
O şekilde denemedim