abouelhassan

جميل جدا جدا جدا جدا تسلم ايدك

متابع

اسعد الله قلبك وقلبه اخى وفقكم الله لما يحبه ويرضى اللهم امين يارب العالمين اوجه مشكلة مع تعديل باس ورد المستخدم لا يعمل كمان سؤال اخى كده التعديل هيكون متاح للمدير اى وقت والمستخدمين حتى 10 الشهر التالى صح كده ولا ايه بارك الله فيك اخى الكريم جداااااااااااااااااااااااااااااااااااااا

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

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

شكر وتقدير وفائق الاحترام من اخيك

بارك الله فيك اخى الكريم احتاج نموذج بصلاحيات مستخدمين فعال وشامل وبسيط اخى الكريم

استاذى الحبيب لقلبى واجهتنى مشكلة مع التقرير التفصيلى اخترت ما فى الصورة النتيجة الحساب1 النوع الاول المفروض يتم التجميع فى سطر واحد الدائن والمدين فى سطر واحد مش سطرين بارك الله فيك اخى الكريم جدااااااااااااااااااااااا

هل لى بسؤال اخى ممكن حضرتك تخبرنا عن مصدر للصور الجميلة المستخدمة بالبرنامج للفائدة

السلام عليكم ورحمة الله وبركاته كل عام وحضراتكم بكل خير احتاج نموذج دخول ومستخدمين بسيط مع خالص الشكر والتقدير FinancialPrg2.accdb

حاضر اخى الكريم

اخى الكريم حبيبى الغالي هل افتح موضوع جديد للنقاط الباقي 1- واجهة جميلة للبرنامج 2- اعداد قائمة مختصرة ( خاصة ) للتقارير للطباعة والتصدير 3- زر لأخذ نسخة احتياطية 4- نموذج دخول وصلاحية مستخدمين بسيطة تؤدي الحاجة 5- تقسيم قاعدة البيانات 6- تحويل الوجهات الى صيغة accde -------------- مشكور

ماشاء الله تبارك الله حضرتك أسطورة ماشاء الله عليك موضوع مهم ومفيد جدا جدا جدا حفظكم الله

ان شاء الله هيعمل على office 2010 Dim cellState As New Collection Private Sub Workbook_Open() Dim ws As Worksheet Dim cell As Range For Each ws In ThisWorkbook.Worksheets For Each cell In ws.UsedRange If Not IsEmpty(cell.Value) Then cellState.Add cell.Value, cell.Address End If Next cell Next ws End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) cellState.Clear End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range Dim ws As Worksheet Set ws = Target.Worksheet For Each cell In Target If Not Intersect(cell, ws.UsedRange) Is Nothing Then If Not IsEmpty(cell.Value) And cell.Value <> cell.Text Then cell.Interior.Color = RGB(0, 0, 0) ' Black color cell.Font.Color = RGB(255, 255, 255) ' White color If cellState.Contains(cell.Address) Then cellState.Remove cell.Address End If cellState.Add cell.Text, cell.Address End If End If Next cell End Sub

اعتذر اخى معلش السن بقى انت صح وجدت أنه 6/3/2022 اسف جدااا اخى كده تمام هذه النقطة هل ننتقل إلى الشاشة الرئيسية حفظكم الله وبارك فيك

ها هو اخى الكريم الغالى لقلبى

اعزك الله اخى البحث فوق الممتاز بس حضرتك جرب ابحث ببحث مستخدم واختار معيار واخد وهو حالة الصرف نعم هيظهر لك سجل واحد بتاريخ 1/3/2024 وعندما اختار نفس المعيار حالة الصرف نعم بس المستخدم المدير ظهر لى 3 سجلات الاول بتاريخ 1/3/2024 الثانى بتاريخ 16/3/2024 الثالث بتاريخ4/2/2024 بكده يكون السجل بتاريخ 1/3/2024 والسجل بتاريخ16/3/2024 المفروض يظهروا ل المستخدم صح كده وما يختفى هو ما بتاريخ4/2/2024 جرب اخى أما كل شئ فوق فوق الممتاز تسلم ايدك وعينك يارب ويديك الصحة والعافية ويبارك لك في اسرتك الكريمة حبيبي واخويا ربنا يحفظك

الكود يعمل عندى اخى وللتأكيد جرب التحديث Dim cellState As New Collection Private Sub Workbook_Open() Dim ws As Worksheet Dim cell As Range For Each ws In ThisWorkbook.Worksheets For Each cell In ws.UsedRange If Not IsEmpty(cell.Value) Then cellState.Add cell.Value, cell.Address End If Next cell Next ws End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) cellState.Clear End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim cell As Range For Each cell In Target If Not Intersect(cell, Sh.UsedRange) Is Nothing Then If Not IsEmpty(cell.Value) And cell.Value <> cell.Text Then cell.Interior.Color = RGB(0, 0, 0) ' Black color cell.Font.Color = RGB(255, 255, 255) ' White color If cellState.Contains(cell.Address) Then cellState.Remove cell.Address End If cellState.Add cell.Text, cell.Address End If End If Next cell End Sub أعتذر عن ذلك. دعوني أوضح الكود بشكل أدق. يمكنك استخدام هذا الكوديرجى وضع هذا الكود في وحدة VBA جديدة كما ذكرت سابقًا، ثم قم بحفظ الملف وأعد فتحه وجرب تغيير القيم في الخلايا. إذا لم يعمل، فقد يكون هناك مشكلة في الإعدادات الخاصة بالملف. يمكنك محاولة إعادة الكود بعد حفظ الملف باسم جديد وفتحه للتحقق من عمل الكود.

