Otomatik çalışan kodlar.

[acar6783]

Sub calis()
DoEvents
Call  veriler
basla
End Sub

Sub basla()
DoEvents
Application.OnTime Now + TimeValue("00:00:05"), "calis"

End Sub

Bu şekilde kod ile 5sn. arayla userforma veri çekme işlemi yapıyorum.
Fakat kod sürekli çalışyor formu kapsam dahi devam ediyor.
Ctrl+Break ya da pause ile durdurum hata vermesi dışında durduramıyorum.

Buna benzer userform üzerinde çalışırken programı yormayacak ve hatalara sebep olmayacak istediğim zaman durdurabileceğim alternatif bir kod nasıl yazılabilir?

 

[Orion1]

Buyurun.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub

 

[acar6783]

Cevap için teşekkür ederim fakat şöyle birsorun var;
Form açıkkken durdurup devam ettirmem gerekiyor

 

[Orion1]

Cevap için teşekkür ederim fakat şöyle birsorun var;
Form açıkkken durdurup devam ettirmem gerekiyor

Ekli dosyayı inceleyiniz.

 

[acar6783]

Ekli dosyayı inceleyiniz.

İnceledim fakat durdur dediğimde hala çalışmaya devam ediyor.

 

[Orion1]

İnceledim fakat durdur dediğimde hala çalışmaya devam ediyor.

Benim yolladığım dosyada durdurulabiliyor.

 

[acar6783]

Benim yolladığım dosyada durdurulabiliyor.

Başla'ya bşr kaç kez basınca farkettim ben de .
Her saniyede çaışıyor gibi oluyor.
Durdur a basınca da devam ediyor.
Başla butonuna ;
If dur = False Then Exit Sub
Koşulu ekledim bu sefer de durdurduktan sona başlamıyor

 

[acar6783]

Kodları bu şekilde düzenledim oldu.
Biraz Basite kaçtım sanırım ama alternatif çözümlere açığım

 

[Orion1]

Başla'ya bşr kaç kez basınca farkettim ben de .
Her saniyede çaışıyor gibi oluyor.
Durdur a basınca da devam ediyor.
Başla butonuna ;
If dur = False Then Exit Sub
Koşulu ekledim bu sefer de durdurduktan sona başlamıyor

Ben 1 modülde global değişkeni tanıttım.
Sanırım siz o modüldeki değişkeni tanıtmamışsınız.O sebepten çalışmıyor.
Zira sizin yolkladığınız yaptım dediğiniz dosyada o modülde tanıttığım değişken yoktu.