الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

إعادة الترقيم بعد الحذف ... ورسالة الحفظ .

بدأه bakkar2000 في 7 أكتوبر 2008 · 13 رد · 4,454 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

أخوانى مشرفى وأعضاء المنتدى الكرام كل عام وأنتم بخير

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

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

Write Conflict

This record has been changed by another user since you started editing it.

If you save the record,you will overwrite the changes the other user made.

Copying the changes to the clipboard will let you look at the values the other user entered,and then paste your changes back in if you decide to make changes.

ثم ثلاثة أزرار لـ الحفظ - النسخ فى الـClipboard -إلغاء التغير

فظننت أن العيب فى بعض الأكواد لكنها تعمل جيداً دون ظهور تلك الرسالة فى المثال الذى أنزلته من المنتدى

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

فما الحل لحفظ التغيرات تلقائى وعدم ظهور هذه الرسالة رحمكم الله

#2

ارفق لنا مثال حتي نستطيع مساعدتك واكتشاف الخطأ

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#3

بسم الله الرحمن الرحيم

أخى ..محمد فؤاد أسف على التأخير ولكنها الدنيا وما تأخذ

إليكم المرفق

والطلوب

1) إلغاء أو عدم ظهور الرسالة Write conflict والحفظ التلقائى

2) إعادة الترقيم التلقائى عند الحذف للحقل ID1 فى الجدول Profnam لجميع السجلات

لكم كامل الحرية فى إعادة الأكواد ولكن رجاء أن لا يتم التعديل على الجداول والحقول والروابط لأن باقى البرنامج مبنى عليها

_____________________.rar

خالص شكرى وأمتنانى

#4

اخي الفاضل

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

لا يوجد لديك شيء اسمه ترقيم تلقائي في الجداول كلها عبارة عن حقول رقميه مفهرسة فقط ومرتبطة مع بعضها البعض

كل ما عليك لحذف سجل من النموذج الفرعي بكامل السجلات المرتبطه به هو استبدال هذا الكود

Application.SetOption "Confirm Record Changes", False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

بهذا الكود

Dim strSQL As String
DoCmd.SetWarnings False
strSQL = "DELETE profnam.ID, profnam.ID1, profnam.gg"
strSQL = strSQL & " FROM profnam"
strSQL = strSQL & " WHERE (((profnam.ID)=[FORMS]![ID]![IDA1].[FORM]![ID]))"
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
Me.Requery

بعد الضغط على زر الأمر Delete Test في النموذج الفرعي سيتم حذف السجلات المرتبطه مع السجل بنفس الرقم فقط في النموذج الفرعي ولن تظهر لك رسائل اخطاء

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#5

بسم الله الرحمن الرحيم

سلام الله عليكم أستاذه / زهره ..و أسعد الله أيامك

واضح آنى لم أوفق فى طرح مساعدتى ..أو أن عنوان الموضوع لم يكن معبر ..لا أدرى

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

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

فى المرفق السابق عند وضع المؤشر على آى سجل وليكن الرقم 5 من النموذج المستمر وضغظ الزر حذف سوف يتم حذفه نهائيا

سواء من النموذج المستمر أو الجدول إلى هو profnam فإذا نظرنا للحقل ID1 فى الجدول Profnam نجد أن السجلات أصبحت 1و2و3و4و6

وهذا ما لا أريده ولكن إعاده ترقيم السجلات دون ترك رقم خالى آى إعادة التسلسل

أما بالنسية للأكواد التى تفضلتم بها

فإنها تحذف كل السجلات وليس المؤشر إليه ويتم الحذف فى النموذج الفرعى ولا يتم حذف السجلات من الجدول

وذلك عكس المثال المرفق سابقاً وإليكم المرفق بعد إضافة أكوادكم علية

_______________________.rar

خالص شكرى

#6

بسم الله الرحمن الرحيم

أخى أ / محمد فؤاد

أستاذه / زهره

أرجوا الإفاده والطلب كما ذكرت

1) إلغاء أو عدم ظهور الرسالة Write conflict والحفظ التلقائى

2) إعادة الترقيم التلقائى عند الحذف للحقل ID1 فى الجدول Profnam لجميع السجلات آى إعاده ترقيم السجلات دون ترك رقم خالى آى إعادة التسلسل

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

** الغريب أن أكثر من 100 قارىء للموضوع ولكن لا مجيب ***

خالص شكرى

تم تعديل هذه المشاركة بواسطة bakkar2000 في 17 أكتوبر 2008 في 18:37

