Eng.Qassim

انظر للمرفق استاذ احمد جعلت الفاتورة باستلام جزء من المبلغ وعرض تقريرها مع تقرير لكل المديونية بدون تجميع حسب اسم الزبون لانك واضع حقل التاريخ اما الجدول الثالث فيمكنك عمله كوصل قبض من الزبائن test(2).accdb

الف مبروك استاذ موسى ولو متاخرة لان كان عتدي دورة ترقية ومشغول بها المزيد من العطاء والمثابرة

من other Modal= yes

لو ترفع الملف على نسخة اقدم

وعليكم السلام ولماذا انت مستعجل هكذا .. اطبع الفاتورة ثم اذهب لفاتورة جديدة

جرب هذا الملف lessons.accdb

كل عام وانت بالف خير @ابو جودي العزيز

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

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

حسب فهمي لسؤالك انك تحتاج الى استعلام جدولي

تفضل استاذ احمد..والله يعين الجدول على هذا الحقل المحسوب الدرجه.accdb

لا اعتقد انها مفيدة في هذا المثال .. والافضل منها دالة switch

تحتاج الى 22 iif وهذه الطريقة متعبة المبرمجون المحترفون لا يحبذون الرقم المحسوب ي الجدول

🤣نحتاج بخور من العين

مشاركة مع اخي ازهر قاعدة بيانات.rar

اعتقد اني فهمتك الان يحتاج فقط في تسلسل عمل الاكواد غيرها كما يلي DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE tb1 SET tb1.[الشهر] = [forms]![form]![الشهر]" DoCmd.SetWarnings True Dim sql As String sql = "DELETE tb2.* FROM tb2;" DoCmd.SetWarnings (warningsoff) DoCmd.RunSQL (sql) DoCmd.SetWarnings (warningson) DoCmd.SetWarnings False DoCmd.OpenQuery "Q10" DoCmd.SetWarnings True Me.Requery

عذرا التبس علي الامر انظر للمرفق test1(1).accdb عملك في البداية كان صحيح ..لكن كان يجب ان تبقي التركيز على حقل الشهر قبل تنفيذ الاستعلام لانه سيغير جميع الاشهر في السجلات

تفضل test1(1).accdb

لدي سؤال استاذ @Ahmed_J اذا اردت ان تقوم بترفيع شخص ما ..من معاون مهندس الى مهندس في شهر اذار ..فلماذا تقوم بمسح جميع السجلات في TB1 ومن ثم الحاقها جميعا الى الجدول TB2 وجميعها تاخذ نفس الشهر مع العلم ان الالحاق يخص شخصا واحد لا اعلم فربما لديك وجهة نظر مختلفة

استاذ @مازن الحسيني انظر للربط بدون حذف القديم بعد التعديل - 1.accdb

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

استخدم الدالة Round مثلا (12.55,1) Round النتيجة : 12.6

بعد كتابة االكود اعمل تحديث me.Requey

وعيلكم السلام يمكنك ذلك من حدث Not In List ONالخاص بمربع التحرير ضع الكود االتالي وجرب النتيجة ... Private Sub customerName_NotInList(NewData As String, Response As Integer) Dim dbsOrders As DAO.Database Dim rstCustomer As DAO.Recordset Dim intAnswer As Integer On Error GoTo ErrorHandler intAnswer = MsgBox("اضافة " & NewData & "الى قائمة الزبائن?", _ vbQuestion + vbYesNo) If intAnswer = vbYes Then Set dbsOrders = CurrentDb Set rstCustomer = dbsOrders.OpenRecordset("tblCustomer") rstCustomer.AddNew rstCustomer!customerName = NewData rstCustomer.Update Response = acDataErrAdded ' Requery the combo box list. Else Response = acDataErrDisplay ' Require the user to select ' an existing Customer. End If rstCustomer.Close dbsOrders.Close Set rstCustomer = Nothing Set dbsOrders = Nothing Exit Sub ErrorHandler: MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description End Sub

وعليكم السلام