abouelhassan

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

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

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

تم التنفيذ اخى لى ملحوظة هل اجعل رقم القيد اوتو نمبر شكر وتقدير واحترام من اخيك tables1.accdb

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

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

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

تفضل اخي =AND(ISFORMULA(E1),EVALUATE(E1)="=SUM($A$1:$D$1)") هذه الصيغة تحتوي على الدالة `EVALUATE` التي تقوم بتقييم الصيغة الموجودة في الخلية E1 وتحويلها إلى نص. ثم تتأكد الصيغة الناتجة تساوي الصيغة المطلوبة "=SUM($A$1:$D$1)"، وإذا كانت تساوي سترجع TRUE، وإلا سترجع FALSE.

ممكن توضيح تفصيلي للمطلوب

جرب 1. انتقل إلى القائمة "البيانات" في Excel. 2. اختر "تحقق من صحة البيانات" ثم "قواعد البيانات". 3. في القائمة المنسدلة، اختر "تكوين القاعدة". 4. في مربع الحوار "تكوين قاعدة البيانات"، اختر "صيغة" من القائمة المنسدلة. 5. في مربع الحوار "صيغة"، ادخل الصيغة التالية: =ISFORMULA(E1) `، ثم اختر "موافق". هذه الخطوات ستجعل الخلية E1 تقبل فقط الدوال، وإذا قام المستخدم بإدخال قيمة غير دالة، ستعتبر الخلية فارغة.