#7

بسم الله الرحمن الرحيم

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

كل المطلوب ...

إعادة التسلسل التلقائى للأرقام عند الحذف للحقل ID1 فى الجدول Profnam لجميع السجلات

يعنى لو حذفت السجل 1 للحقل ID1 فى الجدول Profnam تقوم الأكواد التى سوف تضعونها فى زر الحذف بإعاده التسلسل مره أخرى

يعنى قبل الحذف تكون الأرقام فى الحقل ID1 هى مثلاً 1و2و3و4و5

وبعد الضغط على زر الحذف وحذف السجل رقم 1تكون الأرقام 1و2و3و4

يعنى تم حذف السجل واحد ثم إعاده التسلسل

فلو قارنا هذا الطلب فما هو إلا حبه رمل فى ناطحات السحاب التى تفعلونها

خالص شكرى

#8

بسم الله الرحمن الرحيم

أخوانى أعتقد أنه آمر غاية فى السهولة مقارنه بما أراه من إبداعاتكم ... كل المطلوب..

إعادة التسلسل التلقائى للأرقام عند الحذف للحقل ID1 فى الجدول Profnam لجميع السجلات

يعنى لو حذفت السجل 1 للحقل ID1 فى الجدول Profnam تقوم الأكواد التى سوف تضعونها فى زر الحذف بإعاده التسلسل مره أخرى

يعنى قبل الحذف تكون الأرقام فى الحقل ID1 هى مثلاً 1و2و3و4و5

وبعد الضغط على زر الحذف وحذف السجل رقم 1تكون الأرقام 1و2و3و4

يعنى تم حذف السجل واحد ثم إعاده التسلسل للحقل ID1 فقط دون الحقل ID

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

db6.rar

خالص شكرى

#9

قم بإضافة زر امر جديد واعطيه القيمة هذه عند الضعط:

Me.RecordSource = ""
	DoCmd.SetWarnings False
	DoCmd.RunSQL "DROP INDEX ID1 ON profnam;"
	DoCmd.RunSQL "alter table profnam drop  ID1;"
	DoCmd.RunSQL "alter table profnam Add column ID1 autoincrement;"
	DoCmd.RunSQL "CREATE UNIQUE INDEX ID1 on profnam(ID1);"
	DoCmd.SetWarnings True
	Me.RecordSource = "profnam"
#10

بســم الله الـرحمــن الرحيــم

شكراً أخى / virusworld على مجهودك وأسف على التأخر فى الرد نظراً لظروف صحية

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

سوف أقوم بالشرح المصور لعلى أتمكن من إصال طلبى فإلى اللقاء

دمتم فى عز الله

#11

بســم الله الـرحمــن الرحيــم

إليكم أخوانى ما أريده .................

الجدول قبل الحذف

post-148704-1225570819_thumb.png

post-148704-1225570885_thumb.png

post-148704-1225570941_thumb.png

post-148704-1225570964_thumb.png

post-148704-1225570991_thumb.png

post-148704-1225571016_thumb.png

الأكواد التى سوف تكتبونها والخاصه بإعادة التسلسل سوف توضع بمشيئة الله فى زر الحذف

برجاء عدم مساس أكواد زر الحذف والتى تعمل معى بكفاءه عالية إلا إذا دعت الحاجه لذلك

أرجوا الإفاده بارك الله لكم

وإليكم المرفق مره أخرى

_____________________.rar

دمتم فى رعاية الله

تم تعديل هذه المشاركة بواسطة bakkar2000 في 2 نوفمبر 2008 في 23:25

#12

بســم الله الـرحمــن الرحيــم

أخوانى الساده المشرفين .... أكيد هناك فى جعبة أحدكم حل .......!

كل الحكاية إعاده تسلسل الأرقام بعد الحذف.

أرجوا ألا أكون أثقلت عليكم

خالص تقديرى..لكم منا أسمى آيات الإحترام

تم تعديل هذه المشاركة بواسطة bakkar2000 في 2 نوفمبر 2008 في 23:40

#13

بسم الله الرحمن الرحيم

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

وكان تركيذهم على حذف السجلات لا إعاده التسلسل لها بعد الحذف

كل ما أرجوه أن لا يكون عدم الرد ناتج عن خطأ أقترفناه فى حقكم أو أحدكم ..

لذا أرجوا منكم الرد إن كان هناك إجابة لرجائى ..

خالص شكرى

post-148704-1227200339_thumb.png

#14

بسم الله الرحمن الرحيم

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…