تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[Acces2003] كيفية عمل شريط Progress Bar حقيقي للعمليات التي تأخذ وقت طويل
#1
السلام عليكم 

عندي برنامج اكسس واقوم بعملية معينة تأخذ بعض الوقت عند ظهور النتيجة - والنتيجة تكون على هيئة msgbox 

هل يمكن عمل Progress Bar  حقيقي وعند انتهاء التحميل تظهر النتيجة فوراً 

مع العلم ان مدة العملية غير ثابتة

؟؟
الرد }}}
تم الشكر بواسطة:
#2
ممكن اخي لكن ارفق المثال حتى يتسنى للاخوة مساعدتك
التميز و الابداع شعاري
الرد }}}
تم الشكر بواسطة:
#3
شاهد الفيديو


كيفية عمل ProgressBar في Microsoft Access
Let's make a Custom Progress Bar in Microsoft Access
https://www.youtube.com/watch?v=0SqcA9vIRs0


أداة جاهزة من ProgressBar ل Microsoft Access
Microsoft Access Progress Bar Template
https://www.youtube.com/watch?v=IPe6AwKzkaE
https://www.microsoftaccessexpert.com/Mi...Meter.aspx



مقال من ميكروسوفت عن ProgressBar ل Microsoft Access
https://support.microsoft.com/en-us/kb/174026
الرد }}}
تم الشكر بواسطة:
#4
(14-07-16, 03:18 PM)aliday03 كتب : ممكن اخي لكن ارفق المثال حتى يتسنى للاخوة مساعدتك


المثال هو ارسال بريد الكتروني من خلال VBA باستخدام CDO وليس بالـ Outlook

والكود الى استخدمة

PHP كود :
Private Sub Command1_Click()
 
   Dim Mailto  As String            'Mail To 
    Dim mail    As Object           ' 
CDO.MESSAGE
    Dim config  As Object           
' CDO.Configuration
    
    Mailto = InputBox("Enter Mail", "Enter Email Address")
    
    If Mailto <> "" Then ' 
if it not empty
 
   MsgBox ("Mail will sent to " Mailto " Press OK and wait for confirmation message "), "Sending ..."
 
   Else
    MsgBox 
"Canceled , or No Mail entered "vbCritical"Error"
 
  'Terminate if the cancel or empty value is found button is clicked!
    End If


    Set mail = CreateObject("CDO.Message")
    Set config = CreateObject("CDO.Configuration")
    
    config.Fields(cdoSendUsingMethod).Value = cdoSendUsingPort
    config.Fields(cdoSMTPServer).Value = "xxxx"
   
    config.Fields(cdoSMTPServerPort).Value = 465  
    config.Fields(cdoSMTPUseSSL).Value = "true"
    
    config.Fields(cdoSMTPAuthenticate).Value = cdoBasic
    config.Fields(cdoSendUserName).Value = "xxxxx"
    config.Fields(cdoSendPassword).Value = "xxxxx"

    config.Fields.Update
    
    Set mail.Configuration = config
    
    With mail
        .To = Mailto
        .From = "xxxx"
        .Subject = "Test Sub"
        .TextBody = "Test Body."
        .AddAttachment "c:\users\data.bin"
        
        .Send
    End With
    
    Set config = Nothing
    Set mail = Nothing
    If Err.Number = 0 Then
    MsgBox "Message Sent Successfully", vbInformation, "Sent"

End Sub   

وعملية الـ المرفقات تاخذ وقت على حسب حجم الملف المرفق
ومثل ماموجود في الكود في حالة عدم وجود Errors وارسال الملف تيجي رسالة تأكيد الارسال
  MsgBox "Message Sent Successfully", vbInformation, "Sent"


الرسالة دة تظهر بعد وقت مثل ماقلت حسب حجم الملف المرفق 

اثناء هذه الوقت اريد عمل 
Progress bar 
حقيقي يبين المدة المفترض انتظارها ( لارفاق الملف  و ارسال الرسالة) حتي تظهر رسالة تأكيد الارسال

فلو فية كود يعمل الخاصية دة 

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

(14-07-16, 04:16 PM)الوادي كتب : شاهد الفيديو


كيفية عمل ProgressBar في Microsoft Access
Let's make a Custom Progress Bar in Microsoft Access
https://www.youtube.com/watch?v=0SqcA9vIRs0


أداة جاهزة من ProgressBar ل Microsoft Access
Microsoft Access Progress Bar Template
https://www.youtube.com/watch?v=IPe6AwKzkaE
https://www.microsoftaccessexpert.com/Mi...Meter.aspx



مقال من ميكروسوفت عن ProgressBar ل Microsoft Access
https://support.microsoft.com/en-us/kb/174026


جميع هذه الشروحات على عمل Progress bar  شكليه وهمية لعملية التحميل وليست مرتبطة ببيانات البرنامج او المدة الفعلية التي تاخذها العملية للتحميل
الرد }}}
تم الشكر بواسطة:
#5
للــــــــــرفــــــــــــــــع !
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية elgokr 55 78,624 05-02-23, 03:21 PM
آخر رد: tighrmte
  [سؤال] بخصوص شريط القوائم في الأكسس بوكفوس عبدالسلام 1 934 09-11-22, 12:45 AM
آخر رد: سيد أحمد
  كيفية التعديل فى الترقيم التلقائى وجعل الترقيم يبدا من رقم محدد hanymajdy 1 1,207 16-10-21, 07:03 PM
آخر رد: abubasilIraq
  كيفية رؤية الجدول فى برنامج مصنع بالاكسس عبدالسلام مصطفى 0 1,037 19-12-20, 02:06 AM
آخر رد: عبدالسلام مصطفى
  [سؤال] كيفية فتح مرفق برقم السجل hassan 1 1,577 26-03-20, 12:09 AM
آخر رد: hassan
  > سؤال كيفية طباعة تقرير لسجل واحد,كيفية طباعة تقرير لسجل محدد من نموذج معين alifreish 3 4,280 20-12-18, 03:47 AM
آخر رد: elgokr
  كيفية نسخ قيمة حقل KhaledAnwer88 6 3,015 10-09-17, 10:51 PM
آخر رد: KhaledAnwer88
  شرح كيفية حساب نسب الغرامات تلقائى للتاخر القساط او الاشتركات hanymajdy 3 2,281 27-07-17, 05:03 PM
آخر رد: أبو نوره
  كيفية انشاء باسسورد لقاعدة اكسس 2010 محاسب يوسف 3 3,482 31-01-17, 01:06 PM
آخر رد: mohamed nggar
  [Acces2010] كيفية عمل ربط بين جدول اساسي و Navigation Control alvingenius 1 2,022 04-09-16, 12:38 PM
آخر رد: madibbou

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم