يرجى التعديل أو الإضافة على الكود عند التنقل بين السجلات فى نموذج

[أحمد العيسى]

السلام عليكم ورحمة الله وبركاته

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

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

 

 

db1.mdb

تم تعديل منذ 11 ساعات بواسطه أحمد العيسى

[Foksh]

وعليكم السلام ورحمة الله وبركاته 🤗..

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

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

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

[أحمد العيسى]

13 دقائق مضت, Foksh said:

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

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

بالمناسبة .. لك الفضل الكبير فى حل مثل تلك المشكلة فى قاعدة بيانات المدرسين ، فهما متشابهان إلى حد كبير

أتوقع أن يكون الحل على يديك بإذن الله

[Foksh]

الفضل لله عز وجل على نعمه أخي الكريم ..

طيب بما إنك لا تريد تغيير اسلوبك ومستغني عن إضافة عدد حقول قليل في جدولك ، حاول استدعاء حدث بعد التحديث لمربع نص الرقم القومي بعد موافقة المستخدم على حذف السجل .. يعني كإنك رجعت كتبت الرقم القومي مرة تانية ولكن باستدعاء الأمر فقط 😁 

ومع إني غير مقتنع بالفكرة ولكن حتى تظبط أمورك 😅 .

[أحمد العيسى]

19 دقائق مضت, Foksh said:

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

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

ممكن التعديل بالمرفق ؟

تم تعديل منذ 10 ساعات بواسطه أحمد العيسى

[Foksh]

9 دقائق مضت, أحمد العيسى said:

ممكن التعديل بالمرفق ؟

في زر الحذف :-

Private Sub Cmdel_Click()
On Error GoTo Err_Cmdel_Click
   If MsgBox(":ستقوم الآن بحذف السجل المسجل بملف رقم" & vbCrLf _
   & vbCrLf _
   & [Nr] & "        " & vbCrLf _
   & [Name_S] & vbCrLf _
   & " " & vbCrLf _
   & "هل أنت متأكد ؟" & vbCrLf _
   & "أضغط ( نعم ) للإستمرار  ، أو ( لا ) لإلغاء الأمر", vbQuestion + vbYesNo _
   + vbMsgBoxRight, "تحذيـــر") = vbYes Then
   Me.Recordset.Delete
   Me.Recordset.MoveNext
   National_Nr_AfterUpdate ' فقط هذا السطر ما تم اضافته
   End If
Exit_Cmdel_Click:
Exit Sub
Err_Cmdel_Click:
    MsgBox Err.Description
    Resume Exit_Cmdel_Click
End Sub

 

db1.mdb

[أحمد العيسى]

هذا ما فعلته قبل الإطلاع على تعديل حضرتك بالمرفق

وحصلت على هذه الرسائل

[Foksh]

30 دقائق مضت, أحمد العيسى said:

هذا ما فعلته قبل الإطلاع على تعديل حضرتك بالمرفق

وحصلت على هذه الرسائل

انت متأكد انك اشتغلت على زر الحذف ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

لأني جربت على سجلات كثيرة ولم تظهر لي الرسالة التي ارفقتها .. ولا اعرف كيف أو أين ظهرت معك !!

 

[أحمد العيسى]

نعم كل هذا صحيح ، ما عدا حذف السجل الأخير فى القاعدة

هنا تظهر المشكلة

حاولت مبدئياً إدخال التعديل على هذا الكود وجاري التجربة على السجلات الأخير أو إنشاء سجل جديد

Private Sub Cmdel_Click()
On Error GoTo Err_Cmdel_Click
   If MsgBox(":ستقوم الآن بحذف السجل المسجل بملف رقم" & vbCrLf _
   & vbCrLf _
   & [Nr] & "        " & vbCrLf _
   & [Name_S] & vbCrLf _
   & " " & vbCrLf _
   & "هل أنت متأكد ؟" & vbCrLf _
   & "أضغط ( نعم ) للإستمرار  ، أو ( لا ) لإلغاء الأمر", vbQuestion + vbYesNo _
   + vbMsgBoxRight, "تحذيـــر") = vbYes Then
   Me.Recordset.Delete
   Me.Recordset.MoveNext
    
    'هذه الإضافة تحقق المرجو منها ولكن أشعر بتكرار الأكواد
    Me.D.Value = ""
    Me.m.Value = ""
    Me.y.Value = ""
    Me.gender.Value = ""
    Me.Mohaftha.Value = ""
    GetStrat
  '
   End If
Exit_Cmdel_Click:
Exit Sub
Err_Cmdel_Click:
    MsgBox Err.Description
    Resume Exit_Cmdel_Click
End Sub

 

[أحمد العيسى]

تم التجربة بالتعديلات كما فى الكود السابق على السجلات الداخلية والأخيرة وإنشاء سجل جديد

لا بأس

لكن كما ذكرت أشعر بأن الأكواد تم تكرارها فى كل مكان .. إن كان هناك أفضل لن أمانع 😀

تم تعديل منذ 9 ساعات بواسطه أحمد العيسى

[Foksh]

نعم ، فهمت المشكلة ,,

استدعي الدالة GetStrat بدلاً من السطر الذي تم اضافته باستدعاء حدث بعد التحديث لمربع نص الرقم القومي