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
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