نجوم المشاركات

السلام عليكم ورحمة الله وبركاته .. وبدون مقدمات 🙂 يطيب لي أن أضع بين يديكم برنامج ( مكتبة الأكواد الخاصة ) كان الهدف من تصميم البرنامج أن يخدمني بشكل خاص وذلك لحفظ الأكواد التي أحتاجها بشكل دائم وتجميعها في مكان واحد وتسهيل عملية البحث والوصول إليها بكل سهولة .. والبرنامج به تجميعة طيبة من الأكواد بعضها مما أبدعه الشباب هنا وبعضها مما صنعتها بنفسي ومنها من مواقع مختلفة .. والآن أحببت أن أشارككم بها وأن تعم الفائدة للجميع 🙂 البرنامج طبعا مفتوح بأحلاسه وأقلاسه ( بنماذجه وأكواده ) 😁 ويوجد فيه خاصية البحث ، وإدراج مرفقات (خارجية طبعا ) ومتاح للتطوير والتعديل والزيادة وتطويعه حسب احتياجاتكم .. 🌹 :: ولا تنسوني من صالح دعواتكم :: Pleeeeeeeeeeeeeeese 😄🤲🌷🌹 (واجهة البرنامج) (نافذة تفاصيل الكود) أعتقد البرنامج ما محتاج شرح واضح وضوح الشمس 😁 ::والتحميل في المرفقات :: مكتبة الأكواد الخاصة.accdb

هل يعني هذا ان المطلوب تحقق؟ وطلبك هذا جديد ؟ بمعنى انك تريد تطبيق المعايير على استعلام آخر ؟

من زمان ما عامل الكود على حدث "عند التغيير" OnChange للحقل ، فأخذ مني بعض الوقت 🙂 اضفت حقل جديد txt41 باللون البرتقالي ، وممكن تعمله مخفي . اذا اردنا ان نعمل تغيير في بيانات النموذج عند كل ضغطة زر على لوحة المفاتيح (الكيبورد) ، ممكن لغرض البحث ، او للحصول على مجموع عند ادخال كل رقم ، فلابد من استخدام حدث "عند التغيير" OnChange للحقل. صحيح ان نتائج ضغطة ازرار لوحة المفاتيح تظهر مباشرة في الحقل ، ولكن البرنامج لا يحصل على آخر زر ، فيجب الاستعانة بحقل آخر ، خليني اوضح : 1. في حدث "عند التغيير" OnChange للحقل ، اكتب debug.print me.TXT4 ، ولاحظ النتائج في نافذة immediate في نافذة VBE ، سترى ان آخر الازرار اللي ضغطت عليها لا تظهر قيمتها ، لأن me.TXT4 معناها قيمة الحقل المحفوظة في الجدول ، بينما اذا اردنا ان نأخذ القيمة التي لم يتم حفظها الى الآن ، فيجب ان نستخدم me.TXT4.Text ، لاحظ الفيديو التالي ، القيمة الاصلية المحفوظة في الجدول هي 15 : . 2. على هذا الاساس ، عملت حقل جديد اسميته txt41 (باللون البرتقالي في الصورة اعلاه ، ويمكن عمله مخفي) ، بحيث نعطيه القيمة الغير محفوظة من الحقل TXT4 ، هكذا : Me.txt41 = Me.TXT4.Text 3. وبعدها ممكن عمل المعادلة Me.TXT5 = TXT3 * txt41 ، حيث الحقل TXT5 سيحصل على القيمة الصحيحة من الحقل TXT4 ، 4. ولكي تظهر قيمة مجموع حقل TXT5 ، فيجب حفظ قيمة السجل ، فعليه عندنا مجموعة طرق ، منها : DoCmd.RunCommand acCmdSaveRecord If Me.Dirty Then Me.Dirty = False Me.Refresh (ولكنها ستسبب في نقل المؤشر الى اول سجل ، فيجب التعامل معاها بطرق برمجية اضافية) Me.Requery (ولكنها ستسبب في نقل المؤشر الى اول سجل ، فيجب التعامل معاها بطرق برمجية اضافية) 5. وبسبب اننا تدخلنا في حفظ السجل ، فالمؤشر سيرجع لأول الحقل كلما ضغطنا على زر على الكيبور ، يعني لما تريد تكتب 25 ، سيظهر لك 52 ، لهذا السبب ، فيجب لما نضغط على اي زر ، يجب برمجيا ان نجعل المؤشر يذهب الى نهاية الحقل ، فيمكننا استعمال الامر SelStart ، والذي يجبر مكان المؤشر في الحقل ، فعندنا الطرق التالية لجعل المؤشر يذهب الى آخر الحقل : Me.TXT4.SelStart = Len(Me.TXT4) Me.TXT4.SelStart = vbKeyEnd والكود يصبح: Private Sub TXT4_Change() On Error GoTo err_TXT4_Change Me.txt41 = IIf(Len(Me.TXT4.Text & "") = 0, 0, Me.TXT4.Text) Me.TXT5 = TXT3 * txt41 DoCmd.RunCommand acCmdSaveRecord Me.TXT4.SelStart = Len(Me.TXT4) Exit_TXT4_Change: Exit Sub err_TXT4_Change: If Err.Number = 94 Or Err.Number = 13 Then Me.TXT5 = 0 DoCmd.RunCommand acCmdSaveRecord Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 1491.AZIZ.accdb.zip

