abouelhassan

السلام عليكم ورحمه الله وبركاته لدى تقرير بيكتب فيه 0 بدل الخلايا الفارغة احتاج اذا كانت الخلية تساوى 0اجعلها فارغة لكى تختفى فى التقرير بدل وجودها وبها0 مع الشكر والتقدير

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

والله مش راضى يشتغل عندى اخى فى الله بارك الله فيك اخي الكريم

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

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

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

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