15-06-16, 05:04 AM
(آخر تعديل لهذه المشاركة : 16-06-16, 03:41 AM {2} بواسطة اسلام الكبابى.)
لدى قاعدة بيانات بها جدول EMPLOYEE به حقل salary
ولدى Adodc1 متصل بهذا الجدول و DataGrid1 متصلة بال Adodc1
وكتبت كودآ للزر DELET بحيث يقوم البرنامج بعد الحذف باعادة ترتيب الأرقام المسلسلة للموظفين
ولكم ألف شكر
ولدى Adodc1 متصل بهذا الجدول و DataGrid1 متصلة بال Adodc1
وكتبت كودآ للزر DELET بحيث يقوم البرنامج بعد الحذف باعادة ترتيب الأرقام المسلسلة للموظفين
فمثلآ اذا كانوا 6 موظفين أرقامهم المسلسلة 1,2,3,4,5,6 وقمت بحذف السجل صاحب الرقم 2
أجد السجلات الخمسة المتبقية أرقامهم المسلسلة 1,2,3,4,5 (لا أجدها 1,3,4,5,6)
فكان يعمل دون أى مشاكل أثناء وجود جملتى الmsgbox التى وضعتهما مؤقتين لنفسى لمتابعة سير خطوات البرنامج لحين الانتهاء من اجراء تجاربى عليه
MsgBox "/////////////", vbOKOnly, "fffffffffff"
فلما حذفت هتين الجملتين من الكود ظهرت رسالة خطأ عند عمل ال RUN
أرجو تصحيح الكود أو تصحيح البرنامج المرفق بأى طريقة
بحيث لا يوجد فى الكود أى جملة MSGBOX
وبحيث يتم اعادة ترتيب الأرقام المسلسلة فى ال DataGrid بعد الضغط على الزرDELET
أجد السجلات الخمسة المتبقية أرقامهم المسلسلة 1,2,3,4,5 (لا أجدها 1,3,4,5,6)
فكان يعمل دون أى مشاكل أثناء وجود جملتى الmsgbox التى وضعتهما مؤقتين لنفسى لمتابعة سير خطوات البرنامج لحين الانتهاء من اجراء تجاربى عليه
MsgBox "/////////////", vbOKOnly, "fffffffffff"
فلما حذفت هتين الجملتين من الكود ظهرت رسالة خطأ عند عمل ال RUN
أرجو تصحيح الكود أو تصحيح البرنامج المرفق بأى طريقة
بحيث لا يوجد فى الكود أى جملة MSGBOX
وبحيث يتم اعادة ترتيب الأرقام المسلسلة فى ال DataGrid بعد الضغط على الزرDELET
ولكم ألف شكر