sameh_awad

جزاكم الله خيرا و جعله الله فى ميزان حسناتك

السلام عليكمنرجو من حضراتكم جمع سنتان و نصف على تاريخ معين2.5 على 4-2017 ليصبح التاريخ 10-2019جربت #ExpireDate: DateAdd("yyyy";2.5;#01/04/2017(لكن يعطى4-2019و جزاكم الله خيرا

جزانا و اياكم ارجو من الاخوة الادامن تعديل عنوان المشاركة الى :- مكتبة أكواد الاكسيس حصاد 9 سنوات (الاصدار الثانى)

السلام عليكم جزاكم الله خيرا على تشجيعكم الاصدار الثانى بعد الاضافات VBALibraryAccessVer2.rar

جزاكم الله خيرا

اللهم آمين قصدت لجمعى هذه المكتبة أن اراعى ما أستخدمته طوال الــــ9 سنوات و أما باقى الأكواد التى لم أضعها فالتى فلم أستخدمها مطلقا وان شاء الله سيتم وضع الأكواد تباعا في الإصدارات الجديدة و بارك الله فيك

السلام عليكم تم انشاء قاعدة بيانات 2003 نسأل الله العون و القبول VBALIBRARY2003.rar

السلام عليكم سلمت يداك و بارك الله فيك

السلام عليكم جزاكم الله خيرا على الاقتراحات و التشجيع و بارك الله فيكم تم مراجعة الاخطاء وتم الاصلاح و لله الحمد لكن لم أجد الرسالة و لم أتمكن من لتحويل الى أوفيس 2003 أعطتنى رسالة و الملف بعد التعديلاتVBALibrary.rar

السلام عليكم أقد م لكم مكتبة أكواد الاكسيس حصاد 9 سنوات نسأل الله القبولVBALibrary.rar

اللهم امين و اياكم

السلام عليكم اليكم مقالات م/عارف حسان فى ملف واحد إنشاء الفئات والكائنات الموجهة في الاكسس فجزاه الله خيرا OOP.rar

بارك الله فيكم

وجدت الحل و لله الحمد بعدما أجريت مقارنات Private Sub Main_Notes_3yada_AfterUpdate() Dim Cr1, Cr2 As String Cr1 = " [Main_Notes_3yada]='" & [Forms]![3yada]![kind] = "'" Cr2 = " And [A3yada_date] >=#" & [Forms]![3yada]![Fm] & "#" & " and [A3yada_date] <=#" & [Forms]![3yada]![to] & "#" If DCount("[empcode]", "A3yada_Details", Cr1 & Cr2) > 2 Then MsgBox "No is over than 2" DoCmd.CancelEvent End If End Sub

للرفع للضرورة

السلام عليكم حياكم الله جميعا و بارك الله فى علمكم وددت أن أتعامل مع الاكسيس بلغة الvba و ليس بالاستعلامات لان البرنامج يمتلىء بالكثير منها أريد من حضراتكم حساب عدد مرات كشف الموظف خلال شهر 4 بحيث لا يتعدى 2 كشف/شهر و حاولت عدة مرات أستمرت 3 ساعات Private Sub Main_Notes_3yada_AfterUpdate() Dim Cr1, Cr2 As String Cr1 = " [Main_Notes_3yada]='" & [Forms]![3yada]![kind] = "كشف" Cr2 = " And [A3yada_date] >=#" & [Forms]![3yada]![Fm] & "#" & " and [A3yada_date] <=#" & [Forms]![3yada]![to] & "#" If DCount("[empcode]", "A3yada_Details", Cr1 & Cr2) > 2 Then MsgBox "No is over than 2" DoCmd.CancelEvent End If End Sub DCount_Sameh2-04-2016.rar

هل من الممكن انشاء استعلام يبين اسماء الجداول المتواجدة فى قاعدة البيانات ....و بارك الله فيكم

السلام عليكم السؤال لم يتضح لى بعد...برجاء زيادة توضيح

جزاكم الله خيرا أخى الفاضل برجاء بدء الاسبوع من يوم السبت و يكون على اليمين اى السبت الاحد الاثنين الثلاثاء .................... و بارك الله فى حضرتك

جرب أخى الكريمword.rar

جزاكم الله خيرا

السلام عليكم قمت بتحميل أوفيس 2016 انجليزى و لم أقم بالغاء اوفيس 2007 و ظهر لى الرسم العثمانى فى ملف ورد قديم بصيغة 2007 كما بالصورة

بارك الله فى حضرتك

بارك الله فيكم الموضوع لم يخطر لى على بال او حتى حلم فسبحان الله

تمت التجربة و لله الحمد