ابوخليل

تم التعديل بوضع شرط في الاستعلام ان وافقنا استاذنا عليه أو ان هناك ما هو ابسط من ذلك NA_CalcAge - Split2.rar

نعم الامر واضح ويمكن تحقيقة بعدة طرق ولكن حسب تصميم برنامجك ارفق مثالك واجعله على امتداد mdb

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

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

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

السلام عليكم الاسم الرباعي في الاستعلام غير منظم؟ اي لا يظهر الا في الاستعلام وبهذا يصعب تطبيق الشرط عليه لماذا لا تجعل الشرط في الحقول الثلاث ؟

اعتقد ان 30\12\1431 هو المكمل للسنة فهي من حق العضو فيعتبر هذا اليوم هو آخر يوم له في العضوية وبهذا يكون تاريخ التجديد لفعلي في 1\1\1432 ، فينزل كل سنة بشكل آلي عند التجديد

تستطيع قبل الخروج من مثالك حفظه باسم على صيغة 2003 ثم ارفقه

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

جزاك الله خيرا مشرفنا القدير وهذا رابط لعمل ربط لقاعدة بيانات من اخرى http://www.officena.net/ib/index.php?showtopic=1164 اذا لم تصل الى نتيجة مرضية ارفق مثالك موضحا بالتفصيل ما تريد عمله

السلام عليكم لم اطلع على المرفق لانه اصدار اعلى من 2003 ولكنك تستطيع عمل نموذج بحث وفلترة يكون عبارة عن نموذج مستمر او حتى قائمة ( لست بوكس ) تستند الى استعلام ويكون المعيار هو حقل البحث في النموذج

اخي تسعدني خدمتك كنت اظن ان الفروقات لا تذكر بين الاكسس والاكسل خاصة في الوحدات النمطية 'ما بين القوسين اعلان عن متغيرات تمثل جدولين وحقلين وهو الترتيب الذي سيتم تطبيقه عند استدعاء الوحدة النمطية Public Sub division(acTbl1 As String, Fld1 As String, Tbl2 As String, Fld2 As String, Num1 As Long, Num2 As Long, Optional DType As Byte = 0) Dim RC1 As Object, RC2 As Object, R As Long 'الاعلان عن متغيرات Set RC1 = CurrentDb.OpenRecordset(acTbl1) 'أسند للكائن RC1 فتح الجدول acTbl1 لتمنكن من الإضافة إليه لاحقا Set RC2 = CurrentDb.OpenRecordset(Tbl2) 'أسند للكائن RC2 فتح الجدول Tbl2 لتمنكن من التعامل معه لاحقا RC1.MoveFirst 'الذهاب لأول سجل Do While Not (RC1.EOF) 'نفتح حلقة الدوران ( تنفيذ الكود التالي حتى آخر سجل ) RC1.edit 'تحرير الكائن RC1.Fields(Fld1) = RC2.Fields(Fld2) 'حقل الكائن الأول يساوي حقل الكائن الثاني RC1.Update 'تحديث RC1.MoveNext 'انتقال للسجل التالي If DType = 1 Then 'هذا المتغير اختياري يتم تجاهله في حال عدم تحقق الشرط R = R + 1 'عداد للسجلات If R = Num2 Then '( اذا كان عدد السجلات المحررة يساوي الرقم الثاني )'الرقم الثاني وهو يمثل عدد الطلاب في الشعبة RC2.MoveNext 'انتقال للسجل التالي من الجدول الثاني R = 0 'بفرض انتهت السجلات سنبدا بعدها العد من جديد End If ' نهاية الشرط Else 'والا يتم الانتقال للجدول الثاني RC2.MoveNext 'انتقال للسجل التالي R = R + 1 'عداد للسجلات If R = Num2 Then '( اذا كان عدد السجلات المحررة يساوي الرقم الاول )'الرقم الاول وهو يمثل عدد الشعب RC2.MoveFirst 'الذهاب لأول سجل من الجدول الثاني R = 0 'العد من جديد End If 'نهاية الشرط End If 'نهاية الشرط If RC2.EOF Then RC2.MoveFirst ' الذهاب للسجل الاول عند نهاية السجلات من الجدول الثاني Loop ' نهاية الحلقة Set RC1 = Nothing 'اغلاق الكائن لتحرير الذاكرة Set RC2 = Nothing 'اغلاق الكائن لتحرير الذاكرة End Sub

اين الجزء الصعب في هذا الكود ؟

اخواني أخي صبري اعذروني كنت في سفر ولا زلت ، نحمد الله ان انقضت حاجتك . الشكر موصول للاخ الكريم ksmn64

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