تسلم ايدك وعينك ورأسك اخى فكرة ممتازة بس فى شئ اختارت بحث مستخدم واخترت تم الصرف نعم عرض سجل بتاريخ1/3/2024 وعندما اختارت نفس البيانات كمدير عرض 3 المفروض واحد 1/3/2024 والثانى6/3/2024 والثالث4/2/2024 والمفروض ان المخفى عن المستخدم هيكون هنا سجل واحد هو4/2/2024 يعنى كده فى سجلين مخفيين عن المستخدم من ضمنهم واحد المفروض يظهر الظاهر أن الكود يعمل على التاريخ الشهر الماضى والحاضر يحتاج تعديل أن الشهر الحالى يعرض وفكرة روعة الروعة بصراحة كذلك حذف السجل يعمل تمام التمام كمان عندما رأيت الفورم1 تحفة به الاعداد ممتازة بس ناقص الربط بالجدول تسلم ايدك والله من كل قلبى ربى يسعد قلبك ويبارك فى عمرك ويحفظك اللهم امين يارب العالمين

يبدو أن هناك خلط في الاستخدام. يجب وضع الكود في وحدة VBA للمصنف (Module) بدلاً من وضعه في حدث الملف أو حدث الورقة. قم باتباع الخطوات التالية: 1. افتح المصنف واذهب إلى عارض المشروع (عن طريق الضغط على ALT + F11). 2. في عارض المشروع، انقر بزر الماوس الأيمن على أحد الأوراق في الجزء الأيسر، ثم اختر "Insert" > "Module" لإضافة وحدة جديدة. 3. انسخ والصق الكود في الوحدة الجديدة. 4. أغلق نافذة VBA واحفظ التغييرات. 5. أعد فتح الملف وجرب تغيير قيم في الخلايا لرؤية التأثير.

تمام اخى الكريم كلامك صحيح الحذف سجل فقط غلط الحذف بالجمله رمضان كريم كل عام وانتم بخير وصحه وسلامه

المدخلات تظل تراجع ولكن لايجب لن يتم تعديلها بعد انتهاء الشهر بس يمكن الاطلاع عليها فاهمنى اخى بارك الله فيك اخى الكريم

تسلم ايدك اخى تحفة التصميم الرئيسى بالقوائم تحفة جداا قمت بعمل DoCmd.Maximize النموذج ملئ الشاشة بس كل الكائنات تجاه اليمين عايز النموذج كما هو بس ملئ الشاشة كان عندى كود بيعمل ده مش لقيه احتاج الى كود الضبط التلقائى للشاشة كان عندى بس مش لقيه قمت بعمل شيك اختيار فى نموذج البحث بحيث اعمل اختيار وعملت زر بالاعلى لعمل اختيار للكل وزر اسمه حذف المحدد شاكر فضلك FinancialPrg1.accdb بالنسبة للحماية اطلعت على موضوعك السابق بهذا الخصوص وعلمت ما تريد بالضبط . هل تريد اعتماد تاريخ الانترنت ؟ لأن طريقة تنفيذ الحماية سهلة ويسيرة ، ولكن تفشل عند التلاعب بتاريخ الجهاز على اعتبار المدير له الصلاحية الكاملة في التعديل على القديم والجديد تمام اخى

سامحنى اخى احاول المساعدة قدر الامكان والله جرب هذا الكود يستخدم مجموعة من الخلايا لتخزين حالتها قبل وبعد التغييرات. عند فتح الملف، يتم تسجيل قيم الخلايا غير الفارغة. عندما تُغلق الملف، يتم مسح حالة الخلايا. وعند تغيير القيم في الخلايا، يتم التحقق مما إذا كانت القيمة الجديدة غير فارغة ومختلفة عن القيمة السابقة، حيث يتم تغيير لون الخلفية إلى الأسود ولون النص إلى الأبيض وتحديث حالة الخلية Dim cellState As New Collection Private Sub Workbook_Open() Dim ws As Worksheet Dim cell As Range For Each ws In ThisWorkbook.Worksheets For Each cell In ws.UsedRange If Not IsEmpty(cell.Value) Then cellState.Add cell.Value, cell.Address End If Next cell Next ws End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) cellState.Clear End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range For Each cell In Target If Not Intersect(cell, Me.UsedRange) Is Nothing Then If Not IsEmpty(cell.Value) And cell.Value <> cell.Text Then cell.Interior.Color = RGB(0, 0, 0) ' Black color cell.Font.Color = RGB(255, 255, 255) ' White color If cellState.Contains(cell.Address) Then cellState.Remove cell.Address End If cellState.Add cell.Text, cell.Address End If End If Next cell End Sub

تمام اخى سأحاول فى السابق طرحه أن شاء الله استطيع عمل أغلبه بس لى طلب عدم القدرة على تعديل البيانات بعد يوم 10 الشهر التالى لدى كود فى برنامج قديم بس بيعتمد على كلمة فى عمود فى جدول البيانات وهى مرحل إذا أتى يوم 10 الكود بيكتب مرحل فيمنع التعديل احتاج لتوجيه حضرتك فى هذه النقطة الهامة لمنع التلاعب بالبيانات كمان عايز ضبط النماذج لتأخذ حجم الشاشة اى شاشة لا اعرفه وفى نموذج البحث احتاج إذا لزم الأمر لحذف السجل غير موجود او حذف مجموعة سجلات مرة واحدة حيث أن الغرض من نموذج البحث التعديل فى حال وجود خطأ وذلك خلال الشهر الحالى اما بعد يوم 10الشهر التالى لا يمكن التعديل أو الحذف أو تغير اى شئ فى البيانات أكرمك الله كما اكرمتنى وعلمتنى وزادك من فضله وكرمه وجعلك من أهل الجنة بحق الشهر الفضيل اللهم امين يارب العالمين