+- 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ığı: zaman dolduğunda komut bir kez çalısın (/konu-zaman-doldugunda-komut-bir-kez-calisin.html)
zaman dolduğunda komut bir kez çalısın - zetyu - 20/11/2009
Zaman dolduğunda yeni form açılıyor ..ama ben yeni açılan formu kapatsam bile sürekli tekrar ,tekrar açılıyor.Zaman dolduğunda bölmüne yazılan kodun sadece 1 kez çalışması nasıl yapılabilir.......
Ekte Sayın Celoyce nın bir örneği var onun üzerinde anlattım.Şimdiden ilginize çok teşekkür ederim
................................
Private Sub Form_Timer()
Dim Y As String
Y = "00"
If X <= 10 Then
Me.Label10.Visible = True
X = X + 1
If X = 11 Then: Beep
Me.Label10.Caption = Format(Choose(X, "10", "9", "8", "7", "6", "5", "4", "3", "2", "1", "0"), Y)
Else
DoCmd.OpenForm "Celoyce"
End If
End Sub
...........................................................................
Cvp: zaman dolduğunda komut bir kez çalısın - accessman - 20/11/2009
kendimce çözümü böyle yaptım
c formundaki kodu böyle değiştirdim
--------------------------
Private Sub Form_Timer()
If X <> -1 Then
Dim Y As String
Y = "00"
If X <= 10 Then
Me.Label10.Visible = True
X = X + 1
If X = 11 Then: Beep
Me.Label10.Caption = Format(Choose(X, "10", "9", "8", "7", "6", "5", "4", "3", "2", "1", "0"), Y)
Else
DoCmd.OpenForm "Celoyce"
X = -1
End If
End If
End Sub
Cvp: zaman dolduğunda komut bir kez çalısın - esrefigit - 20/11/2009
zaman dolduğunda olayında kod bir defa çalıştı bu kodun sonuna bu kod bir daha çalışmasın diye sıfırlayan bir şey eklemen gerekecek ki buda zamanı sıfırlamak olacaktır. Onu da TimerInterval = 0 ile yapabilirsin şayet kodu bir daha çalıştırmak istiyorsan yeniden zamanlama belirtmen gerkişyorki o zamanda uygun bir yere TimerInterval = 1000 bunu yazman gerekiyor.
Cvp: zaman dolduğunda komut bir kez çalısın - zetyu - 21/11/2009
Teşekkür ederim elinize sağlık tam istediğim gibi.