مؤشر تحميل جاهز

**محمد التميمي** · يناير 19, 2018

السلام عليكم

تفضل اخي عبد العزيز المحترم هذا ما طلبته في الرسالة مؤشر تحميل يمكنك تغيير العبارات والالوان

**Shivan Rekany** · يناير 19, 2018

في 19‏/1‏/2018 at 10:16, محمد التميمي said:

السلام عليكم

تفضل اخي عبد العزيز المحترم هذا ما طلبته في الرسالة مؤشر تحميل يمكنك تغيير العبارات والالوان

rar.rarFetching info...

Expand

نشكرك .. لكن تقدر تستخدم دالة if مرة واحدة بدل 100 مرات هكذا

Static intCount As Integer
intCount = intCount + 1
If intCount = 1 Then
Me.pr = "تقدم مؤشر التحقق 1%"
Else
If intCount = 2 Then
Me.pr = "تقدم مؤشر التحقق 2%"
Else
If intCount = 3 Then
Me.pr = "تقدم مؤشر التحقق 3%"
Else
If intCount = 4 Then
Me.pr = "تقدم مؤشر التحقق 4%"
Else
If intCount = 5 Then
Me.pr = "تقدم مؤشر التحقق 5%"
Else
If intCount = 6 Then
Me.pr = "تقدم مؤشر التحقق 6%"
Else
If intCount = 7 Then
Me.pr = "تقدم مؤشر التحقق 7%"
Else
If intCount = 8 Then
Me.pr = "تقدم مؤشر التحقق 8%"
Else
If intCount = 9 Then
Me.pr = "تقدم مؤشر التحقق 9%"
Else
If intCount = 10 Then
Me.pr = "تقدم مؤشر التحقق 10%"
Else
If intCount = 11 Then
Me.pr = "تقدم مؤشر التحقق 11%"
Else
If intCount = 12 Then
Me.pr = "تقدم مؤشر التحقق 12%"
Else
If intCount = 13 Then
Me.pr = "تقدم مؤشر التحقق 13%"
Else
If intCount = 14 Then
Me.pr = "تقدم مؤشر التحقق 14%"
Else
If intCount = 15 Then
Me.pr = "تقدم مؤشر التحقق 15%"
Else
If intCount = 16 Then
Me.pr = "تقدم مؤشر التحقق 16%"
Else
If intCount = 17 Then
Me.pr = "تقدم مؤشر التحقق 17%"
Else
If intCount = 18 Then
Me.pr = "تقدم مؤشر التحقق 18%"
Else
If intCount = 19 Then
Me.pr = "تقدم مؤشر التحقق 19%"
Else
If intCount = 20 Then
Me.pr = "تقدم مؤشر التحقق 20%"
Else
If intCount = 21 Then
Me.pr = "تقدم مؤشر التحقق 12%"
Else
If intCount = 22 Then
Me.pr = "تقدم مؤشر التحقق 22%"
Else
If intCount = 23 Then
Me.pr = "تقدم مؤشر التحقق 23%"
Else
If intCount = 24 Then
Me.pr = "تقدم مؤشر التحقق 24%"
Else
If intCount = 25 Then
Me.pr = "تقدم مؤشر التحقق 25%"
Else
If intCount = 26 Then
Me.pr = "تقدم مؤشر التحقق 26%"
Else
If intCount = 27 Then
Me.pr = "تقدم مؤشر التحقق 27%"
Else
If intCount = 28 Then
Me.pr = "تقدم مؤشر التحقق 28%"
Else
If intCount = 29 Then
Me.pr = "تقدم مؤشر التحقق 29%"
Else
If intCount = 30 Then
Me.pr = "تقدم مؤشر التحقق 30%"
Else
If intCount = 31 Then
Me.pr = "تقدم مؤشر التحقق 31%"
Else
If intCount = 32 Then
Me.pr = "تقدم مؤشر التحقق 32%"
Else
If intCount = 33 Then
Me.pr = "تقدم مؤشر التحقق 33%"
Else
If intCount = 34 Then
Me.pr = "تقدم مؤشر التحقق 34%"
Else
If intCount = 35 Then
Me.pr = "تقدم مؤشر التحقق 35%"
Else
If intCount = 36 Then
Me.pr = "تقدم مؤشر التحقق 36%"
Else
If intCount = 37 Then
Me.pr = "تقدم مؤشر التحقق 37%"
Else
If intCount = 38 Then
Me.pr = "تقدم مؤشر التحقق 38%"
Else
If intCount = 39 Then
Me.pr = "تقدم مؤشر التحقق 39%"
Else
If intCount = 40 Then
Me.pr = "تقدم مؤشر التحقق 40%"
Else
If intCount = 41 Then
Me.pr = "تقدم مؤشر التحقق 41%"
Else
If intCount = 42 Then
Me.pr = "تقدم مؤشر التحقق 42%"
Else
If intCount = 43 Then
Me.pr = "تقدم مؤشر التحقق 43%"
Else
If intCount = 44 Then
Me.pr = "تقدم مؤشر التحقق 44%"
Else
If intCount = 45 Then
Me.pr = "تقدم مؤشر التحقق 45%"
Else
If intCount = 46 Then
Me.pr = "تقدم مؤشر التحقق 46%"
Else
If intCount = 47 Then
Me.pr = "تقدم مؤشر التحقق 47%"
Else
If intCount = 48 Then
Me.pr = "تقدم مؤشر التحقق 48%"
Else
If intCount = 49 Then
Me.pr = "تقدم مؤشر التحقق 49%"
Else
If intCount = 50 Then
Me.pr = "تقدم مؤشر التحقق 50%"
Else
If intCount = 51 Then
Me.pr = "تقدم مؤشر التحقق 51%"
Else
If intCount = 52 Then
Me.pr = "تقدم مؤشر التحقق 52%"
Else
If intCount = 53 Then
Me.pr = "تقدم مؤشر التحقق 53%"
Else
If intCount = 54 Then
Me.pr = "تقدم مؤشر التحقق 54%"
Else
If intCount = 55 Then
Me.pr = "تقدم مؤشر التحقق 55%"
Else
If intCount = 56 Then
Me.pr = "تقدم مؤشر التحقق 56%"
Else
If intCount = 57 Then
Me.pr = "تقدم مؤشر التحقق 57%"
Else
If intCount = 58 Then
Me.pr = "تقدم مؤشر التحقق 58%"
Else
If intCount = 59 Then
Me.pr = "تقدم مؤشر التحقق 59%"
Else
If intCount = 60 Then
Me.pr = "تقدم مؤشر التحقق 60%"
Else
If intCount = 61 Then
Me.pr = "تقدم مؤشر التحقق 61%"
Else
If intCount = 62 Then
Me.pr = "تقدم مؤشر التحقق 62%"
Else
If intCount = 63 Then
Me.pr = "تقدم مؤشر التحقق 63%"
Else
If intCount = 64 Then
Me.pr = "تقدم مؤشر التحقق 64%"
Else
If intCount = 65 Then
Me.pr = "تقدم مؤشر التحقق 65%"
Else
If intCount = 66 Then
Me.pr = "تقدم مؤشر التحقق 66%"
Else
If intCount = 67 Then
Me.pr = "تقدم مؤشر التحقق 67%"
Else
If intCount = 68 Then
Me.pr = "تقدم مؤشر التحقق 68%"
Else
If intCount = 69 Then
Me.pr = "تقدم مؤشر التحقق 69%"
Else
If intCount = 70 Then
Me.pr = "تقدم مؤشر التحقق 70%"
Else
If intCount = 71 Then
Me.pr = "تقدم مؤشر التحقق 71%"
Else
If intCount = 72 Then
Me.pr = "تقدم مؤشر التحقق 72%"
Else
If intCount = 73 Then
Me.pr = "تقدم مؤشر التحقق 73%"
Else
If intCount = 74 Then
Me.pr = "تقدم مؤشر التحقق 74%"
Else
If intCount = 75 Then
Me.pr = "تقدم مؤشر التحقق 75%"
Else
If intCount = 76 Then
Me.pr = "تقدم مؤشر التحقق 76%"
Else
If intCount = 77 Then
Me.pr = "تقدم مؤشر التحقق 77%"
Else
If intCount = 78 Then
Me.pr = "تقدم مؤشر التحقق 78%"
Else
If intCount = 79 Then
Me.pr = "تقدم مؤشر التحقق 79%"
Else
If intCount = 80 Then
Me.pr = "تقدم مؤشر التحقق 80%"
Else
If intCount = 81 Then
Me.pr = "تقدم مؤشر التحقق 81%"
Else
If intCount = 82 Then
Me.pr = "تقدم مؤشر التحقق 82%"
Else
If intCount = 83 Then
Me.pr = "تقدم مؤشر التحقق 83%"
Else
If intCount = 84 Then
Me.pr = "تقدم مؤشر التحقق 84%"
Else
If intCount = 85 Then
Me.pr = "تقدم مؤشر التحقق 85%"
Else
If intCount = 86 Then
Me.pr = "تقدم مؤشر التحقق 86%"
Else
If intCount = 87 Then
Me.pr = "تقدم مؤشر التحقق 87%"
Else
If intCount = 88 Then
Me.pr = "تقدم مؤشر التحقق 88%"
Else
If intCount = 89 Then
Me.pr = "تقدم مؤشر التحقق 89%"
Else
If intCount = 90 Then
Me.pr = "تقدم مؤشر التحقق 90%"
Else
If intCount = 91 Then
Me.pr = "تقدم مؤشر التحقق 91%"
Else
If intCount = 92 Then
Me.pr = "تقدم مؤشر التحقق 92%"
Else
If intCount = 93 Then
Me.pr = "تقدم مؤشر التحقق 93%"
Else
If intCount = 94 Then
Me.pr = "تقدم مؤشر التحقق 94%"
Else
If intCount = 95 Then
Me.pr = "تقدم مؤشر التحقق 95%"
Else
If intCount = 96 Then
Me.pr = "تقدم مؤشر التحقق 96%"
Else
If intCount = 97 Then
Me.pr = "تقدم مؤشر التحقق 97%"
Else
If intCount = 98 Then
Me.pr = "تقدم مؤشر التحقق 98%"
Else
If intCount = 99 Then
Me.pr = "تقدم مؤشر التحقق 99%"
Else
If intCount = 100 Then
Me.pr = "تم إكتمال التحقق 100%"

