Eng.Qassim

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

مشاركة مع اخي ازهر قاعدة بيانات.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

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

باللتاكيد استاذ @SEMO.Pa3x...لكن يجب الاخذ بنظر الاعتبار ان ليس كل الزبائن لديهم حاسبات بمواصفات عالية دائما اقرا في المواقع الاجنبية الاهتمام اولا بسرعة البرنامج عند اختيار الاكواد والله انت اللي تنور الموقع مع اجلالي واحترامي لبقية الزملاء والاساتذة ..وكنت اتمنى من استاذنا العبقري @ابو جودي ان يشاركنا رايه ...مضى فترة على غيابه ..ان شاء الله خير

تفضل 1.accdb

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

انظر للمرفق teatea.accdb

فعلا اخي من اهم المواضيع ..وعلى المبرمج اختبار اكواده على نسخة استاذ جعفر ليرى سرعة البرنامج

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

لا اعلم لماذا النتائج غير دقيقة معي .. رغم ان الاستعلام qry_DSum_Egaza_8 اخذ وقت اطولر

استاذي العزيز جعفر.. حينما احسب عدد السجلات من جدول الرواتب باستخدام Dcount فانه يتاخر بحدود 5 ثواني اما اذا حسبت السجلات في الاستعلام فانها تتاخر بحدود 30 ثانية رغم ان الفرق بين الاول والثاني بحدود 2 مليون ونصف سجل

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

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

من ال Row Source قم باختيار الاستعلام Q_tbl-bb وانزل جميع الحقول ومن ال Format اجعل عدد الاعمدة 8 ثم اختر عرض مناسب لكل عمود تحياتي

فك الضغط عن البرنامج ... ضع كلمة PtrSafe بعد كلمة Declare في الموديول

بالخدمة اخي