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

إخوتي الأعزاء هناك أفكار وكودات تمر علينا ونستخدمها ، قد تكون مهمة وقد تكون صغيرة الشأن (نظن أحيانا) ، ولكنها تلزمنا في لحظة ما ، بسيطة ، معقدة، تلزم،لا تلزم وعلى جميع الأحوال .... ، يلزمها دفتر ملاحظات صغير في جيب القميص أو أجندة نستلها من المكتب لندون بها ، وهذا وذاك يجمعهما فكرة الكشكول. وهذا كشكول ... ندون به ما يمر بالخاطر ... فكرة راودتي من رد لأخي ورفيق دربي أبا خليل ونبدأ بعون الله ورعايته ... وباسمه نصول ونجول ودمتم ..................... أرجو من اخوتي المساهمة بالتعبير عن إستفادتهم من الموضوع ومشاركاته وأجزائه المتلاحقة بإذن الله . وذلك بالضغط على زر التقدير في أسفل يسار المشاركة التي يكون قد استفاد منها أو أعجبته أو إستخدم ما تحوى وشكرا للجميع تقديركم وتشجيعكم لي للمتابعة ....

جال ببالي خاطر أن أنفذ تطبيقا بسيطا يعتمد على جمل SQL صغير الحجم كبيرة المفعول ، وأشارككم بها ، من باب العصف الذهني ، علّ فائدة بسيطة تتحقق منها لأحد إخوتنا وننال دعوة طيبة بظهر الغيب. وإخترت ثلاثة منها ينطبق عليها الوصف ، صغيرة الحجم كبيرة المفعول أولها : DoCmd.RunSQL "SELECT *INTO Customers_copy FROM Customers;" وتقوم بنسخ الجدول Customers بكامل محتوياته و تسميه الجدول الجديد Customers_copy ، باستخدام INTO ثانيها : DoCmd.RunSQL "SELECT CustomerID, CompanyName, ContactName INTO Table2 FROM Customers;" وتقوم بنسخ أعمدة محددة بالإسم من الجدول Customers بكامل محتوياتها وإنشاء جدول جديد و تسميه Table2 ، باستخدام INTO وثالثها: Me.Combo2.RowSource = "SELECT DISTINCT City FROM Customers;" وتقوم باسناد مصدر صفوف لمربع التحرير و السرد من الجدول Customers ومن العامود City ( ومن غير تكرار) والمحلل لتركيبة الجملة يرى مدى بساطتها وبالمقابل أداء كبير .... وهذه الروتينات أستخدمها لإنشاء الجداول المؤقتة لغايات إستخراج النتائج الإحصائية أو تجميع معلومات من مجموعة جداول في جدول واحد . آملاً من الله عزّ وجلّ أن يستفيد منها الإخوة والله من وراء القصد ....... NA_SQL01.rar

السلام عليكم اخواني في المنتدى و أخيراً بعد عملية بحث شاقة توصلت الى الحل قائمة منسدلة بخط كبير و يمكن التحكم به انظر الى المرفق data valid..rar

السلام عليكم أخي فراسكو تفضل الملف به طلبك الأخير =================== أخي الفاضل / محمود_الشريف أخي الفاضل / أبو حنين جزاكما الله كل خير علي المرور الكريم والكلمات العطرة TOTAL_Files3.rar

السلام عليكم أخي العزيز في صفحتي "الاسلحة المتوسطة" و"الاساحة الخفيفة ف4ل3" يوجد بالعمود D "الرقم العربي" مما يحرك عمود مكان التواجد من العمود E الذي يتم الفرز علي أساسه لذلك أضفت لك هذا العمود ولو فارغا في صفحة الاسلحة الثقيلة حتي يعمل الكود علي نفس المنهج (ويمكنك إخفاؤه إن كنت لاتريده - لن يتأثر الكود إن مخفيا) وتم تعديل اختيار السرية الرابعة بدلا من سمقر فقط أصبح سمقر أو س4 تم إضافة ورقة أخير للاسلحة المفقودة والمدمرة والعاطله تفضل المرفق بعد التعديلات TOTAL_Files2.rar

if Not IsNull([ID]) then MsgBox"يوجد بيانات" else Exit Sub end if

نحدد قيمة حقل بالاعتماد على قيمة حقل آخر تلقائيا .... Private Sub Textbox1_AfterUpdate() If Textbox1.Value = "1" Then Textbox2.Value = "10" End If End Sub