A.S.C Filtre, Grafik ve Raporlama Eklentisi

[VBA] Fotoğraf Gösteriminin Son Fotoğraf Gösteriminden Sonra Durması
#1
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 Smile ) 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 Smile .

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.



  Alıntı
Bu mesajı beğenenler:
#2
Visual Basic
  1. If Me.CurrentRecord < Me.Recordset.RecordCount Then
  2. DoCmd.GoToRecord , , acNext
  3. Else Msgbox "Fotoğraflar Bitti!"
  4. Endif





  Alıntı
Bu mesajı beğenenler:
#3
(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 Smile ) 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 Smile .

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



  Alıntı
Bu mesajı beğenenler:
#4
sayın onur_can çok teşekkür ederim. Sorun çözülmüştür.
Güneşli günler sizin olsun...



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Access'den Sonra Geçebileceğim Yazılım Programı h2001 6 279 08-01-2020, 20:54
Son Mesaj: halily
  Fotoğraf Albümü hazırlamak M_Kemal_Askeri 6 248 17-09-2019, 04:39
Son Mesaj: M_Kemal_Askeri
  [VBA] Web Sayfası Yüklendikten Sonra İşlem Yapma idrisy 1 366 23-11-2018, 20:05
Son Mesaj: idrisy
  [FORM] il ve ilçeyi seçtikten sonra tablolarda rakam yerine metin görünmesini istiyorum bkuğur 7 665 08-10-2018, 11:49
Son Mesaj: dsezgin
  [RAPOR] Önce rapor önizleme sonra yazdırma ayarları ve sonra yazdırma yapmak. axionvb 1 713 26-03-2018, 15:18
Son Mesaj: dayday
access-sql-20 [VBA] Listeyi görünür yaptıktan sonra seçime eğer ifadesi kullanmak Mr.Midnight 1 559 29-01-2018, 11:42
Son Mesaj: Mr.Midnight
  [SORGU] BOŞ OLAN ALANI BELİRLENEN GÜN KADAR SONRA HATIRLATARAK MAİL GÖNDERME PHEADRUS 1 722 12-01-2018, 12:33
Son Mesaj: dsezgin
  [VBA] Excel'e Gömülü Fotoğraf Aktarma donepezil 11 1.456 27-12-2017, 17:32
Son Mesaj: donepezil

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi