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
Uzun Süren İşlemlerde Kodların Birbirini Beklemesi
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 Function
Bunlar işe yarar mı bilmiyorum
İstediğim 1.işlemi gerekirse 3 gün beklemeli
İstediğim 1.işlemi gerekirse 3 gün beklemeli
Konuyu Okuyanlar: 1 Ziyaretçi
