كل الانشطه

استوقفني في مثالك من ضمن الصلاحيات : ممنوع الدخول السؤال هو ليه يسمح له بالدخول من الأساس؟ .. ام ان المنع يطبق على هذه النماذج الثلاث فقط .. والبقية مفتوحة؟

فعلاً ليس هناك رد 🤣 مش عارف إذا فكرتك اللي جربت عليها منطقية حتى اعتمدها للتعديل أم لا 😅 ، هو في منطق في هذا الكود ؟؟ Private Sub Form_Timer() Me.ClockTxt.Requery Me.cTimeTxt.Requery End Sub

وعليكم السلام ورحمة الله وبركاته ،،، ماشاء الله تبارك الله .. طرح مميز جدا وغير مسبوق جربت على نموذجين أحدهما كان نموذج قديم ولم نعرف حل لمشكلة الترميش حينها ولكن كودك نجح بامتياز : والآخر هو نفس نموذجك مع بعض الإضافات ولكن لا تزال المشكلة قائمة .. 🤷‍♂️ Anti Flicker.accdb

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

اعرض الملف حافز التجريبي حافز التجريبي صاحب الملف أحمد عبد العاطي رشيدي تمت الاضافه 03/07/26 الاقسام قسم الإكسيل  

السلام عليكم لدى نموذج رئيسى اسمه main به حقل pay ونموزج فرعى اسمه multipay عباره عن نموذج مستمر وبه حقل اسمه pay2 فى حدث قبل الحذف للنموزج multipay Forms!main!pay =Forms!main!pay - me.pay2 يعنى بطرح pay2 من pay مايحدث كالتالى الحدثث يقوم بتطبيق المعادلة حتى لو ضغط المستخدم على زر لا فى رسالة تأكيد الحذف وهى رسالة الاكسيس الافتراضيه كيف يمكن الغاء الحدث لو ضغط المستخدم على لا وكيف يتم مخاطبة هذه الرساله اصلا بالكود

جاري العمل لكن غداً انشاء الله بتحصل نظام سيعجبك .

السلام عليكم استاذ خليفة جدول المستخدمين موجود والصفحة الرئيسية وشاشة الدخول شاشة الدخول تعمل بالضغط علي زر دخول امام كل نموذج ونضع كلمة السر 123 يفتح علي النموذج المطلوب

الجدول المشار اليه غير موجود بالمرفق .

لم توضح ما هو هذا الحساب ؟ هل هو مجموع عدد مثلا 60 يوم هي عدد ايام الجمعة والسبت ام تريد اظهار هذه الايام بتواريخها كقائمة في استعلام ام تريده في نموذج لتسجيل الحضور 31 عمود بعدد ايام الشهر ويكون يومي الجمعة والسبت مظللة محمية وكل هذه ستظهر حسب تحديد الفترة من تاريخ كذا الى تاريخ كذا .. وثابتة لسنوات قادمة حسب الاختيار وحسب التصفية أرأيت كم هي مرنة كلمة حساب

اعرض الملف أداة تخصيص شريط العناوين للنماذج {سلسلة الأدوات المساعدة المخصصة} أقدم لكم اليوم أداة بسيطة في شكلها ولكنها فريدة في نتائجها خصوصاً لم يستهويهم التميز في شكل النماذج الخاصة بهم فمثلاً إذا رغبت بالحصول على شريط عنوان ملون لنماذجك وتخصيص لون انص العنوان كما بالصورة أو رغبت بتخصيص لون حدود النموذج كم بالصورة أو رغبت في تحديد شكل زوايا النموذج كما بالصورة وأخيراً وهذه هي الميزة الأفضل من وجهة نظري وهي أن تجعل شريط العنوان شفاف كما بالصورة إذا كنت تريد الحصول على أي من النتائج أعلاه فهذه الأداة هي كل ما تحتاجه مرفق لكم ملف مضغوط بداخله ملف أكسس ومستند وورد يشرح كل ما تحتاج معرفته للإستفادة من الأداة في تطبيقاتك الخاصة هناك ملاحظتين رغم أنها مذكورة في اكثر من مكان في المرفقات إلا أنه ولأهميتها يجب ذكرهما هنا فبحسب المصدر فإن هذه الأداة لن تعمل إلا في Windows 11 فقط لذا لو جربها أحدكم في إصدارات أخرى فياريت يعلمنا إذا إشتغلت معه أم لا الملاحظة الثانية لن تظهر نتائج الأداة إلا في النماذج المنبثقة بمعنى أنه يجب أن يتم تعيين القيمة (نعم - Yes) لخاصية (منبثق - Pop Up) تحياتي صاحب الملف منتصر الانسي تمت الاضافه 03/07/26 الاقسام قسم الأكسيس  

ارجو من الأخوة حل

العام الدراسى عندنا 9 شهور منهم 3 شهور فى عام والباقى فى عام اخر على سبيل المثال : من 2025/10/1 حتى 2026/6/30 المطلوب حساب أيام الجمعة والسبت لشهور أكتوبر ونوفمبر وديسمبر 2025 وأيضا لبقية شهور 2026 لغاية شهر 6 حاجة تانى الموضوع ده محتاجه يبقى يكون مستمر لما أغير الأعوام يعنى العام الدراسى القادم إن شاء الله هيكون 2027/2026 وهكذا حساب الجمعة والسبت.accdb

