نجوم المشاركات

السلام عليكم اهل المنتدى الكرام اقدم لحضراتكم اليوم برنامج مجانى وجاهز لمعرفة أوقات الصلاة فى مدينتك ونظرا لحجم البرنامج الكبير اذ يصل الى أكثر من 14 ميجا فقد تم رفعه على موقع خارجى واليكم الموقع : http://www.mediafire.com/file/8pbu4jeuhpdj35w/Alburden-برنامج+البردين+لمعرفة+أوقات+الصلاة.rar وهذا ملف للشرح وصور البرنامج شرح وصور البرنامج.docx

انظر الى الصفحة Salim من هذا الملف New_Ages.xlsx

السلام عليكم اهل المنتدى الكرام اقدم لحضراتكم اليوم برنامج مجانى وجاهز لحساب قيمة الزكاة وهذه صور من البرنامج بعد التسطيب : ونظرا لحجم البرنامج الكبير اذ يصل الى أكثر من 3 ميجا فقد تم رفعه على موقع خارجى واليكم الموقع : http://www.mediafire.com/file/53c1m7q405bn3y5/Raboa-برنامج+ربوة+لحساب+الزكاة.rar وهذا ملف للشرح وصور البرنامج شرح وصور البرنامج.docx

السلام عليكم ورحمة الله وبركاته استقطعت هذا الجزء من احد برامجي عندما يكون عندك صور/صورة بأحجام مختلفة ، وتريد ان تُكبر الصورة حتى تراها بالحجم الاصلي الكبير ، ولكن داخل برنامج الاكسس ودون الاستعانه ببرنامج خارجي: 1. افتح/تصفح المجلد الذي تريد رؤية صوره ، 2. سترى اسماء الصور في القائمة ، وعند النقر على الاسم ، سترى صورته ، 3. في اي مكان في الصورة ، يمكنك النقر مرتين ، وستكبر الصورة ، وكلما تنقر مرتين يزداد حجمها ، الى ان ترجع الى حجمها الذي يملئ الشاشة ، 4و5. وتستطيع رؤية بقية/تفاصيل الصورة بسحبها لأعلى/اسفل او يمين/يسار: الملف اسمه: Browse_images.mdb.zip تعديل رقم 1: شكرا لأخي ابو خليل على تنبيهي بوجدود خطأ مطبعي في الملف المرفق سابقا ، تم تعديل الملف وتم إضافة الملف التالي: Browse_ONE_image.mdb.zip بعض الاوقات نريد ان نفتح صورة موجود مساره في قاعدة البيانات (يعني فتح صورة معينة): . فيكون كود فتح الصورة: DoCmd.OpenForm "frm_Open_jpg" Forms!frm_Open_jpg!sfrm_Open_jpg!Image1.Picture = Me.image_Name وهذه النتيجة ، والتي يمكننا النقر عليها لتكبيرها . جعفر Browse_images.mdb.zip Browse_ONE_image.mdb.zip

السلام عليكم احتاج اظهار رسالة بتخطي حفظ اكثر من 3 سجلات بنفس التاريخ مثلا احمد 4-7-2018 علي 4-7-2018 سعد 4-7-2018 وعند اضافة السجل الرابع يظهر مسج تنبيه لقد تجاوزت 3 سجلات بنفس التاريخ 123456.rar

حرب هذا الملف مطابقةsalim.xlsx

حرب هذا الملف تلوين الأرقامsalim.xls

أحسنت استاذ علي برنامج قمة فى الروعة

بارك الله فيك برنامج جميل - أحسنت

اتفضل الك هذا تم استخدام هذا في التقرير مع فاصل الصفحات Dim MyPagRecCnt As Integer Private Sub Report_Page() MyPagRecCnt = -1 End Sub Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) MyPagRecCnt = MyPagRecCnt + 1 Counter = MyPagRecCnt If Counter Mod 15 = 0 Then Me.PageBreak17.Visible = True Else Me.PageBreak17.Visible = False End If End Sub بدء الصفحة برقم واحد.rar

السلام عليكم عادةً ، لا نحفظ العمليات الحسابية في حقل في الجدول ، وانما هو سطر نضعه في الاستعلام او في النموذج/التقرير ، ونحصل على النتيجة ، صحيح ان الاكسس يحتوي على حقل محسوب ، ولكن المحترفين ينصحون بعدم استعماله ، لأن به مشاكل!! بغض النظر اينما اردت ان تضع الكود (قد تحتاج الى تغيير الفاصلة الى فاصلة منقطة): في الجدول ، في الحقل المحسوب iif([amount]<[cut],[amount],[amount]-[cut]) في الاستعلام amount_fin: iif([amount]<[cut],[amount],[amount]-[cut]) في النموذج/التقرير =iif([amount]<[cut],[amount],[amount]-[cut]) جعفر

السلام عليكم تم تعديل الملف المرفق ، وإضافة ميزة اخرى لإستعمال البرنامج شكرا على حُسن تعبيركم جعفر