ابوخليل

جزاك الله خيرا مشرفنا القدير وهذا رابط لعمل ربط لقاعدة بيانات من اخرى 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 الثاني المجموعات أو دعنا نسميها الاقسام او الفصول : كم ميزانية كل فصل ؟ حتى اذا اكتمل انتقلنا لما بعده هل هذا ما تريد ؟ القصد ان الرغبات شيء وميزانية الفصول شيء آخر

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

حينما فصلت الـ 300 الاولى حسب مجموع الدرجات وحسب الرغبة الاولى ظهرت مجاميع الرغبة الاولى كالتالي : الرغبة الأولى العدد 10050001 191 10050002 85 10050003 16 10050005 5 10050006 3 فما هو الضابط في توزيع المجموعات الاخرى ؟

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

اخي المهاجر الحق ان لك من اسمك نصيب كل عام وأنت بخير انظر الى الصدف والموضوع نفسه نلتقي فيه http://www.officena.net/ib/index.php?showtopic=37154

معذرة اخي سقطت سهوا هذه الدالة خاصة بالترقيم داخل الاستعلام اليك المثال مرة أخرى معدلا 211.rar

لديك مشكلة ولكني لا اعلمها لان المنسدلة تفتح عندي بعد الحماية واختار منها بدون مشاكل لان هناك خيارات للحماية وقد وضعت الخيار : تعبئة نموذج هل عرفت أو ادرجت طابعات حديثا الطابعات لها صلة بمشاكل التقارير في اكسس ولا اعلم ان كانت تسري على وورد اما ما سألت عنه فهناك في المستند المرفق سابقا حمايتين ( كلمة المرور للجميع رقم : 1 ) الاولى :من شريط الادوات / أدوات / حماية المستند تخرج لك قائمة على يسار المستند منها يتم حكاية المستند حسب خياراتك الثانية : حماية الكود البرمجي من محرر الفيجوال ومن الشريط العلوي اختر Normalproprtes / tools ثم لسان التبويب prodciton

السلام عليكم انت تريد ان تفصل تاريخ العودة لتجعله في حقل لوحده بحيث يكون هو وتاريخ البداية في سجل واحد هذا هو المفهوم من مثالك وهو ما ذهب اليه الاخ كابون فاذا كان كذلك فهذا تعديل لما قام به الاخ كابون حيث وضعت الترقيم في استعلام تحديد بدلا من الجدول واستخدمت لنقل البيانات الى الجدول استعلام الحاق هذا لبيان كيف تطبق الفكرة ، مع اخذ الاعتبارات عند التنفيذ للتكرار وأن الصفر لا يظهر في حقول التاريخ المنسق وكل سنة وانت طيب 21.rar

انظر ان كانت هذه الحماية تناسبك Doc5_pass.rar

المستند سليم والكود شغال % قد يفيدنا بعض الاخوة ايضا ممن جرب المستند لا أعلم ما المشكلة لديك