مصر و جميع الامة العربية و الامة الاسلامية بالخير و البركات و الف خير ان شاء الله

رمضان كريم وكل عام وانتم بخير

أخواني وأساتذتي ومعلمينا ( دون استثناء ) بعد المعاناة التي تواجه كل مبرمج أو هاوي أو محترف في التعامل مع الصور داخل آكسيس ، بوجود الترميش أو الوميض . وكنت قد طرحت تساؤلاً حول آلية تجنب هذه المشكلة عند تعامل آكسيس مع الصور داخل النماذج الحركية . خرجت بهذه الفكرة البسيطة والتي آمل أن تكون الحل الشافي لهذه المعضلة - كما عودناكم دائماً - بإيجاد الحل السحري لها . الفكرة تم ترجمتها بأسلوب بسيط بحيث نجعل النموذج يقوم برسم الأحداث دفعة واحدة بدلاً من رسم كل حركة بشكل منفصل أثناء التعامل مع الصور . الدالة المستخدمة :- '********************************************** '*** *** '*** FFFFFF OOO KK KK SSSS HH HH *** '*** FF O O KK KK SS HH HH *** '*** FFFFF O O KKK SS HHHHHH *** '*** FF O O KK KK SS HH HH *** '*** FF OOO KK KK SSSSS HH HH *** '*** *** '********* Anti Flicker By Foksh 2026 ********* Option Compare Database Option Explicit #If VBA7 Then Private Declare PtrSafe Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongPtrA" _ (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr Private Declare PtrSafe Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongPtrA" _ (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr Private Declare PtrSafe Function SetWindowPos Lib "user32" _ (ByVal hWnd As LongPtr, ByVal hWndInsertAfter As LongPtr, _ ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, _ ByVal uFlags As Long) As Long #Else Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetWindowPos Lib "user32" _ (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _ ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, _ ByVal uFlags As Long) As Long #End If Private Const GWL_EXSTYLE As Long = -20 Private Const WS_EX_COMPOSITED As Long = &H2000000 Private Const SWP_NOMOVE As Long = &H2 Private Const SWP_NOSIZE As Long = &H1 Private Const SWP_NOZORDER As Long = &H4 Private Const SWP_FRAMECHANGED As Long = &H20 Public Sub Form_SetComposited(ByVal frm As Access.Form, ByVal EnableIt As Boolean) On Error Resume Next #If VBA7 Then Dim h As LongPtr: h = frm.hWnd Dim ex As LongPtr: ex = GetWindowLongPtr(h, GWL_EXSTYLE) If EnableIt Then If (ex And WS_EX_COMPOSITED) = 0 Then Call SetWindowLongPtr(h, GWL_EXSTYLE, (ex Or WS_EX_COMPOSITED)) End If Else If (ex And WS_EX_COMPOSITED) <> 0 Then Call SetWindowLongPtr(h, GWL_EXSTYLE, (ex And Not WS_EX_COMPOSITED)) End If End If Call SetWindowPos(h, 0, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOZORDER Or SWP_FRAMECHANGED) #Else Dim h32 As Long: h32 = frm.hWnd Dim ex32 As Long: ex32 = GetWindowLong(h32, GWL_EXSTYLE) If EnableIt Then If (ex32 And WS_EX_COMPOSITED) = 0 Then Call SetWindowLong(h32, GWL_EXSTYLE, (ex32 Or WS_EX_COMPOSITED)) End If Else If (ex32 And WS_EX_COMPOSITED) <> 0 Then Call SetWindowLong(h32, GWL_EXSTYLE, (ex32 And Not WS_EX_COMPOSITED)) End If End If Call SetWindowPos(h32, 0, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOZORDER Or SWP_FRAMECHANGED) #End If End Sub مع ترك المساحة بالتفعيل أو التعطيل حسب الحاجة . بحيث يتم الاستدعاء لها في حدث عند التحميل للنموذج بهذا الأسلوب البسيط :- Form_SetComposited Me, True أو التعطيل بهذا الشكل :- Form_SetComposited Me, False الملف مفتوح المصدر . لمن يرغب بالتجربة على مشروعه ، فضلاً وكرماً منه بإخباري بالنتيجة أن كانت ناجحة أم لا . علماً أنه تم استخدام الفكرة نفسها في إنشاء لعبة الأونو في هذا الموضوع مسبقاً ، والنتيجة كما شاهدتموها في أداء اللعبة والتعامل مع الصور بشكل دقيق لتخرج اللعبة كتجربة دون أي ترميش أو وميض عند حركة الصور داخل النماذج . Anti Flicker.accdb

شو رأيكم نخلي اللعبة تنتقل لمستوى أكبر ، بحيث نخليها قابلة للّعب على الشبكة المحلية ؟؟؟

thanks a lot

شكرا لك !

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

شكرا جزيلا وبارك الله فيك وغفر الله لنا ولكم بحق هذا الشهر الكريم

كل عام و وووانتم بخير

تفضل المرفق بعد التعديل بكل طلباتك . Saad-1.rar