End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

غيره الى هذا

Static intCount As Integer
intCount = intCount + 1
If intCount Then
Me.pr = "تقدم مؤشر التحقق " & intCount & "%"
End If

ABOUOMER · يناير 19, 2018

ممكن نسخة zip

**محمد التميمي** · يناير 20, 2018

الاخ شقان شكرا جزيلا استخدمتها وكانت ناجحة فعلاً

مؤشر تحميل.rar

**طاهر الوليدي** · يناير 20, 2018

سؤال : حول المثال كيف اجعل عند الانتهاء من التحميل ولوصول 100% يفتح لي نموذج ثاني

تم تعديل يناير 20, 2018 بواسطه طاهر الوليدي

**sandanet** · يناير 20, 2018

اخ طاهر قم بوضع الكود التالي قبل عبارة end sub للدالة Private Sub Form_Timer()

If intCount = 100 Then DoCmd.close
DoCmd.OpenForm "YourForm"

غير كلمة YourForm الى النموذج الذي تريده

تحياتي

تم تعديل يناير 20, 2018 بواسطه sandanet

ABOUOMER · يناير 20, 2018

ZIP

يا شباب

**sandanet** · يناير 20, 2018

في 20‏/1‏/2018 at 12:33, ABOUOMER said:

ZIP

