Herkese selam,

Aşağıdaki kodlarla A formumdaki fotoğrafları bir buton vasıtasıyla slayt olarak döndürüyorum ve durduruyorum. Bu fotoğraflar bir kayıta ait. her kayıt kendi fotoğraflarına sahip. kayıt form üzerinde açtığımda o kayıta ait fotoğraflar dönüyor. (Bazen formda tek bir kayıt olmasına rağmen bütün kayıtlara ait fotoğraflar da slayt gösterisine katılıyor nedendir bilmem  ) Sanırım kayıt ID 'si ile sınırlandırılması gerekiyor. Ancak son fotoğrafa geldiğinde tekrar ilk fotoğrafa gidiyor ve slayt dönmeye devam ediyor. 

Son fotoğrafa geldiğinde butona tekrar basmadan nasıl durdurabilirim ve fotoğrafların bittiğini bir ileti ile kullanıcıya nasıl gösterebilirim?
Aslında formu açtığım anda dönmeye başlıyordu. Ben de form açılışına Me.Timerinterval=0 dedim ve bu dönme işlemini kontrol altına aldım. Şimdi sadece butona basınca dönüyor ama durmuyor  .

Private Sub btnBurBas_Click()
If Me.TimerInterval = 0 Then TimerInterval = 5000 Else TimerInterval = 0
End Sub

Private Sub Form_Timer()
On Error Resume Next
If Me.CurrentRecord < Me.Recordset.RecordCount Then DoCmd.GoToRecord , , acNext Else DoCmd.GoToRecord , , acFirst :Me.TimerInterval = 0: Msgbox "Fotoğraflar Bitti!"
End Sub

Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
Me.TimerInterval = 0
End Sub

Teşekkür ederim.

(11-02-2020, 00:29)M_Kemal_Askeri demiş ki: Herkese selam,

Aşağıdaki kodlarla A formumdaki fotoğrafları bir buton vasıtasıyla slayt olarak döndürüyorum ve durduruyorum. Bu fotoğraflar bir kayıta ait. her kayıt kendi fotoğraflarına sahip. kayıt form üzerinde açtığımda o kayıta ait fotoğraflar dönüyor. (Bazen formda tek bir kayıt olmasına rağmen bütün kayıtlara ait fotoğraflar da slayt gösterisine katılıyor nedendir bilmem  ) Sanırım kayıt ID 'si ile sınırlandırılması gerekiyor. Ancak son fotoğrafa geldiğinde tekrar ilk fotoğrafa gidiyor ve slayt dönmeye devam ediyor. 

Son fotoğrafa geldiğinde butona tekrar basmadan nasıl durdurabilirim ve fotoğrafların bittiğini bir ileti ile kullanıcıya nasıl gösterebilirim?
Aslında formu açtığım anda dönmeye başlıyordu. Ben de form açılışına Me.Timerinterval=0 dedim ve bu dönme işlemini kontrol altına aldım. Şimdi sadece butona basınca dönüyor ama durmuyor  .

Private Sub btnBurBas_Click()
If Me.TimerInterval = 0 Then TimerInterval = 5000 Else TimerInterval = 0
End Sub



Private Sub Form_Timer()
On Error Resume Next
If Me.CurrentRecord < Me.Recordset.RecordCount Then DoCmd.GoToRecord , , acNext Else DoCmd.GoToRecord , , acFirst
End Sub

Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
Me.TimerInterval = 0
End Sub

Teşekkür ederim.

Merhaba, örnek dosya atarsanız daha iyi yardımcı olmaya çalışabilirim. Ancak aşağıdaki gibi bir mantıkla yapılabilir sanırım. 

If CurrentRecord.id = Max(Me.Recordset.RecordCount.id) Then
TimerInterval = 0
End if

sayın onur_can çok teşekkür ederim. Sorun çözülmüştür.
Güneşli günler sizin olsun...