Sorgu için döngüde ne kadar kaldığını gösteren bir form elemanı

[a_self_lion]

Selam Arkadaşlar aşağıda ki düngüde nasıl bir form elemanı koymalıyım ki bana ne kadar kaldığını yüzde 10 bitti yüzde 20 bitti yüzde 80 bitti şeklinde için dolu bir çubuk şeklinde göstersin nasıl yapabilirim böyle bir özelliği.
Teşekkürler şimdiden yardımlarınız için.

Do Until RST.EOF
For I = 1 To RST.RecordCount Step 1
Cells(I + 12, 1) = RST.Fields(0)
Cells(I + 12, 2) = RST.Fields(1)
Cells(I + 12, 3) = RST.Fields(2)
Cells(I + 12, 4) = RST.Fields(3)
Cells(I + 12, 5) = RST.Fields(4)
Cells(I + 12, 6) = RST.Fields(5)
Cells(I + 12, 7) = RST.Fields(6)
'Cells(I + 12, 8) = RST.Fields(7)
'Cells(I + 12, 9) = RST.Fields(8)
'Cells(I + 12, 10) = RST.Fields(9)
'Cells(I + 12, 11) = RST.Fields(10)
'Cells(I + 12, 12) = RST.Fields(11)
'Cells(I + 12, 13) = RST.Fields(12)
'Cells(I + 12, 14) = RST.Fields(13)
'Cells(I + 12, 15) = RST.Fields(14)
'Cells(I + 12, 16) = RST.Fields(15)


RST.MoveNext

 

[Korhan Ayhan]

Selamlar,

Formunuzun üzerine bir adet Label ekleyin. Caption değerini silin. Aşağıdaki kodu çalıştırın.

Do Until RST.EOF
For I = 1 To RST.RecordCount Step 1
DoEvents
Cells(I + 12, 1) = RST.Fields(0)
Cells(I + 12, 2) = RST.Fields(1)
Cells(I + 12, 3) = RST.Fields(2)
Cells(I + 12, 4) = RST.Fields(3)
Cells(I + 12, 5) = RST.Fields(4)
Cells(I + 12, 6) = RST.Fields(5)
Cells(I + 12, 7) = RST.Fields(6)
'Cells(I + 12, 8) = RST.Fields(7)
'Cells(I + 12, 9) = RST.Fields(8)
'Cells(I + 12, 10) = RST.Fields(9)
'Cells(I + 12, 11) = RST.Fields(10)
'Cells(I + 12, 12) = RST.Fields(11)
'Cells(I + 12, 13) = RST.Fields(12)
'Cells(I + 12, 14) = RST.Fields(13)
'Cells(I + 12, 15) = RST.Fields(14)
'Cells(I + 12, 16) = RST.Fields(15)
Label1.Caption = "% " & Round(I / RST.RecordCount * 100, 0)
RST.MoveNext