يا شباب

Expand

تفضل

مؤشر تحميل.zip

ABOUOMER · يناير 20, 2018

تظهر رسالة حطا علما انى استخدم اكسس 2013

**Shivan Rekany** · يناير 20, 2018

في 19‏/1‏/2018 at 18:18, ABOUOMER said:

ممكن نسخة zip

Expand

اتفضل اليك نسخة من زيب

في 20‏/1‏/2018 at 03:14, محمد التميمي said:

الاخ شقان شكرا جزيلا استخدمتها وكانت ناجحة فعلاً

Expand

الشعب يشكرك على ما تقدمه للشعب
تم تغيير شيء في الاكواد
الان هذه هو الاكواد المستخدمة

Option Compare Database
Private Sub Form_Open(Cancel As Integer)
    Me.pr = "سيبدأ التحميل ..."
End Sub

Private Sub Form_Timer()
Static intCount As Integer
    intCount = intCount + 1
        If intCount = 100 Then
                DoCmd.Close acForm, Me.Name
                DoCmd.OpenForm "FrmHello", acNormal
            ElseIf intCount Then
                Me.pr = "تقدم مؤشر التحقق " & intCount & "%"
                Me("sq" & intCount).Visible = True
        End If
End Sub

في 20‏/1‏/2018 at 09:43, طاهر الوليدي said:

سؤال : حول المثال كيف اجعل عند الانتهاء من التحميل ولوصول 100% يفتح لي نموذج ثاني

Expand

استاذنا @sandanet قام بالرد عليك وانا اضفت في الملف الجديد
سبحان الله ... كان متصفح مفتوح وما رايت المشاركات الاخيرة :smile:

