mohamed_ets

عند تنفيذ الكود يتم تننفذه ولكن تظهر نفس الرسالة السابقة ولكن عدد السجلات التى لم تأخذ رقم القسط قل كثيرا إلى 389 سجل من 10670 سجل . . هل هناك حل ليتم تنفيذ الكود على كل السجلات خاصة ان عدد السجلات هذه قد يتضاعف مرتين أو ثلاثة وقد يصل عدد السجلات إلى خمسين ألف سجل . . بارك الله فيكم ورفع الله قدركم Database12mar.rar

شكرا وجزاك الله خير اخونا الكريم . . بهذا الكود تقريبا 177 سجل لم يتم ترقيم الاقساط وأرفق لك البيانات فى ملف اكسيل به الكود وتاريخ السداد . . وفقك الله أخى الكريم وكل كلمات الشكر لا توفيك قدرك وجهدك معى . Book1.xlsx

شكر لاستاذنا / ابوخليل وجعله الله فى ميزان حسناتك فقد أرهتقك كثيرا . . الكود فعلا يعمل تمام وبكفاءة والنتائج صحيحة بنسبة 100 % ولا تظهر الرسالة السابقة ويتم ترقيم الاقساط. ولكن نفس المشكلة تقريبا أن 1200 سجل الاخيرة لا يعمل عليها الكود أى لا يتم ترقيم الاقساط . ملحوظة : لقد قمت بسخ 7000 سجل فقط من العشرة آلف واشتغل الكود وتم ترقيم الاقساط فى جميع السجلات كلها , ملحوظة : لقد قمت بسخ 9000سجل فقط من العشرة آلف واشتغل الكود وتم ترقيم الاقساط فى جميع السجلات كلها , عندما انسخ السجلات انسخ ألف ألف ولكن المشكلة بعد 9000 آلف !!!!!!! ولكن عند نسخ 10000 عشرة آلف سجل تقريبا اخر الفين لا يتم ترقيم أقساط للسجلات . . . . . . . هل المشكلة تكمن فى عدد السجلات ؟ ؟ ؟ ؟ !!!!!!

هذا الموضوع قد صرحته سابقا على الموقع وقام اساذتنا الكرم بحل المشكلة وهى ترتيب الاقساط الاول والثانى والثالث . . حسب تاريخ الاذن وتاريخ السداد والاستاذ ابوخليل مشكورا صمم هذا الكود ويعمل بكفاءة ولكن عند نسخ السجلات تقريبا عشرة آلاف سجل لا يطبق الكود على آخر 2000 سجل تقريبا Private Sub zer1_Click() Dim rs As DAO.Recordset Dim i, x As Integer Dim r As String Set rs = CurrentDb.OpenRecordset("SELECT Sheet1.cod, Sheet1.nname,Sheet1.num ,Sheet1.mesaha , Sheet1.na_id , Sheet1.date_sdad fROM Sheet1 ORDER BY Sheet1.nname,Sheet1.na_id , Sheet1.date_ezen,Sheet1.date_sdad ") If rs.RecordCount > 0 Then rs.MoveFirst Else Exit Sub End If rs.MoveFirst r = rs!cod x = 1 Do While Not rs.EOF rs.Edit If rs!cod = r Then rs!num = x x = x + 1 Else x = 1 r = rs!cod rs!num = x x = x + 1 End If rs.Update rs.MoveNext Loop rs.Close: Set rs = Nothing End Sub Database151.rar

اساذتنا الكرام . . الكودد يعلم تمام 100 % وقد جربت هذا الكود فى عدد صغير من السجلات ولكن عند نسخ عدد تجاوز 10000 عشرة آلاف سجل تم تنفيذ الكود على كل السجلات ما عاد تقريبا 200 سجل وتظهر هذه الرسالة ولم اجد لها على المواقع المختلفة غير تغير اعدادت الرجسترى ولكن تظهر نفس الرسالة . وعند نسخ نفس 200 سجل على نفس القاعدة ولكن فارغة يعمل الكود ولكن بدون الرسالة هذه هل لها حل من خلال تجاربكم . . . شكرا استاذتنا الكرام وزاردكم الله من فضله