ما شاء الله عليك أخي جزاك الله خير على محاولتك في المساعدة استفدت من ملفك وتم نقل زر الطباعة وزر PDF إلى نموذج الرئسي

tblAlwilaya tblUsersName 😂نعم شفته منخش وراء النموذج الله يصرفه بليسه ماأعرف من وين جاء اشكرك استاذي على التعديل بارك الله فيك

وعليكم السلام 🙂 شغلك صح ، والنتيجة تتبدل لما تنتقل من السجل ، بمعنى آخر لما يتم حفظ السجل ، فاذا كنت مستعجل عليه ، وعلى حدث بعد التحديث للحقل تقدر تكتب التالي لحفظ السجل والمفروض تطلع لك النتيجة : if me.dirty then me.dirty=false جعفر

‏‏‏‏devicesdb12 -9_00011.accdbهذا ما تم طلبه أرجو أن يفى بالغرض ولكن قم بتغيير مصدر السجلات فقط دون تغيير فقط قم بتغيير ما يلى : 1- مصدر سجلات الولاية حيث أننى تعبت من البحث عن مكانه قم بتغيير القيمة إلى المصدر الجديد فقط 2- مصدر السجلات للمدرسة لنفس السبب وسيتم تشغيل كل شىء تلقائيا وطباعة التقرير وحفظة كملف PDF

وعليكم السلام اخوي سامي 🙂 اقول لك ، صاني لقيت جني خاش عمره تحت النموذج الفرعي ، للعلم 😁 عملت البحث فقط 🙂 جعفر 1490.‏‏‏‏devicesdb12 -9_00011.accdb.zip

انا عندي شغال زي الساعة وبعدين لما رجعت الى المرفقات وجدت اني ارسلت لك النسخة 5 فمعذرة على اللبس هذه النسخة 6 وهذ1 التقرير الدائن و المدين-6.rar

تفضل جرب اللينك واخفاء الشيتات العملاء.xlsm

تفضل يتم التصفية سواء تم اختيار من الحساب او مصدر التمويل وايضا التصفية في حال الحقول فارغة الدائن و المدين-5.rar

وعليكم السلام-يمكنك استخدام معادلة المصفوفة (Ctrl+Shift+Enter) =IFERROR(INDEX(LIST!$A$12:$A$230,SMALL(IF(MONTH(LIST!$G$12:$G$230)=MONTH($C$2),ROW(A$12:A$230)-ROW(A$12)+1),ROWS($A$6:A6))),"") 1قائمة.xlsx

بارك الله بك اخي ابا جودي، فعلا موضوع مفيد ( تم الحفظ في المفضلة ).

الان وضح طلبك جرب المعادلة ادناه =SUMPRODUCT((E2:E9=INT(E2:E9))*(E2:E9)) واي استفسار خبرني انظر للملف SumCurrency.xlsx

أليك أختى ماطلبت ، وبكل لغات العالم أسف على خطأ الأسم 77.rar

السلام عليكم ورحمة الله وبركاته هذا الموضوع مخالف ، فرجاء من الاعضاء عدم اضافة اجابة هنا ، وسأتركه مفتوحا حتى اتناقش فيه مع الاخ وليد ، حتى يتهيأ لعمل موضوع جديد جعفر الاستاذ الفاضل ردا على ما تفضلتم به من وقتكم وما بذلتموه من مجهود لأيضاح الفكرة وصلت الى ولكم جزيل الشكر ... وأنا جديد فى المنتدى ولا أحب أن أكون مخالف للقوانين به وحتى لا أطيل على حضراتكم المشكلة بسيطة جدا وملخصة تماما حيث لدى نموذج رئيسى وليكن Form1 ويضم عدد 2 نموذج داخل بعض وليكن Form2 وبداخله نموذج فرعى وليكن form2 النموذج form1 مرتبط بالنموذج form2 علاقة (واحد إلى متعدد) حيث السجل الواحد فى form1 مرتبط بسجلات متعددة فى form2 والنموذج form2 مرتبط بالنموذج Subform2 علاقة (واحد الى متعدد) حيث السجل الواحد فى form2 مرتبط بسجلات متعددة فى Subform2 الخلاصة : الجدول الأول : ي(فى النموج عبارة عن form1) يمثل المشروع الأساسى ضمن عدة مشروعات يتم أدخال بيانات فى الجدول الأول الجدول الثانى : (فى النموج عبارة عن form2) يمثل الخطابات الصادرة عن المشروع الأساسى الجدول الثالث : (فى النموج عبارة عن Subform2) يمثل المرفقات التى تخص كل خطاب من الخطابات الصادرة الموضوع المطروح يخص النموذج Subform2 حيث يوجد command (زر) بالضغط عليه يقوم بحفظ مسارات الصور أو الملفات (المرفقات "الجدول الثالث") المختارة عن طريق dialog box أريد وضع كود يحفظ مسارات متعددة وحفظها بالجدول الثالث تلقائيا وأعطاء كل سجل رقم تلقائى وتغيير الأسم للمرفق فى حالة تكرراه أو وضعه فى مديول أى كانت الطريقة ... !! وشكرا على اهتمامكم رغم مخالفة الموضوع وأكرر وأزيد اعتزارى عن هذا الخطأ الغير مقصود والغير مرغوب فيه مرفق لسيادتكم القاعدة مبسطة للاطلاع waleed.accdb