سؤال بخصوص مؤشر التحميل

[سامر محمود]

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

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

في عندي سؤال ياريت الاخوة الخبراء الافاضل يفيدوني فيه وتعم الفائدة

بالنسبة لمؤشر التحميل هو انا علشان اعمل شاشة مؤشر التحميل لازم اغيرها حسب كل تقرير عايزها تشتغل معاه يعني اصمم لكل تقرير شاشة مؤشر تحميل؟

[عمر ضاحى]

 

6 ساعات مضت, سامر محمود said:

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

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

في عندي سؤال ياريت الاخوة الخبراء الافاضل يفيدوني فيه وتعم الفائدة

بالنسبة لمؤشر التحميل هو انا علشان اعمل شاشة مؤشر التحميل لازم اغيرها حسب كل تقرير عايزها تشتغل معاه يعني اصمم لكل تقرير شاشة مؤشر تحميل؟

لماذا؟

هذا سيجعل فى كل مره انتظر لحين الانتهاء من الحدث ثم يقوم بفتح التقرير

عموما هذا يرجع لك

كل ال عليك كفكره

هتعلن عن متغير عام عند تشغيل الشاشه الرئيسيه

هيخزن فيه اسم النموذج او التقرير

وفى حدث عند الغلق لشريط التحميل يفتح التقرير او النموذج

او عند اكتمال الشريط يغلق الشريط و يفتح النموذج او التقرير

[سامر محمود]

طيب من فضل حضراتكم الخبراء الافاضل محتاج مراجعة للكود ده مش راضي يشتغل @عمر ضاحى

Dim LoadingForm As Form
   Sub ShowLoading()
       'ÇäÔÇÁäãæÐÌÇáÊÍãíá
       Set LoadingForm = CreateForm
       With LoadingForm
           .Caption = "ÝÖáÇ ÇäÊÙÑ ÇáÊÍãíá..."
           .Width = 300
           .Height = 100
           .Visible = True
       End With
       
       ' ????? ????? ???????
       Dim lblLoading As Label
       Set lblLoading = LoadingForm.Controls.Add("Forms.Label.1", "lblLoading")
       With lblLoading
           .Caption = "ÌÇÑí ÊÍãíá ÇáÊÞÑíÑ..."
           .Width = 280
           .Height = 40
           .Top = 30
           .Left = 10
       End With
       
       DoEvents ' ?????? ??????? ????????

       ' ??? ????? ??????? ???????
       ' Call YourReportName

       ' ????? ??????? ??? ????????
       LoadingForm.Visible = False
       DoCmd.Close acForm, LoadingForm.name
   End Sub

 

[عمر ضاحى]

28 دقائق مضت, سامر محمود said:

طيب من فضل حضراتكم الخبراء الافاضل محتاج مراجعة للكود ده مش راضي يشتغل @عمر ضاحى

Dim LoadingForm As Form
   Sub ShowLoading()
       'ÇäÔÇÁäãæÐÌÇáÊÍãíá
       Set LoadingForm = CreateForm
       With LoadingForm
           .Caption = "ÝÖáÇ ÇäÊÙÑ ÇáÊÍãíá..."
           .Width = 300
           .Height = 100
           .Visible = True
       End With
       
       ' ????? ????? ???????
       Dim lblLoading As Label
       Set lblLoading = LoadingForm.Controls.Add("Forms.Label.1", "lblLoading")
       With lblLoading
           .Caption = "ÌÇÑí ÊÍãíá ÇáÊÞÑíÑ..."
           .Width = 280
           .Height = 40
           .Top = 30
           .Left = 10
       End With
       
       DoEvents ' ?????? ??????? ????????

       ' ??? ????? ??????? ???????
       ' Call YourReportName

       ' ????? ??????? ??? ????????
       LoadingForm.Visible = False
       DoCmd.Close acForm, LoadingForm.name
   End Sub

 

هل تحاول اضافة عنصر بواسطة الكود ؟
فى نقطه ان Controls.Add غير موجوده فى الاكسيس 

ولا اعلم اذا كان ممكن تنفيذ هكذا فكره 

