تقييم الموضوع :
  • 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
للــــــــــرفــــــــــــــــع !
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [Acces2010] كيفية عمل ربط بين جدول اساسي و Navigation Control alvingenius 1 194 04-09-16, 12:38 PM
آخر رد: madibbou
  سؤال : كيفية استخدام دالة round haiderkh 2 132 30-08-16, 01:32 PM
آخر رد: haiderkh
  كيفية ربط قاعدة بيانات اكسيس بين جهازين فى نفس الوقت عن طريق الويب doctorhamdy 7 340 29-07-16, 05:48 PM
آخر رد: الوادي
  كيفية الاستعلام من جدولين لحقل يحمل مفس الاسم aftfm 1 215 12-05-16, 11:41 AM
آخر رد: aftfm
  كيفية تحويل امتداد الملف بالاكسيس الي mde ميمو55 1 1,187 14-04-15, 03:31 PM
آخر رد: Al-OmmdA
  كيفية انشاء باسسورد لقاعدة اكسس 2010 محاسب يوسف 2 832 16-08-13, 08:33 PM
آخر رد: محاسب يوسف

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


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