abouelhassan

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

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

بارك الله فيك وبك ولك امين تم اضافة هذا الكود مثل المستخدمين اخى الكريم Private Sub btn_e_Click() Call controlPutons If gManager = 1 Then Me.e1.Visible = True Me.e2.Visible = True Me.e3.Visible = True Me.e4.Visible = True Else Me.e1.Visible = False Me.e2.Visible = False Me.e3.Visible = False Me.e4.Visible = False End If Exit Sub End Sub وفعلا زر اعداد توقف بس ظاهر اريد اخفاءه نفسه الى هو btn_e_ زادك الله من فضله اما اسم المستخدم للتقرير وضعت فى فتح التقرير لم يفلح Me.HomeUserName = guserName حفظكم الله

جارى العمل

تسلم اخى تم اضافة اسم المستخدم فى النموذج الرئيسى تمام بس فشل فى التقارير عملت كود اخفاء الاعدادات اذا كان اليوزر 2تمام ما ضبط ممكن توضيح اين الخطأ مشكووووووووووووور اخى الكريم FinancialPrg5.accdb

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

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

متابع

اسعد الله قلبك وقلبه اخى وفقكم الله لما يحبه ويرضى اللهم امين يارب العالمين اوجه مشكلة مع تعديل باس ورد المستخدم لا يعمل كمان سؤال اخى كده التعديل هيكون متاح للمدير اى وقت والمستخدمين حتى 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 تحفة به الاعداد ممتازة بس ناقص الربط بالجدول تسلم ايدك والله من كل قلبى ربى يسعد قلبك ويبارك فى عمرك ويحفظك اللهم امين يارب العالمين