Eng.Qassim

لا تاكل هم ..اتذكر عندي برنامج لاختبار السرعة اخذته من احد المواقع وفيه مليون سجل

استاذي الحبيب @الحلبي ... فكرة استاذ جعفر في غاية الاهمية وبصراحة لحد الان لم استوعب الموضوع ...الا بالتجربة ...وكما قال استاذنا ومعلمنا ابو موسى يجب فتح موضوع جديد وبمثال لا يقل سجلاته عن 100 الف سجل ابدأ بالموضوع دكتور وساكون معك ...ان شاء الله

من ال Row Source قم باختيار الاستعلام Q_tbl-bb وانزل جميع الحقول ومن ال Format اجعل عدد الاعمدة 8 ثم اختر عرض مناسب لكل عمود تحياتي

فك الضغط عن البرنامج ... ضع كلمة PtrSafe بعد كلمة Declare في الموديول

بالخدمة اخي

عزيزي دكتور... استاذ جعفر يقصد بالمجاميع داخل الجدول والتي تظهر اسفل الجدول ..بعبارة اخرى يعني مثل واحد مدخل الجدول انذار ..دائماا بيكون شغال حتى يحسب المجموع وهذا طبعا لا فائدة منه

وعليكم السلام استخدم الكود التالي في مربع النص =DSum("[Amount]";"M")

تفضل برنامج مراجعة فواتير العلاج الشهرى المزمن..rar

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

ممكن تنزل الملف على نسخة اقدم؟

السلام عليكم.. جواب استاذ جعفر مطابق تماما لسؤالك في مشاركتك الاولى اما الوحدة النمطية فهي لن تفيدك لسببين ...ان الدالة DLookup تبحث عن سجل واحد وليس عن عدة سجلات ولهذا سيظهر لك خطا...اما بقية الكود فهو يعطيك تاريخ نهاية الشهر الذي يسبق الشهر الحالي

احسنت استاذي القدير @jjafferr فربما يتم مسح احدى الصور بطريق الخطأ

وعليكم السلام هناك العديد من الطرق لكن فكرت بطريقة سهلة..ويمكنك ان تستخدم الكود على ازرار التنقل عملته لك على زر الحفظ document1.rar

ويرحم والديك اخي العزيز ودكتورنا الغالي

مشاركة مع استاذي ابو خليل اثراء للموضوع تفعيل خانة الاختيار في الفرعي للسجل الحالي.accdb

احسنت اخي ..مثال لطيف

بالخدمة

وعليكم السلام استاذ ازهر طالما ان الصور في نفس الفولدر استخدم الكود التالي في حدث الحالي وشاهد النتيجة Private Sub Form_Current() Dim Path As String Path = Application.CurrentProject.Path & "\img\" Me![صورة0].Picture = Path & "1.jpg" End Sub

استاذي العزيز @SEMO.Pa3x... بصراحة لم اطلع على المرفق ...وجزاك الله خير جزاء المحسنين ورحم الله والديك سؤالي ...هل يمكن ارسال رسالة بشكل تلقائي عند فتح البرنامج يوميا ليقوم بارسال رسائل الى العملاء بان عليهم ديون قبل مثلا 24 ساعة من تاريخ التسديد ...تتضمن الرسالة صورة من تقرير تفاصيل المديونية هذا الموضوع كنت افكر به منذ مدة ..وموضوعك شجعني لطرح هذا السؤال

وعليكم السلام انظر للعلامة الخضراء يسار التقرير..لو وضعت المؤشر قريبا منها ستظهر لك ملاحظة تقول ان عرض التقرير اكبر من عرض الصفحة حاول ان تزحف العناصر اسفل التقرير الى اليسار قليلا ثم قلل من عرض التقرير قليلا حتى تختفي العلامة الخضراء

اين يظهر الخطا؟ غير اسم mySubform على اسم النموذج لديك

وعليكم السلام اهم شي في الرصيد التراكمي هو الشرط ..لان الشرط يقرا من الاول الى الاخر تصاعديا انظر للمرفق Running Balance.accdb

وعليكم السلام استاذ عمر استخدم الكود التالي وهو واضح لايحتاج لشرح If Me.mySuform.Form.CurrentView = 1 Then Me.mySuform.SetFocus DoCmd.RunCommand acCmdDatasheetView Exit Sub End If If Me.mySuform.Form.CurrentView = 2 Then Me.mySuform.SetFocus DoCmd.RunCommand acCmdFormView Exit Sub End If ويمكنك ان تستخدم الكود التالي من داخل النموذج الرئيسي فيتحول المستمر الى datasheet لكن المشكلة انك يجب ان تغلق النموذج حتى يعود لسيرته الاولى Me.mySuform.SetFocus DoCmd.RunCommand acCmdDatasheetView

اخبرني رجاء بما توصلت اليه

ممكن ترفع الملف على نسخة اقدم .. لانه لايفتح عندي