تم بحمد الله وفضله وبتوجيهاتكم التعديل ولكن بضافة خانة للرقم القومى لتلافى الخطا السابق لترتيب الاقساط. ( للتشابه الاسم مع اختلاف المركز ). ولكم منى كل تحية وتقدير وزادكم الله من فضله وكل عام وانتم بخير بمناسبة النصف من شعبان Database151.rar

السلام عليكم اساتذتنا الكرام . . عذرا على فتح الموضوع مرة اخرى ولكن تلاحظ ان بعض الاقساط قد تكون القسط الثانى أو الثالث ويكرر الكود رقم القسط أى ( قسط 1 اكثر من مرة لنفس الطلب ) تستطيع فهم قصدى من خلال رقم القسط فى أول أربع سجلات وقد ظهر هذا بعد نسخ السجلات فى القاعدة وآمال ان ينال الموضوع اهتمامكم فإنا أطمع فى كرم اخلاقكم واذا امكن تلميح لفهم كود ترقيم الاقساط او اشارة ألى المواضيع المشابهه لفهمه .

السلام عليكم اساتذتنا الكرام . . عذرا على فتح الموضوع مرة اخرى ولكن تلاحظ ان بعض الاقساط قد تكون القسط الثانى أو الثالث ويكرر الكود رقم القسط أى ( قسط 1 اكثر من مرة لنفس الطلب ) تستطيع فهم قصدى من خلال رقم القسط فى أول أربع سجلات وقد ظهر هذا بعد نسخ السجلات فى القاعدة وآمال ان ينال الموضوع اهتمامكم فإنا أطمع فى كرم اخلاقكم واذا امكن تلميح لفهم كود ترقيم الاقساط او اشارة ألى المواضيع المشابهه لفهمه . Database15.rar

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

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

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

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

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

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

الاساتذة الاعزاء كل عام وانتم بخير . . يرجى تحديد القسط الأول والقسط الثانى والثالث لكل كود بناء على تاريخ السداد القسط فإذا تكرر الكود يكون تاريخ السداد القدم هو القسط الاول والتاريخ التالى هو الثانى والتاريخ الاحدث هو القسط الثالث . الرجاء المساعدة وفقكم الله Database14.accdb

تم حل المشكلة وشكرا للمرور الكريم

الرجاء المساعدة فى اعداد التقرير بحيث إذا كان النشاط زراعة يظهر فى التقرير المساحة السهم والقيراط والفدان وأما إذا كان مبانى ولا تظهر السهم والقيراط والفدان فى التقرير وشاكر لحضارتكم الافادة.accdb

بفضل الله ومساعدتكم تم عمل زر للبحث وزر للأحاق ولكن أريد ان يظهر السجل الذى تم الحاقه فى النموذج وذلك لاضافة ملاحظةفعند زيادة السجلات بتظهر السجلات الاولى فى الجدول وسجل الملحق يكون فى الاخر هل يمكم ان يظهر السجل الملحق فى اول الجدول لاضافة الملاحظة وشكرا لكم test.rar

فعلا يقوم يالالحاق ولكن لا يعرضه فى النموذج ويقوم بالالحاق مباشرة واريد الزر لعمل بحث عن السجل ويعرضه فى النموذج واسجل ملاحظة عليه ثم اقوم بالحاق السجل

شكرا جزيلا لحضرتك وجزاك الله خير

المراد عمل زر فى النموذج للبحث عن سجل ثم يقوم بإلحاق السجل لجدول ثانى ثم حذف السجل من الجدول الاول واظهار رسالة تفيد بانه تمت عملية الالحاق للجدول الثانى مع اظهار النموذجين فى نموذج واحد ليظهر فى الجدول الثانى بعد الالحاق

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

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