كيف يمكن عمل شاشة افتتاحية بها شريط تقدم Progress Bar

السلام عليكم وحمة الله وبركاته

ماذا تقصد بالشريط التقدمي

PORGERSS BAR

الاخ الغالي أبو عبد الرحمن

تفضل شرح الطريقة خطوة خطوة

Private Sub Form_Timer()

Dim i As Integer
For i = i To 1000
ProgressBar6.Value = i
If i = 1000 Then
End If
Next i
DoCmd.Close
DoCmd.OpenForm "CU_Data"
End Sub

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

وان كنت اريد ان استفيد من خبراتك في كيف يمكن جعل هذه الشاشة في البداية ومن بعده الشاشات الاخري؟

اختر ادوات > بدء التشغيل > عرض النمةذج اختر الشاشة للدخول البها الشريط التقدمي التي فيها حدد فتح الشاشة الرئيسية

بالضبط كما قال الاخ الغالي خالد

اختار ادوات اذا كنت تملك النسخة العربية اما اذا كانت لديك النسخة الانجليزية فاختار Tools

ثم بدء التشغيل أو Startup

بعدها يمكنك اختيار عرض نموذج الذي يظهر امامك وقت فتح البرنامج

تحية طيبة وشكر للاخ خالد والشكر والتقدير للمبدع دائما الأخ محمد فؤاد تركي