الاخوة الكرام
يوجد استعلام تحديث يتم تنشيطة من داخل نمودج
_ يختلف زمن التحديث على عدد السجلات المطلوب تحديثها
_المطلوب شريط تقدمى تفاعلى مرتبط باستعلام التحديث و عدد السجلات المطلوب تحديثها
_عند انتهاء عمل الشريط التقدمى يظهر رسالة بانهاء التحديث
تحفظ: بحث بالمنتدى و لم اجدى المطلوب تحديدا
مع الشكر
و انتظار الردود
اذا لم تخطط للنجاح , فقد خططت للفشل
السلام عليكــم ورحمـة الله وبركاتــة ،،
اخي aminyousif
الرجاء ارفاق مثال ليتمكن الجميع من المساهمة في الحل
مع الشكر والتقدير،،،
وعليكــم السـلام ورحمة الله وبركاتـه..
اخى العزيز يوسف احمد
اشكرك على اهتمامك و اتمنى تواصلك شخصيا مع الجميع
المرفق
اذا لم تخطط للنجاح , فقد خططت للفشل
اقتباساشكرك على اهتمامك و اتمنى تواصلك شخصيا مع الجميع
العفو اخي امين ...اتمنى ان يعذرنا اخواننا على التقصير فلكل ظروفه .. دعواتكم
تفضل اخي aminyousif
ارجو ان يفيدك الحل المرفق
بالتوفيق
السلام عليكــم ورحمـة الله وبركاتــة ،،
الاخ العزيز يوسف احمد
اعانك الله علينا فنحن قدرك
بالرغم من كل ظروفك و مشاغلك
نقدرك بشخصك و علمك و اخلاقك
و اشكرك و اشكرك و اشكرك
طلب و ليس الاخير
لو امكن الشرح بالتفصيل
امين يوسف
اذا لم تخطط للنجاح , فقد خططت للفشل
وعليكــم السـلام ورحمة الله وبركاتـه..
بارك الله فيك اخي العزيز امين يوسف
Dim intOldComboRecordcount As Integer Dim intNewComboRecordcount As Integer intOldComboRecordcount = Me.مربع تحرير وسرد_23.ListCount DoCmd.SetWarnings False DoCmd.OpenQuery "Q_UP" Me.Refresh DoCmd.SetWarnings True intNewComboRecordcount = intOldComboRecordcount - Me.مربع تحرير وسرد_23.ListCount Me.ProgressBar2.Visible = True Dim intcounter As Integer Me!ProgressBar2.Min = 0 Me.ProgressBar2.Max = 5000 For intcounter = 0 To 5000 Me!ProgressBar2.Value = intcounter Next intcounter Me!ProgressBar2.Value = 0 Me.ProgressBar2.Visible = False MsgBox"عدد السجلات المحدثة هو :" & " " & intNewComboRecordcount, vbInformation + vbMsgBoxRight + vbOKOnly, "نتيجة التحديث"
بسم الله نبدأ
اولاً تم تغيير الاستعلام بحيث يتم وضع قيمة السنة لحقل التاريخ ويتم وضع المعيار بناءً على هذه القيمة .. طبعاً الاستعلام المعني ( Q_UP )
ثانياً من قائمة ادراج ... عنصر تحكم Activex نقوم بإدراج شريط التقدم ونسميه ProgressBar2 واخفائه بضبط خاصيته مرئي الى القيمة ( لا )
شرح الكود
السطر الاول : تعريف متغير اسمه ( intOldComboRecordcount ) من نوع رقم ليحمل عدد السجلات او بالمعنى الاصح عدد العناصر بمربع التحرير والسرد وتتم عملية الاسناد بالسطر الثالث
السطر الثاني : تعريف متغير اسمه ( intNewComboRecordcount ) من نوع رقم ليحمل قيمة عدد العناصر التي تم اغلاقها او تحديثها .. ستم توضيح ذلك ضمن السياق عند شرح السطر الثامن.
السطر الثالث : اسناد قيمة للمتغير intOldComboRecordcount بحيث تساوي عدد عناصر مربع التحرير والسرد قبل عملية التحديث
السطر الرابع : الغاء او ايقاف رسائل النظام للإستعلامات الإجرائية
السطر الخامس : تشغيل استعلام التحديث ( Q_UP )
السطر السادس : انعاش النموذج
السطر السابع : اعادة تشغيل رسائل النظام للإستعلامات الإجرائية
السطر الثامن : تعيين قيمة للمتغير intNewComboRecordcount بحيث تكون عدد العناصر قبل التحديث مطروح منها عدد العناصر الحالية.
السطر التاسع : اظهار شريط التقدم بضبط خاصيته مرئي الى القيمة ( نعم )
السطر العاشر : تعريف متغير اسمه ( intcounter ) ليمثل عداد الحلقة التكرارية For...Next
السطر الحادي عشر والسطر الثاني عشر : تحديد قيم شريط التقدم الصغرى العظمى ( الابتداء والانتهاء )
السطر الثالث عشر : البدء في الحلقة التكرارية لتبدأ من صفر الى القيمة 5000 وهي القيمة العظمى لشريط التقدم وستكون الزيادة في الحلقة بمقدار واحد.
السطر الرابع عشر : للعودة الى بداية الحلقة وتكرارها حتى تصل الى القيمة العظمى 5000
السطر الخامس عشر : ضبط خاصية Value او قيمة شريط التقدم الى الصفر استعداداً لإخفائه
السطر السادس عشر : اخفاء شريط التقدم
السطر السابع عشر والاخير : اظهار رسالة تعرض قيمة المتغير intNewComboRecordcount والذي يمثل عدد عناصر مربع التحرير والسرد بعد التحديث.
ارجو ان يكون الشرح واضحاً كما ارجو منك التكرم مشكوراً بالإفادة اذا كان هو المطلوب ام لا ..
مع التقدير والاحترام
تم تعديل هذه المشاركة بواسطة يوسف احمد في 12 مارس 2009 في 20:55
السلام عليكــم ورحمـة الله وبركاتــة ،،
صديقنا الاستاذ يوسف احمد
اشكرك ياستاذ
و اسمح لى بتعديل ليس مقصود ولكن لمتابعينك و الافادة
يتم التعديل من قيمة الشهر الى قيمة السنهاقتباساولاً تم تغيير الاستعلام بحيث يتم وضع قيمة الشهر لحقل التاريخ
_ عند ادخال قيمة السنة فى حقل textyear , و النقر على زر الاقفال يظهر لنا رسالة بعدد سجلات التحديث صفر
مما يتطلب النقر مرة اخرى على زر الاقفال _ على فكرة النقر على زر الاقفال مرتين موجود معايا من الاول _
اين الخطأ و كبف الحل و صبرا آل احمد لك الجنة
مع كل تقديرى و احترامى
امين يوسف
اذا لم تخطط للنجاح , فقد خططت للفشل
السلام عليكــم ورحمـة الله وبركاتــة ،،
ما شاء الله عليك اخي الغالي aminyousif
فعلاً خطأ غير مقصود وقد تم تعديله .. اشكرك من كل قلبي على قوة الملاحظة ( عيني عليك باردة )
شوف يا باشا :
كنت اظن انه عند النقر لا يتم النقر على مربع التسمية الموجود على زر الامر لذا حذفته .. ولكن اتضح غير ذلك
ما تم عمله هو استدعاء حدث عند النقر لزر الامر اعادة الفتح بزر الامر الخاص بالإقفال .. وان شاء الله يكون هو الحل
الرجاء الافادة اذا كان هو المطلوب
مع الشكر والتقدير
السلام عليكــم ورحمـة الله وبركاتــة ،،
صديقنا الاستاذ يوسف احمد
حفظك الله ما شاء الله عليك
و لا كلمة استاذ و بس
المرفق المطلوب و المطلوب اوى و المطلوب بشدة
شكر ا
و يارب صبرك يدوم
سؤال و بس
اقتباسمن قائمة ادراج ... عنصر تحكم Activex نقوم بإدراج شريط التقدم ونسميه ProgressBar2
كنت اعتقد ان progressbar يتم البحث عنه من ادوات > عناصر التحكم Activex و لم اوفق فى التطبيق لعدم استخدامة سابقا او لقصور فى التطبيق
ثم وجدك تسلك طريق اخر من قائمة ادراج > عنصر تحكم Activex نقوم بإدراج شريط التقدم
بالحث لم استدل على عنصر التحكم من ادراج
الرجاء الافادة كيف التنفيذ مع الشكر
مع كل التقدير و الاحترام
منتظرك
اذا لم تخطط للنجاح , فقد خططت للفشل
بارك الله فيك اخي امين
اشكرك على هذه المجاملة اللطيفة وعلى شعورك النبيل تجاهي
اقتباسمن قائمة ادراج > عنصر تحكم Activex نقوم بإدراج شريط التقدم
نعم اخي امين هو كذلك
انظر الصورة المرفقة
امنياتي لك بالتوفيق
السلام عليكــم ورحمـة الله وبركاتــة ،،
صديقنا العزيز يوسف احمد
عتد العمل على تعديلك الاخير و بالنقر على زر التحديث ( الاقفال) حسب قيمة السنة فى مربع النص txtyear
_ يتم تحديث المطلوب
_ بالنقر على نفس الزر مرة ثانية ( سواء مربع النص txtyear)محدد القيمة او غير محدد قيمة السنه
يتم الغاء التحديث بالكامل
وللافادة لمتابعينك
تم ايقاف العمل بالخطوة الاولى و نجح الامر برجاء مراجعتك
اقتباسCall _ امر 53 Click
و اخير لى طلبات بخصوص هذا الموضوع و دى وعد و بعدها يتم اقفال الموضوع بعبارة المنتدى الشهيرة[ تمت الاجابة ]
1_ افراغ مربع النص من قيمة السنة بعد النقر على زر التحديث
واذا تم النقر علية مرة اخرى تظهر رسالة لم يتم تحديد مطلوب قيمة السنة
شكر لك و لمتابعينك الكرام
اذا لم تخطط للنجاح , فقد خططت للفشل
السلام عليكــم ورحمـة الله وبركاتــة ،،
كل الشكر للأخوة المشاركين في هذا الموضوع
انا لم اطلع على الامثلة ولا على شرح الموضوع انما من العنوان فقط
أذكر انني سبق ان اجبت على سؤال مماثل اليكم مثاله لعله يفيد وفقكم الله
المثال مرفق
وعليكــم السـلام ورحمة الله وبركاتـه..
الاخ الكريم اكسير الحياة
اشكرك على اهتمامك بالفعل تم تحميل مشاركتك سابقا و لكن ستجد لى مليون عذر تعلمت الكثير من مشاركتكم كمبتدئ
و لكن تعلمت منكم عدم النقل حرفيا بدون فهم
اشكرك على مرورك و تفاعلك بمشاركتك الطيبة
و اشكر صديقنا العزيز يوسف احمد و اجد له مليون عذر فى مشاغل الحياة و فى انتظارة
و شرف لى ان تتفاعل مع موضوعى لتعم على الجميع الافادة من مشاركت استاذين كبار جدا فى موضوع واحد
مشكور اخى اكسير الحياة
اذا لم تخطط للنجاح , فقد خططت للفشل
سلمت يمناك مشرفنا الغالي اكسير الحياة .. اسم معرف جميل ويظل الاصل من ذهب
اخي امين
اقتباسو اشكر صديقنا العزيز يوسف احمد و اجد له مليون عذر فى مشاغل الحياة و فى انتظارة
اشكرك على هذا التقدير وفعلاً اخوك يمر بظروف خارجة عن الإرادة .. فدعواتكم لي
بالتوفيق للجميع ان شاء الله
صديقنا العزيز يوسف احمد
اشكرك على تحقيق المطلوب
و اشكرك على تفرغلك بالرغم من انشغالك
نقدرك...... نحترمك ......ندعو لك بخالص الدعاء و دوام الصحة و مزيد من التوفيق
اذا لم تخطط للنجاح , فقد خططت للفشل
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…