مؤشر تحميل.zipFetching info...

تم تعديل يناير 20, 2018 بواسطه Shivan Rekany

ABOUOMER · يناير 20, 2018

الاخوة الافاضل

رسالة الخطا السابقة مستمرة

أبو نادر · يناير 20, 2018

عمل جميل جدا ورائع يا وحوش

في المرفق مثال لوميض تتنبيهي للمنع او أي شي ... أتمنى عمل زر أمر وبجانبه مؤشر التحميل وعند النقر عليه يتم عمل المؤشر وعند الانتهاء رسالة بان الإجراء تم

test_mdb.rar

**محمد التميمي** · يناير 20, 2018

تفضل اخي ABOUOMER شريط مؤشر من اكسس 2013 - 32 بايت يعمل عندي بشكل ممتاز بعد التعديل من قبل الاخ شفان

مؤشر تحميل اكسس 2013 - 32 بايت.rarFetching info...

تم تعديل يناير 20, 2018 بواسطه محمد التميمي

**طاهر الوليدي** · يناير 21, 2018

بارك الله فيكم جميعا وفي تفاعلكم

ABOUOMER · يناير 21, 2018

جهاز العمل لا يوجد بة ون رار

الرجاء نسخة

ZIP

**sandanet** · يناير 21, 2018

في 20‏/1‏/2018 at 13:54, sandanet said:

تفضل

مؤشر تحميل.zipFetching info...

Expand

في 21‏/1‏/2018 at 11:10, ABOUOMER said:

جهاز العمل لا يوجد بة ون رار

الرجاء نسخة

ZIP

Expand

تجده اعلاه

**jjafferr** · يناير 21, 2018

السلام عليكم :smile:

هذه طريقة خفيفة عملتها ، بحقل واحد ، ونستخدم فيه الخط بسطرين

.

بهذا الكود:

Option Compare Database

    Dim i As Integer
    Dim A As String

Private Sub Form_Open(Cancel As Integer)
    
    i = 0
Me.pr = "سيبدأ التحميل ..."
End Sub

Private Sub Form_Timer()
    
    'A = A & ChrW(&H2588)   'Big Block
    'A = A & Chr(124)        '|
    A = A & ChrW(&H2590)
    Me.lbl_Meter.Caption = A
    Me.pr = "تقدم مؤشر التحقق " & i & "%"
    
    i = i + 1
    If i = 100 Then
        Me.TimerInterval = 0
        
        DoCmd.Close acForm, Me.Name
       
    End If

End Sub

.

وهناك بديل آخر في الكود

بدل
    'A = A & ChrW(&H2588)   'Big Block
    'A = A & Chr(124)        '|
    A = A & ChrW(&H2590)


اعمل
    A = A & ChrW(&H2588)   'Big Block
    'A = A & Chr(124)        '|
    'A = A & ChrW(&H2590)

.

لتحصل على

.

جعفر

888.مؤشر تحميل.mdb.zipFetching info...

ABOUOMER · يناير 21, 2018

رسالة خطا اخى جعفر

**jjafferr** · يناير 21, 2018

في 21‏/1‏/2018 at 12:37, ABOUOMER said:

رسالة خطا اخى جعفر

Expand

وعليكم السلام :smile:

انا كلما رأيت الى رسالة OLE و عنصر ActiveX ، كلما جاء في بالي اعدادت الوندوز:

جعفر

ABOUOMER · يناير 21, 2018

السلام عليكم يا شباب

قمت باستراد النماذج وتغييير اسمها الى الانجليزية وتغيير اسم مقطع التفصيل وتغيير رسائل العربية وعمل معى الثلاث نماذج بنجاح

شكرا لصبركم وابداعاتكم

**محمد التميمي** · يناير 21, 2018

بارك الله فيكم جميعا يا اخواني الاعزاء على هذا التفاعل الرائع على ابسط المواضيع ودمتم لخدمة المسلمين

تم تعديل يناير 21, 2018 بواسطه محمد التميمي

تسجيل الدخول

مؤشر تحميل جاهز

الردود الموصى بها

محمد التميمي

Shivan Rekany

ABOUOMER

محمد التميمي

طاهر الوليدي

sandanet

ABOUOMER

sandanet

ABOUOMER

Shivan Rekany

ABOUOMER

أبو نادر

محمد التميمي

طاهر الوليدي

ABOUOMER

sandanet

jjafferr

ABOUOMER

jjafferr

ABOUOMER

محمد التميمي

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information