abouelhassan

بارك الله فيك اخي الكريم

اسف اخى ممكن تجرب هذا الكود أن شاء الله يضبط Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range Dim rng As Range Set rng = Me.Range("E:H,J:K") For Each cell In Target If Not Intersect(cell, rng) Is Nothing Then If cell.Value <> cell.Text Then cell.Interior.Color = RGB(0, 0, 0) ' Black color cell.Font.Color = RGB(255, 255, 255) ' White color Else cell.Interior.ColorIndex = xlNone ' No color cell.Font.ColorIndex = xlAutomatic ' Automatic font color End If End If Next cell End Sub للاختبار اخى الكريم هذا الكود يقوم بتحديد نطاق الخلايا المراد مراقبتها (E:H و J:K)، وعند تغيير أي قيمة في هذه الخلايا، يتم تغيير لون الخلفية إلى الأسود ولون النص إلى الأبيض. إذا لم يحدث أي تغيير في القيمة، ستظل الخلية كما هي. ويمكنك تعديل النطاق كما تحب إذا نجح الكود تحياتي

روائع الروائع أكرمك الله عز وجل

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

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

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

فهمت ان شاء الله يكون طلبك 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 cell.Value <> cell.Text Then cell.Interior.Color = RGB(0, 0, 0) ' Black color cell.Font.Color = RGB(255, 255, 255) ' White color End If End If Next cell End Sub

ممتاز يمتاز بالبساطة والقوة والله تسلم ايدك اخى حاولت اضافة جملة .FilterOn = False فى نموذج البحث بحيث تخفى البيانات لم تنجح احتاج شرح كيف عملها اخى التقرير رائع مكنتش متخيل ان كل الى احتاجه يوجد فى تقرير واحد من امبارح عمال اتخيل ازى هيتم فى ظل وجود كمية الحسابات وانواعها الكتير تسلم ايدك اخى الكريم بصراحة جميل جدا ويمتاز بالسهولة فى الفهم وتطبيق كل جزئ احتاج شرح لماذا نوع الحساب يظهر بالجدو الرئيسى رقم وليس اسم وما هو السبيل لتعديله ليكون اسم شكرا من القلب

اسف رمضان كريم 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 cell.Value <> "" Then cell.Interior.Color = RGB(0, 0, 0) ' Black color cell.Font.Color = RGB(255, 255, 255) ' White color End If End If Next cell 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 cell.Interior.Color = RGB(0, 0, 0) ' Black color cell.Font.Color = RGB(255, 255, 255) ' White color End If Next cell End Sub

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

جرب اخى الكريم 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 cell.Interior.Color = RGB(0, 0, 0) ' Black color cell.Font.Color = RGB(255, 255, 255) ' White color End If Next cell End Sub كل عام وانتم بخير وصحه وسلامه

اسف اخى الملف لم يفتح اكتب المعادلة المراد تحويلها لكود مشكور

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

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

اخى الغالى تم عمل تعديل على نموذج البحث والتعديل واضافة كأئنات للبحث مثل الحساب وحالة الصرف والحمد لله ضبطت ينقص اكواد الفلترة حيث تظهر كل البيانات فى البحث وجدت اننى احتاج نوع الحساب -جديد/قديم اخى عذرا ممكن توجيهى لكى اضيفه كمان ايه رأيك اخى استطيع عمل نموذج يقوم بعرض كل البيانات حال احتجناها ايه رأيك وكمان ايه رأيك اخى اضيف للبحث التاريخ وتصدير نتائج البحث الاكسيل للمراجعة استطيع عملهم ولكن ينقص الاكواد وده بعد رأيك هل لها فائدة ام لا انا اقول ما احتاجه فى البرنامج السابق وانتظر رايك اشكرك تقبل احترامى وتقديرى وعرفانى بالجميل Financial_db2.accdb

اخى الحبيب والله كلى حماس احبك يا طيب

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

تجربة 1 خالص شكرى وتقديرى واحترامى Financial_db.accdb

تمام اخى الحبيب

اخى الكريم استاذى الحبيب ابوخليل روعة البساطة والعملية نموذج ممتاز فهمته جيد ممتاز فعلا الاكواد المستخدمة فى النموذج Option Compare Database Private Sub ComSave_Click() Me.Requery Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "combobox" Then If IsNull(ctl) Or ctl = "" Then MsgBox " لا يمكن ترك اي حقل فارغ", vbInformation, "" DoCmd.CancelEvent ctl.SetFocus Exit Sub Exit For End If End If Next ctl Dim rs As Recordset Dim rst As Recordset Dim R As Integer Set rs = CurrentDb.OpenRecordset("tblFinancial_Records") Set rst = Me.RecordsetClone rst.MoveLast R = rst.RecordCount rst.MoveFirst For i = 1 To R rs.AddNew rs!Reg_Date = Me.Reg_Date rs!theYear = Me.theYear rs!Reg_doc_Number = Me.Reg_doc_Number rs!Account = Me.Account rs!Alsenf_ID = rst!Alsenf_ID rs!Creditor = rst!Creditor rs!Debit = rst!Debit rs!Reg_Text = rst!Reg_Text rs!Pay = rst!Pay rs.Update rst.MoveNext Next Set rs = Nothing Set rst = Nothing MsgBox "تم الحفظ", vbInformation, "" DoCmd.SetWarnings False DoCmd.RunSQL "DELETE tblFinalTemp.*, * FROM tblFinalTemp" DoCmd.SetWarnings True Me.Requery Me.Reg_Date = Null Me.theYear = Null Me.Reg_doc_Number = Null Me.Account = Null End Sub Private Sub Form_Open(Cancel As Integer) Me.Reg_Date.SetFocus End Sub Private Sub Form_Unload(Cancel As Integer) DoCmd.SetWarnings False DoCmd.RunSQL "DELETE tblFinalTemp.*, * FROM tblFinalTemp" DoCmd.SetWarnings True End Sub Private Sub Reg_Date_AfterUpdate() Me.theYear = Year(Me.Reg_Date) End Sub ممتازين جدا جدا جدا فهمتم والله جدا احتاج نموذج التعديل واعرف اضيف له غلق التعديل فى يوم 10 من الشهر التالى لمنع التلاعب بالبيانات فقط الادمن يستطيع التعديل والتقارير وهى الغاية المنشودة رمضان كريم عليك وعلى اسرتك الكريمة

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