أبو آدم

اللهم آمين سلمت لنا أخي الحبيب وبارك الله لك بصحتك ووقتك ورزقك وأهلك وولدك ...........

اللهم آمين بارك الله لك وبك أخي العزيز ............

تأخرت بالردً عليّ وبفضل من الله ... هذا تطبيق لما قمت به جرب ووافني بالنتيجة ..... .......... NA_AutoSerial.rar

الحمدلله الذي بفضله تقضى الحاجات تمت الاجابة

الكود المقترح كان بدون كودات للخيارات اليك تطبيقاً لما لديك جربت وأظنه كافياً ... إن كنت قد أحسنت الفهم عنكم جرب ووافني بالنتيجة ...... .......... NA_SavePro3.rar

اخترت لكم اليوم من مكتبتي ، نموذجاً للتقويم يمكنكم من إختيار التاريخ واستدعائه في نموذجكم الرئيسي التفاصيل في المرفق مع تمنياتي بعموم الفائدة لمستخدمي الإصدار 2003 خصوصاً والله من وراء القصد CalendarUK.zip

إقتراح ... Private Sub Command5_Click() On Error Resume Next Beep Select Case MsgBox("هل ترغب بحفظ التعديلات ؟" & vbCrLf & _ "إضغط موافق للحفظ أوإضغط لا لعدم الحفظ أو إضغط الغاء الأمر.", _ vbInformation + vbMsgBoxRight + vbYesNoCancel, _ "تنبيـــه : تعديل السجل") Case vbYes MsgBox "كود حفظ السجل" Case vbNo MsgBox "كود الغاء السجل" Case Else MsgBox "كود تجاهل الأمر " End Select End Sub ..........

لماذا لا ترفق جزء كافي من قاعدتك ليتم التطبيق عليه وان تعذر ذلك سارسل لك المتاح .........

حياكم الله الجملة تقول " بالاشهر " أضف العدد في Me.total للتاريخ في Me.start والحمد لله الذي بفضله تقضى الحاجات ..........

أخي محمد ايمن نسأل الله ان يمن عليك بالشفاء وتخرج من المشفى بخير .... لا يصح ان نعتبر كل الاشهر 30 يوما !!!!!!!!!! ..........

المرفق بالاصدار 2003 لعموم الفائدة .......... Database 24.06.2012.rar

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

المرفق اصدار 2003 لعموم الفائدة ........ موردين.rar

أولا نأمل أن تساهم معنا هنا .... http://www.officena....showtopic=41520 ثم ... المرفق قيد التحميل و النظر .. ................

الحمد لله الذي بفضله تقضى الحاجات ........

أولا نأمل أن تشاركنا هنا http://www.officena.net/ib/index.php?showtopic=41520 ثانيا في الأكسيس 2003 يمكن تظليل حقل ، ولا أعلم أنه يمكن تظليل كلمة .....!!! .........

نأمل أن تشاركنا هنا http://www.officena.net/ib/index.php?showtopic=41520 ............

نأمل أن تشاركنا هنا http://www.officena.net/ib/index.php?showtopic=41520 ............

سنة القبول = strYear القسم العلمي = strSection رقم الطالب = strID في النموذج ، وفي حدث بعد التحديث لحقل القسم العلمي Section Private Sub Section_AfterUpdate() strMaxKey = Nz(DMax("strID", "tblNames")) Me.IDD = Me.strYear & Me.strSection & Format(Val(Right(strMaxKey, 4)) + 1, "0000") End Sub تمت تجربة الكود بنجاح .............

في حدث بعد التحديث للحقل تاريخ الاشتراك ... جرب Private Sub start_AfterUpdate() Me.end = DateAdd("m", Me.total, Me.start) End Sub

جرب Me.NName=strFname & strNickName

جزيتم خيرا سنسعى في مسألة الشرح باذن الله ولكن لا أظنها ستكون ثالثا أخي حامل المسك ، حتى لا اعطل المسيرة ، فالظروف حاليا لا تسمح ، ... نسأل الله أن يعيننا و اياكم ............

بارك الله لكم وبكم سنشارك ونساهم ما قدّر لنا آملاً من الاخوة بذل المجهود للوصول للمقصود والله المستعان ...

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