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

[سامر محمود]

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

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

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

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

[عمر ضاحى]

 

  في 18‏/10‏/2024 at 19:29, سامر محمود said:

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

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

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

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

Expand  

لماذا؟

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

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

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

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

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

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

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

[سامر محمود]

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

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

 

[عمر ضاحى]

  في 19‏/10‏/2024 at 08:40, سامر محمود 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

 

Expand  

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

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

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

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

 

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

 

هذا رأيي

والله اعلم

[سامر محمود]

  في 19‏/10‏/2024 at 09:12, عمر ضاحى said:

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

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

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

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

 

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

 

هذا رأيي

والله اعلم

Expand  

تمام

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

[عمر ضاحى]

  في 19‏/10‏/2024 at 09:13, سامر محمود said:

تمام

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

Expand  

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

[سامر محمود]

  في 19‏/10‏/2024 at 09:31, عمر ضاحى said:

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

Expand  

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

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

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

[عمر ضاحى]

  في 19‏/10‏/2024 at 09:13, سامر محمود said:

تمام

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

Expand  

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

[سامر محمود]

  في 19‏/10‏/2024 at 09:33, سامر محمود said:

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

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

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

Expand  

 

[عمر ضاحى]

  في 19‏/10‏/2024 at 09:43, سامر محمود said:

 

Expand  

  في 19‏/10‏/2024 at 01:56, عمر ضاحى said:

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

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

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

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

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

Expand  

 

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

[سامر محمود]

  في 19‏/10‏/2024 at 09:51, عمر ضاحى said:

 

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

Expand  

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

[عمر ضاحى]

  في 19‏/10‏/2024 at 10:06, سامر محمود said:

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

Expand  

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

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

[عمر ضاحى]

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

ProgressBar.rarFetching info...

[سامر محمود]

  في 19‏/10‏/2024 at 10:38, عمر ضاحى said:

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

ProgressBar.rar 26.51 kB · 1 download

Expand  

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

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

[عمر ضاحى]

  في 19‏/10‏/2024 at 11:47, سامر محمود said:

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

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

Expand  

الحمد لله

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

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