لان فى نقطه لازم تعرفها وهي ان لا يمكن انشاء عنصر اثناء تحميل النموذج

ولا يمكن تحرير عنصر فرعي من داخل النموذج ايضا 

 

انت جايب الكود من شات جي بي تي صحيح ؟

 

هذا رأيي

والله اعلم

[سامر محمود]

الان, عمر ضاحى said:

هل تحاول اضافة عنصر بواسطة الكود ؟
فى نقطه ان Controls.Add غير موجوده فى الاكسيس 

ولا اعلم اذا كان ممكن تنفيذ هكذا فكره 

لان فى نقطه لازم تعرفها وهي ان لا يمكن انشاء عنصر اثناء تحميل النموذج

ولا يمكن تحرير عنصر فرعي من داخل النموذج ايضا 

 

انت جايب الكود من شات جي بي تي صحيح ؟

 

هذا رأيي

والله اعلم

تمام

بحاول الاقي فكرة ابدا بيها

[عمر ضاحى]

16 دقائق مضت, سامر محمود said:

تمام

بحاول الاقي فكرة ابدا بيها

انت عاوز تعمل ايه بالظبط ؟

[سامر محمود]

الان, عمر ضاحى said:

انت عاوز تعمل ايه بالظبط ؟

الفكرة يا استاذي الفاضل @عمر ضاحى

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

ففكرت اني عايز اعمل موديول ثابت واستدعي الشاشة قبل التقرير 

[عمر ضاحى]

16 دقائق مضت, سامر محمود said:

تمام

بحاول الاقي فكرة ابدا بيها

انت عاوز تعمل ايه بالظبط ؟

[سامر محمود]

9 دقائق مضت, سامر محمود said:

الفكرة يا استاذي الفاضل @عمر ضاحى

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

ففكرت اني عايز اعمل موديول ثابت واستدعي الشاشة قبل التقرير 

 

[عمر ضاحى]

7 دقائق مضت, سامر محمود said:

 

7 ساعات مضت, عمر ضاحى said:

كل ال عليك كفكره

هتعلن عن متغير عام عند تشغيل الشاشه الرئيسيه

هيخزن فيه اسم النموذج او التقرير

وفى حدث عند الغلق لشريط التحميل يفتح التقرير او النموذج

او عند اكتمال الشريط يغلق الشريط و يفتح النموذج او التقرير

 

لو ركزت فى كلامي هتلاقيني معطيك الحل 
هي شاشة تحميل واحده فقط تكفي للكل

[سامر محمود]

الان, عمر ضاحى said:

 

لو ركزت فى كلامي هتلاقيني معطيك الحل 
هي شاشة تحميل واحده فقط تكفي للكل

ماهو الاعلان عن المتغير ده اللي مش عارفه لكن عملت الشاشة تمام خلاص

[عمر ضاحى]

11 دقائق مضت, سامر محمود said:

ماهو الاعلان عن المتغير ده اللي مش عارفه لكن عملت الشاشة تمام خلاص

لو فضيت 10 دقايق ان شاء الله بعملك حاجه توضح الفكره 

لكن حاول انت من طرفك علشان تتعلم

[عمر ضاحى]

اتفضل هذه فكرتي التى تم ذكرها سابقا

ProgressBar.rar

[سامر محمود]

الان, عمر ضاحى said:

اتفضل هذه فكرتي التى تم ذكرها سابقا

ProgressBar.rar 26.51 kB · 1 download

اخي الكريم @عمر ضاحى

جزاك الله خيرا هو ده بالظبط اللي كنت محتاجه واتعلمت منه بشكرك جدا جدا جدا

[عمر ضاحى]

34 دقائق مضت, سامر محمود said:

اخي الكريم @عمر ضاحى

جزاك الله خيرا هو ده بالظبط اللي كنت محتاجه واتعلمت منه بشكرك جدا جدا جدا

الحمد لله

بش افهم الكود كويس وبالاصح افهم الفكره نفسها وتخيل الحلول وبعدها طبق انسبهم واسهلهم لك

تم تعديل أكتوبر 19 بواسطه عمر ضاحى