*فورم* عرض مقياس تقدم

يمكنك عرض مقياس تقدم لعملية ما على شريط المعلومات بالكود التالي لكن يجب عليك تحديد القيمة العظمى أو النهاية الكبرى للمقياس .

في الكود التالي تم تحديد النهاية العظمى بـ 700 طبعا المثال افتراضي وإلا المفروض عند بدء عملية ما كحذف سجلات أو إضافة سجلات أو تحديث أو غيرها أن تعرف عدد السجلات التي سينطبق عليها الأمر -برمجيا- ثم نجعلها قيمة عظمى .

Dim VarReturn As Variant, str As String

Dim عدد_الطلاب As Long

Dim I As Integer

عدد_الطلاب = 700

str = "تقدم عملية الإضافة ....."

VarReturn = SysCmd(acSysCmdInitMeter, str, عدد_الطلاب)

For I = I To عدد_الطلاب

' أوامر

VarReturn = SysCmd(acSysCmdUpdateMeter, I)

Next I

VarReturn = SysCmd(acSysCmdRemoveMeter)

وللجميع التحية