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)

                Me.pb_lbl.Caption = "Veriler Güncelleniyor... % " & Int(yuzde)

            End If

        

        Next

Milli Eğitim Bakanlığı na bağlı okullarda öğrencilere verilecek ödül ve cezaların, disiplin işlerini kolaylaştıracak bir çalışma. Umarım ilgili kişilere faydalı olur.
Katkılarını esirgemeyen Sayın Berduş'a ve diğer arkadaşlara çok teşekkür ediyorum.

Önceki açtığım konu kapandığı için bu konuyu açtım.

Access dosyalarını başlıktaki gibi güncelleme konusu.

Dosyalar @ozanakkaya   hoca tarafından yapılmıştır.

Güncel ve değişik yoldan yapılmış hali 17.mesajdadır yakit_hesapla adındaki ekli dosya.
Açıklamalarda zaten mesajlarda var.

Merhaba.

Ekteki dosyada kapalı dosyadaki A sütununun son verisini ve satır numarasını bulur.

Kod başka bir forumdan Haluk hocaya aittir sağolsun kendisi.