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

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

السلام عليكم

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

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

17 ساعات مضت, محمد التميمي said:

السلام عليكم

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

rar.rar

نشكرك .. لكن تقدر تستخدم دالة 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

منذ ساعه, ABOUOMER said:

ZIP

يا شباب

تفضل

مؤشر تحميل.zip

ABOUOMER · يناير 20, 2018

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

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

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

ممكن نسخة zip

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

22 ساعات مضت, محمد التميمي said:

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

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

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

15 ساعات مضت, طاهر الوليدي said:

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

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

مؤشر تحميل.zip

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

ABOUOMER · يناير 20, 2018

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

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

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

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

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

test_mdb.rar

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

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

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

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

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

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

ABOUOMER · يناير 21, 2018

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

الرجاء نسخة

ZIP

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

22 ساعات مضت, sandanet said:

تفضل

مؤشر تحميل.zip

47 دقائق مضت, ABOUOMER said:

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

الرجاء نسخة

ZIP

تجده اعلاه

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

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

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

888.Clipboard01.jpg.84c162ff094d9181e2ee681d4ab59636.jpg

.

888.Clipboard02.jpg.3128b784a584eff729100b93afb101a2.jpg

.

888.Clipboard03.jpg.002e60ad145eae51ddf4c2708d22efed.jpg

.

بهذا الكود:

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.zip

ABOUOMER · يناير 21, 2018

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

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

37 دقائق مضت, ABOUOMER said:

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

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

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

جعفر

ABOUOMER · يناير 21, 2018

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

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

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

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

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

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

تسجيل الدخول

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

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

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

Join the conversation

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

Important Information