برنامج تخزين وسؤال مهم

شكرا كتيير يا the student....

أنا أستخدم الأمر هذا

 a4.Delete

'أمر الإنتقال

a4.MoveNext

If a4.EOF Then

Beep

a4.MoveLast

ElseIf a4.RecordCount = 1 Then

MsgBox "أضف البيانات أولاً ", vbInformation, "خطأ"

End If

والله يوفقك وان شاء الله اكون افدتك

أخي الكريم

أنا أستخدم هذا الكود في حذف السجل

Dim x As Integer

x = MsgBox("هل انت متأكد انك تردي الحذف؟؟", vbYesNo + vbQuestion + vbDefaultButton2)

If x = 6 Then

On Error Resume Next

Data1.Recordset.Delete

Data1.Recordset.MoveNext

Data1.UpdateRecord

End If

ولكن المشكله كألاتي

أني وضعت label وظيفته عرض رقم السجل وقمت بربطه ب حقل الاكسس المسمي ب الرقم التلقائي الي هذا كان كل شيء تمام والحفظ والتعديل والتنقل بين السجلات كل شيء يسير علي ما يرام ولكن عندما أردت أن أحذف سجل من وسط سجلات فأن الارقام لم تبقي متسلسله كما كانت يعني كان عندي 3 سجلات سجل الكود الاول ورقمه التلقائي 1 وسجل الكود الثاني ورقمه التلقائي 2 وسجل الكود الثالث ورقمه التلقائي 3 وقمت بحذف السجل رقم 2 ولكن هنا ظهرت bug وتم الحذف بنجاح ولكن عندم أتيت لاتنقل بين السجلات رأيت السجل رقم 1 عادي جدا ورأيت السجل الذي قمت بحذفه لقيت مكانه فاضي وتنقلت للسجل الثالث فوجدته كما هو لم يتغير .

كل المطلوب هو كيف يمكنني بعد حذف السجل رقم 2 أن يتحول رقم السجل(3) الي رقم 2 الامر الطبيعي نتيجه حذف السجل رقم 2

أسف للأطاله ولكن المثال قد أرفقته ولبيان الموضوع فقط شغل البرنامج واحذف السجل رقم 2 وتنقل ليتضح كلامي

لقد وجدت الحل في مثال وضعه احد الاخوه وقد ارفقته في المرفقات وهو مثال مبسط للمبتدئين عن التعامل مع قواعد البيانات ( أستعراضها وحذفها الخ )

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

وشكرا (f)

navigation.zip