كيفية عمل شريط التقدم في الشاشة الافتتاحية

[ناديه]

كيفيه عمل ProgressBar في النموذح الاشاشه الافتتاحيه بمعني عندما يتم تحميله يفتح نموذج الاساسي للبرنامج

اريد طريقه العمل وبالاكود ياريت ضروري

وشكرا جزيلا علي المساعده

[ابوعزو]

تفضلي اختي العزيزة

هذا مثال احد الاخوة

وفية شرح عن طريق مستند الوورد

_____________________________.rar

تم تعديل يونيو 1, 2008 بواسطه ابوعزو

[ابو يامن]

أختي العزيزة :

يمكنك الرجوع الى الوصلة التالية لتجدي مثال يشرح لك ذلك .

http://www.officena.net/ib/index.php?showt...st&p=109561

مع الشكر ، ، ،

[ناديه]

تفضلي اختي العزيزة

هذا مثال احد الاخوة

وفية شرح عن طريق مستند الوورد

اولا : شكرا جدا علي مساعدتك لي

ثانيا : انا عملت كل المطلوب ومع ذالك لم ينم التشغيل ويظهر لي خطا في الاكواد

Private Sub Form_Timer()

Dim i As Integer

For i = i To 3000

ProgressBar8.Value = i

If i = 3000 Then

Next i

DoCmd.Close

DoCmd.OpenForm "ÚÇã"

End If

ياريت الكود الصحيح

[osama ababneh]

السلام عليكم

اختي الكود صحيح ولكن مع تغيير القيمة

ProgressBar8.Value = i

الى

ProgressBar1.Value = i

[ناديه]

السلام عليكم

اختي الكود صحيح ولكن مع تغيير القيمة

8.Value = i

الى

1.Value = i

اخي ليبرا

انا الحمد لله عملتها وشكرا جزيلا لكم جميعا علي الافاده