AccessTr.neT
Accesste Resimlerin Otomatik Geçişi (Slayt Şeklinde) Nasıl Yapılır? - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Accesste Resimlerin Otomatik Geçişi (Slayt Şeklinde) Nasıl Yapılır? (/konu-accesste-resimlerin-otomatik-gecisi-slayt-seklinde-nasil-yapilir.html)

Sayfalar: 1 2


Cvp: Accesste Resimlerin Otomatik Geçişi (Slayt Şeklinde) Nasıl Yapılır? - mehami - 13/04/2016

Konu hala çözüm beklemekteImg-cray(

Öneri ve yardımlarınızı bekliyor saygılar sunuyorum..


Cvp: Accesste Resimlerin Otomatik Geçişi (Slayt Şeklinde) Nasıl Yapılır? - ozanakkaya - 14/04/2016

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



Cvp: Accesste Resimlerin Otomatik Geçişi (Slayt Şeklinde) Nasıl Yapılır? - mehami - 14/04/2016

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
[Resim: 14606007471.png]

RESİM2
[Resim: 14606007851.png]


Cvp: Accesste Resimlerin Otomatik Geçişi (Slayt Şeklinde) Nasıl Yapılır? - ozanakkaya - 14/04/2016

İnceleyiniz.


Cvp: Accesste Resimlerin Otomatik Geçişi (Slayt Şeklinde) Nasıl Yapılır? - mehami - 14/04/2016

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

Konu taşınabilir.Saygılar sunuyorum.