ابوخليل

نسأل الله لك الإعانة والتوفيق .. سهل الله دربك ويسر أمورك .

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

اللهم ابدله دارا خيرا من داره واهلا خيرا من اهله وادخله الجنة واعذه من عذاب القبر ومن عذاب النار . اللـهـم عاملة بما انت اهله ولا تعامله بما هو اهله . اللـهـم اجزه عن الاحسان إحسانا وعن الأساءة عفواً وغفراناً. اللـهـم إن كان محسناً فزد من حسناته , وإن كان مسيئاً فتجاوز عن سيئاته . اللـهـم اّنسه في وحدته وفي وحشته وفي غربته. اللـهـم انزله منزلاً مباركا وانت خير المنزلين . اللـهـم انه عبدك و ابن عبدك و ابن امتك مات و هو يشهد لك بالوحدانية و لرسولك بالشهادة فأغفر له إنك انت الغفار. اللـهـم ادخله الجنة من غير حساب اللـهـم لا تحرمنا اجره ولا تفتنا بعده و اغفر لنا و له و اجمعنا معه في جنات النعيم يا رب العالمين . اللـهـم انزل علي اهله الصبر والسلوان و ارضهم بقضائك. اللـهـم ثبتهم علي القول الثابت في الحياه الدنيا وفي الاخره ويوم يقوم الاشهاد. اللـهـم صلي وسلم وبارك علي سيدنا محمد وعلي اّله وصحبه وسلم

وزيادة على ما تكرم به مشرفنا العزيز فأنت قد تكون سببا في ذلك فانظر مثلا الى موضوعك هذا http://www.officena.net/ib/index.php?showtopic=38078 قد كنت انتظر منك الرد والافادة ولكنك لم تفعل في المنتديات الاخرى يتم غلق اي موضوع مخالف وبحزم فيفترض ان موضوعك هذا يغلق للأسباب 1_ العنوان غير مناسب ولا يصف الموضوع 2_ عرض اكثر من سؤال في مشاركة واحدة كل عام وانت بخير

أول الغيث قطرة اخي نارت : كل عام وانتم بخير ونعمة وعافية عيدكم مبارك ..

تطبيق مصنعي أخي نارت : زدنا من هذه .. وحبذا لو انرت معارفنا بشيء عن جداول النظام هذه وما عملها وسبل الاستفادة منها. وأنت صاحب الشأن ان وضعتها في موضوع مستقل .

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

جزاك الله خيرا وانت منهم اذا هكذا يكون المثال بعد ازالة ما قمت به أنا من تعديل NA_CalcAge - Split_Error2.rar

تم التعديل بوضع شرط في الاستعلام ان وافقنا استاذنا عليه أو ان هناك ما هو ابسط من ذلك 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 فأرجو من اخي فرهاد ان يتسع صدره لهذا النقد وكل عام وأنتم بخير المعلومة التي تأتي بسهولة تذهب من الذاكرة بسهولة

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