كيف أعمل شريط تقدم لقاعدة بيانات ؟

في الجملة الشرطية الخاصة بالبحث عن السجلات

لو ما حصل نتيجة في البحث تقوله exit sub

else

Progress bar1.value = 0

Progress bar1.max = adodec.recordcount

Progress bar1.visible = true

بعدين تنزل داخل اللوب المعمول لعرض البيانات

قبل كلمة Loop تكتب

Progress bar1.value = Progress bar1.value + 1

ثم بعد كلمة Loop تكتب

Progress bar1.visible = false

أخي لو الصورة ما وضحت أرفق مشروعك وأنا أعدل عليه .. تحياتي

شكرا لك يا أخي

الملف حجمه أكثر من 2 ميجا لذا لا أستطيع تحميله

بس أنا أضع الكود و انت عدل فيه

Private Sub Command1_Click()
adodec1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\" & "data\shura.mdb" & ";Jet OLEDB:Database Password= ********"
adodec1.RecordSource = "select * from entekhab ORDER BY fullname "
adodec1.Refresh
Exit Sub

ProgressBar1.Value = 0
ProgressBar1.Max = adodec1.Recordset.RecordCount
ProgressBar1.Visible = True
Set DataReport1.DataSource = adodec1
	' عرض التقرير

Do
ProgressBar1.Value = ProgressBar1.Value + 1
Loop
ProgressBar1.Visible = False
DataReport1.Show 1

End Sub

وين رحت يا محمدvb انتظرك