اخي نارت جزاك الله خيرا شكرا على التعقيب وعلى إزالة الى ما يتبادر إلى الذهن من لبس وهذا مطلب بين الاخوان وارجو ان الاخ فرهاد ما ياخذ بخاطره من هذا التوجيه وحين ذكرت في كلمتي له ان مشاركاته يمكن ان يؤلف منها مكتبة انما اقصد التلميح الى انه لا يحتفظ بما يحصل عليه من حلول للرجوع اليها وقت الحاجة وأنه يطرح أسئلة قد طرحها في وقت سابق وحصل على اجوبة تامة لها فمثلا السؤال أعلاه قد طرحه في وقت سابق هنا : http://www.officena.net/ib/index.php?showtopic=37427&view=findpost&p=200232&hl=&fromsearch=1 وانظر الى هاتين المشاركتين وتاريخ طرحهما http://www.officena.net/ib/index.php?showtopic=36327&view=findpost&p=192135&hl=&fromsearch=1 http://www.officena.net/ib/index.php?showtopic=33293&view=findpost&p=172554&hl=&fromsearch=1 فأرجو من اخي فرهاد ان يتسع صدره لهذا النقد وكل عام وأنتم بخير المعلومة التي تأتي بسهولة تذهب من الذاكرة بسهولة

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

يعني : 38\ 123456 تصبح 12384568 و : 47\ 12345678 تصبح 1234756787 وهكذا... شرح وافي ودقيق .. جزيت خيرا

السلام عليكم اخي عدم الرد على سؤال السائل قد لا يكون بسبب صعوبته ولكن طريقة السؤال اولا ثم المرفق فقد يكون المرفق غير مهيأ وهذا يحدث دائما فتجد ان السائل ارفق برنامجا كاملا وهو يستفسر عن جزء بسيط يدور غالبا حول جدول ونموذج واحد ، فاذا استعرض من يتصدى للاجابة المرفق يصيبه دوار البحر فلا يدري من اين يبدأ وصحيح كلامك فسؤالك في اكثر من منتدى ولم يتم الاجابة عليه جرب : 1- صغ سؤالك بطريقة أخرى مختلفة ( اترك النسخ واللصق من سؤالك السابق ) 2- ارفق مثالا بسيطا يحتوي ما تريد التعديل عليه فقط ، والافضل ان تكتب التعليقات والتوضيحات داخل المثال فلعل بعد هذا ان يتحقق طلبك ان شاء الله

جزاك الله خيرا وجعله في موازينك

السلام عليكم اخي صبري يمكن اني فهمت ما ترمي اليه ، ولكن كعمل برمجي لا بد من المرونة ،حيث سنستخدمه لغير هذه الاسماء وطبعا ستختلف الرغبات والاولويات بالنسبة للاقسام وعدد الطالبات فيها . فنحن الان بحاجة الى كود برمجي يقوم بتلمس الحقول والرغبات وتوزيع الطلاب كما هو مرتب له سؤالي : لا اعلم اين تريد اظهار الرغبة المحققة للطالبة ، هل هو في الجدول الأساس ، ام في جدول جديد ، ام في الاستعلام فقط ؟ وسؤال آخر : هذه الاسماء في قاعدة البيانات هل هي جزء من برنامج قائم ؟ لاننا سنحتاج الى النماذج لتحقيق وتطبيق هذا العمل ؟ ايضا الاستعلامات الموجودة ووضع المعايير فيها تدل على ان لديك خبرة . انتظر منك التفصيل في الجواب

ماشاء الله اخ فرهاد اسئلتك كثير ومتنوعة وموزعة على اكثر من منتدى ، يعني ان النتيجة اجابات متنوعة حقيقة لو يتم جمع وتنسيق مشاركاتك حصلنا على مكتبة وافية من كل باب . باقي عليك حاجة بسيطة وهي لو تجعل قبل طرح السؤال قليلا من وقتك للبحث فمثلا مسألة النسخ الاحتياطية قتلت شرحا وأمثلة في هذا المنتدى وغيره ، خذ مثلا في الصفحة الحالية الآن امامنا هذا الموضوع http://www.officena.net/ib/index.php?showtopic=37822

جميل منك هذه التعقيبات هل الحل زيادة المعادلة لتصبح نحو ^P^P^P^P في الاستبدال مثلا او مثلا نضع النجمة كـ *P^ ويبقى الاستبدال بــ كما هو

اخي تومي كل عام وانت واحبابك بخير وعافية ممكن العلامة تدل على ( اضافة بعد كل رقم ) ولكن كيف الـ 15 تصبح 5 ؟

قد قلت لك اني غير مقتنع وأن النتيجة غير مرضية اولا لان الرغبات تتفاوت فقد يكون من الاوائل ورغبته الاولى في القسم 5 الثاني المجموعات أو دعنا نسميها الاقسام او الفصول : كم ميزانية كل فصل ؟ حتى اذا اكتمل انتقلنا لما بعده هل هذا ما تريد ؟ القصد ان الرغبات شيء وميزانية الفصول شيء آخر