İyi Günler , İyi Çalışmalar Arkadaşlar

Programda "KAYDET" butonuna basıldığında ekranda görselleri bulunan hatayı veriyor. Bu konuda yardımınızı rica ediyorum

Saygılarımla..!






[Resim: https://accesstr.net/resim/do.php?img=8893]

[Resim: https://accesstr.net/resim/do.php?img=8894]

bu örnekte süre ölçer ile progress bar çalışıyor

buna başlangıç bitiş ve artma değeri ekleyerek nasıl yapabiliriz

[vb] Dim say As Long
        Dim w As Long
        Dim deger As Double
        Dim yuzde As Double
        Dim lastInt As Integer
        Dim son As Integer
        lastInt = 0
        w = Me.pb_cerceve.Width
       
        For say = 1 To 10000
       
            deger = say * w / son
            yuzde = say * 100 / son
           
            If (Int(yuzde) <> lastInt) Then
                lastInt = Int(yuzde)
                Call RunProgressBar(Me.pb_item, deger)