Diğer userform açıldığında saatin çalışmaya devamı

[İsmail Küçükşengün]

Merhabalar;

Userform1 üzerinde aşağıda yazılı tarih ve saat kodu var.

Private Sub UserForm_Activate() 
On Error Resume Next
Do
Label1 = Format(Now, "dd mmmm yyyy dddd hh:mm:ss")
DoEvents
Loop
End Sub

Userform üzerine diğer bir userform açıldığında, saat duruyor, açılan form kapandığında, saat çalışmaya devam ediyor.

Userform1'in üzerine diğer userform açıldığında, saatin çalışmaya devam etmesi için form1 deki saat kodunda ne gibi değişiklik gerekir.

Şimdiden teşekkürlerimle.

 

[Levent Menteşoğlu]

Aşağıdaki kodu userform2 ye kopyalayın.

Private Sub UserForm_Activate()
On Error Resume Next
Do
userform1.Label1 = Format(Now, "dd mmmm yyyy dddd hh:mm:ss")
DoEvents
Loop
End Sub

 

[Recep İpek]

Veya her 2 userformun

ShowModal özelliğini False yapın.

 

[Levent Menteşoğlu]

ShowModal özelliğini False yapın.

Evet bu kesinlikle daha iyi bir çözüm.

 

[İsmail Küçükşengün]

Sn. Leventm ve Sn ripek;

Bu kadar kısa sürede sorunun çözüme katkılarınız sadece alkışlanır.

Yalnız bu arada (Userformların Show Modal özelliğini False yaptığımızda)
Formlardaki diğer nesenelerle yapılacak işlemler -Kaydet,değiştir-sil ...vs.-bundan etkilenir mi.)

Yani Show Modal özelliklerini False veya True yapmakla userformların hangi özellikler kazanıp, hangi özellikleri kaybedeceklerini da açıklarsanız sevinirim.


Selam ve Teşekkürlerimle.

 

[Recep İpek]

Öncelikle sorunuza çözüm bulunduğu için sevindim.

ShowModal özelliği bir Userform açıkken gerek sayfada olsun, gerekse başka userformlarda olsun çalışmanızı sağlar.

Diğer işlemleri etkileyeceğini sanmıyorum.

 

[İsmail Küçükşengün]

Sn. ripek;

Tekrar teşekkür ve selamlarımı sunuyorum.