abouelhassan

مؤسسة العدل إدارة الحسابات تم بواسطة اسم المستخدم والجانب الآخر التاريخ فى اعلى يمين التقرير خالص تحياتي وتقديري لحضرتك

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

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

تفضل أن شاء الله طلبك 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 من الشهر التالى لمنع التلاعب بالبيانات فقط الادمن يستطيع التعديل والتقارير وهى الغاية المنشودة رمضان كريم عليك وعلى اسرتك الكريمة

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

تمام يسر الله امرك يا رب نوع الحساب مدين أو دائن عند ادخال المبلغ يكون هناك مكانين مدين أو دائن احترامي

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

فشلت اخى

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

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

جارى العمل اخى

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

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

سأكتب لك الكود الذى استخدمه عله يفيدك Private Sub Form_Load() DoCmd.Maximize Me.Main_iDate.SetFocus If myCheckUser = "modeer" Then Exit Sub Else كل ما هو غير الادمن اكتب بجواره false 'DellOll.Visible = False 'Command169.Visible = False 'ÃãÑ171.Visible = False T1.Visible = False L1.Visible = False End If End Sub