Accesste Resimlerin Otomatik Geçişi (Slayt Şeklinde) Nasıl Yapılır?

Konu hala çözüm beklemekte
Öneri ve yardımlarınızı bekliyor saygılar sunuyorum..

Forma Buton ekle, tıklandığında olayına aşağıdaki kodu ekle.

 For a = 2 To Me.RESİM.AttachmentCount



        Pause (0.5)

        Me.Etiket58.Caption = "Resim " & a & "/" & Me.RESİM.AttachmentCount

        Me.RESİM.Forward

    Next a

kod sayfasında en alta aşağıdaki kodu ekle

Public Function Pause(NumberOfSeconds As Variant)



On Error GoTo Err_Pause

    

    Dim PauseTime As Variant, Start As Variant

    

    PauseTime = NumberOfSeconds

    Start = Timer

    Do While Timer < Start + PauseTime

    DoEvents

    Loop

    

Exit_Pause:

    Exit Function

    

Err_Pause:

    MsgBox Err.Number & " - " & Err.Description

    Resume Exit_Pause

    

End Function

Değerli ozan hocam;
Yardımlarınız için allah razı olsun..Verdiğiniz kodları uyguladım ve çalışıyor lakin 1-2 bir sıkıntı var.

1-Eklemiş olduğumuz butona basılınca ilk turda sorunsuz olarak resim geçişleri gerçekleşiyor lakin;
formu kapatmadan tekrar butona bastığımızda yani 2.turda (resimlerin ilerleme sayısını gösteren etiket58 de sanki resimleri gösteriyormuş gibi ilerleme gerçekleşiyor) resimler değişmiyor..

2-Butona bastıktan sonra (yani resim geçişini başlattıktan sonra ) formu kapattığımda resim1deki hatayı alıyorum.Debug yaptığımda kod kısmında resim2deki yerde uyarı alıyorum.

Bunların  sebebi ve çözümü konusunda öneri ve yardımlarınızı bekliyor saygılar sunuyorum..


Not:Uygulamanın son hali ilk mesajda güncellenmiştir.


RESİM1


RESİM2

İnceleyiniz.

Değerli Ozan hocam;
Çok tşk ediyorum,allah razı olsun.Sayenizde bu konuda çözüme kavuştu.

Konu taşınabilir.Saygılar sunuyorum.