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

السلام عليكم ورحمة الله تعالى وبركاته طبعا قد يقول البعض ان الموضوع اتهرس فى ميت فيلم عربى قبل كده لكن على كل حال تم تدارك الكثير من المشاكل ومعالجتها بشكل احترافى - اخفاء اطار لاكسس بالشكل الطبيعى والتقليدى لعرض النموذج كاملا - اخفاء اطار الاكسس وعمل شفافية للنموذج لاظهار صور png او حسب خيال المسخدم - تم ضبط كواد التوسيط للنماذج والتقارير باحترافية ويعمل التوسيط مع الخاصية Pop Up فى اى وضع كانت فى حالة عدم استخدام الاخفاء - تم حل مشكلة عدم ظهور التقاربر عند الاخفاء بتكبير التقرير تلقائيا عند استخدام كود الاخفاء - امكانبة التصغير للتطبيق بجوار الساعة ( System Try ) - عند التصغير بجوار الساعة ممكن الضغط كليك يمين على الايقونة لتظهر قائمة اختيارات - تم ضبط كود تغير ايقونة الاكسس باحترافية وبشكل تلقائى من المسار المحدد او فى حالة عدم وجود الايقونة ترجع ايقونة الاكسس - تم التعامل مع الاكواد بحرفية تامة للعمل على بيئات الأنوية المختلفة سواء كانت 32 , 64 اترككم مع تجربة شيقة ملاحظة هامة : ارضاء للجميع ولاضفاء اكبر قدر ممكن من المرونة المرفق يحتوى على قاعدتان الاولى : تم تجميع كل الاكواد والدوال فى وحدة نمطية عامة واحدة وكلاس موديول واحد لسهولة الاستفادة منها ونقلهم الى اى قاعدة الثانية : فصل اكواد كل وظيفة على حدة فى مديول خاص بها تم اضافة تعديل وتحديث جديد بتاريخ 11/10/2024 رقم اصدار التعديل الاخيــر : 4.8 center and Hid and Tray Minimizer V 30.zip center and Hid and Tray Minimizer V 4.8.rar

السلام عليكم ورحمة الله المعادلة التي استعملتها في الطلب (الموضوع) سليمة وهي "معادلة صفيف" أي أنه يجب تأكيدها بالمفاتيح : Ctrl+Shift+Enter وليس بالمفتاح Enter وحده... لهذا السبب تظهر صيغة المعادلة بين الحاضنتين {} مثل التي في الرد الثاني للأخ "اشرف سعيد السويسي" ولا تُحجز يدويا مثلما فعلت أنت (حسب اعتقادي) لهذا طهرت لك الرسالة التي في ردك الثالث... والله أعلم. وتجد في الملف المرفق تطبيقا لمعادلتك على ملف موضوعك... Book2.xlsx

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

جزيت خيرا اخى الكريم تسلم ايديك

وعليكم السلام If (FRM = "F1") Then DoCmd.OpenForm "F1", acNormal, "", "", , acNormal ElseIf (FRM = "F2") Then DoCmd.OpenForm "F2", acNormal, "", "", , acNormal ElseIf (FRM = "R1") Then DoCmd.OpenReport "R1", acViewReport, "", "", acNormal ElseIf (FRM = "M1") Then DoCmd.RunMacro "M1", , "" End If test (1).accdb

او هذا الكود تأكد من أن مكتبة DAO مفعلة في مشروعك. يمكنك تفعيلها من خلال الذهاب إلى Tools > References في محرر VBA، ثم التأكد من تفعيل Microsoft DAO 3.6 Object Library Private Sub Form_Open(Cancel As Integer) Dim tb As DAO.Recordset ' التأكد من استخدام DAO Recordset Set tb = CurrentDb.OpenRecordset("tbl_student1", dbOpenDynaset) tb.MoveFirst Do While Not tb.EOF tb.Edit ' وضع السجل في وضع التحرير tb.Fields("OnlyYou") = False ' تعديل قيمة الحقل tb.Update ' تحديث السجل في قاعدة البيانات tb.MoveNext ' الانتقال للسجل التالي Loop tb.Close ' إغلاق الكائن بعد الاستخدام Set tb = Nothing ' إلغاء الإشارة إلى الكائن End Sub

وعليكم السلام ورحمة الله تعالى وبركاته اظن ان اقتراح الاخ @عبدالله بشير عبدالله سيوفي بالغرض ولإثراء الموضوع إليك بعض الحلول الأخرى =IF(I2<>"",MAX(IF($F$2:$F24=I2,$E$2:$E24)),"") =IF(I2<>"",TEXT(AGGREGATE(14,6,$E$2:$E24/($F$2:$F24=I2),1),"DD/MM/YYYY"),"") =IF(I2<>"", XLOOKUP(I2, $F$2:$F24, $E$2:$E24, "", 0, -1), "") =IF(I2<>"", IFERROR(TEXT(AGGREGATE(14,6,$E$2:$E24/($F$2:$F24=I2),1),"DD/MM/YYYY"),"لا توجد بيانات"), "") =IF(I2<>"", MAX(FILTER($E$2:$E24, $F$2:$F24=I2)), "")

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

استأذن من استاذنا السيد الوزير البرمجة اتفضل اليك الكود اذا ليس هناك اي ملف في الفولدر سيعطيك الرسالة بان ليس هناك اي نسخة احتياطية لكي نحذفة واذا هناك ملف فيه سيعطيك الرسالة هل انت متأكد واذا نعم سيحذف الجميع Private Sub أمر0_Click() If Dir("D:\FoldrName\" & "*.*") = "" Then MsgBox "ليس هناك اي نسخة احتياطية لكي نحذفه" Else If MsgBox("هل تريد حذف جميع النسخ الإحتياطية ؟", vbYesNo, "نافذة الرسائل") = vbYes Then Kill "D:\FoldrName\*.*" MsgBox "لقد تم حذف جميع النسخ الإحتياطية بنجاح!!!!", vbOKOnly, "نافذة الرسائل" End If End If End Sub اليك المرفق تفريغ محتويات مجلد.rar

السلام عليكم الطريقة الصحيحة في استخدام الدالة Dir https://www.techonthenet.com/access/functions/file/dir.php ولكن من تجربتي ، فهذه الدالة بطيئة نوعا ما في البحث عن ملف/مجلد في الشبكة الدالة Kill هي لحذف الملفات وليس المجلدات ، بينما الدالة RmDir هي لحذف المجلدات الفارغة ، اما اذا كانت هناك ملفات في المجلد ، فيجب حذف الملفات قبل حذف المجلد ، الرابط التالي فيه امثلة http://www.rondebruin.nl/win/s4/win004.htm ولكن ، الملفات والمجلدات التي يتم حذفها بالدوال اعلاه ، تُحذف نهائيا ، ولكن اذا اردت حذفها الى سلة المهملات ، فاستخدم الوحدة النمطية في الرابط التالي: http://vbadud.blogspot.com/2008/08/vba-send-file-to-recycle-bin.html جعفر