timer hk. yardım

Katılım
16 Mart 2005
Mesajlar
132
Excel Vers. ve Dili
Office 2003 (Eng. )
Sn modalı merhaba,

Elimde aşağıdaki şekilde bir kod var daha önce siz yardımcı olmuştunuz diye hatırlıyorum.Forma dk olarak bir süre giriliyor ve süre bitiminde macrolar çalışıyor.Ben buradaki süreyi dakika olarak değil tarih-saat-dk-sn olarak girmek istiyorum "05:09:2007 17:55:00" şeklinde acaba yardımcı olabilirmisiniz?

Saygılarımla,

Option Compare Database
Option Explicit
Dim bekle, bekle1 As Integer

Private Sub cmdÇalıştır_Click()
bekle = txtTimer

Me.TimerInterval = 60000
End Sub

Private Sub cmdÇalıştır1_Click()
bekle1 = txtTimer1

Me.TimerInterval = 60000
End Sub


Private Sub Form_Timer()
bekle = bekle - 1
bekle1 = bekle1 - 1

'===============================================

lblTimer.Caption = bekle
lblTimer1.Caption = bekle1

'=============================================
If bekle = 0 Then
DoCmd.RunMacro "macro1"
End If

If bekle1 = 0 Then
DoCmd.RunMacro "macro2"
End If

'================================================

'BEKLE1
'=====================
If bekle < bekle1 Then


If bekle1 = 0 Then
Me.TimerInterval = 0
End If
End If

'BEKLE
'====================
If bekle1 < bekle Then

If bekle = 0 Then
Me.TimerInterval = 0
End If
End If

End Sub
 
Katılım
15 Kasım 2006
Mesajlar
583
Excel Vers. ve Dili
Ms Office 2003 Türkçe
Bir nevi zamanlanm&#305;&#351; g&#246;rev(scheduled tasks) mi olu&#351;turmak istiyorsun?
 
Katılım
16 Mart 2005
Mesajlar
132
Excel Vers. ve Dili
Office 2003 (Eng. )
Bir nevi zamanlanmış görev(scheduled tasks) mi oluşturmak istiyorsun?
Ekte sn. modalının hazırlamış olduğu formda zamanı dakika değil "tarih-saat-dk-sn" olarak girmek istiyorum.(05.09.2007 17:15:00 şeklinde)
 

beab05

Özel Üye
Katılım
19 Mart 2007
Mesajlar
1,418
Excel Vers. ve Dili
Office 2013
Kod:
Me!lbltimer.Caption = Format("dd mmmm yyyy  -   hh:mm:ss ")
Me!lbltimer1.Caption = Format("dd mmmm yyyy  -   hh:mm:ss ")
Load eventine bu kodlar&#305; yaz&#305;n..

Ben denemedim, deneyemedim uygulama &#231;al&#305;&#351;mad&#305; ...
 
Üst