اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

معرفة ارقام السجلات المفقودة بين سجلين


علي هندسة

الردود الموصى بها

صديقي العزيز

السلام عليكم : لنضرب مثال

نفرض عندنا جدول يحتوي على 10 سجلات وقد قمنا بحذف السجل رقم 7 

تريد من الكود ان يحسب الاعداد من 1 الى 10 ويخبرنا ان السجل رقم 7 مفقود

هل هذا ما تقصد

رابط هذا التعليق
شارك

7 ساعات مضت, فارس بني هلال said:

صديقي العزيز

السلام عليكم : لنضرب مثال

نفرض عندنا جدول يحتوي على 10 سجلات وقد قمنا بحذف السجل رقم 7 

تريد من الكود ان يحسب الاعداد من 1 الى 10 ويخبرنا ان السجل رقم 7 مفقود

هل هذا ما تقصد

السلام عليكم استاذ فارس بني هلال

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

50 دقائق مضت, kanory said:

بعد اذن اصدقائي : ابو البشر وفارس .... تفضل هذا .....

السلام عليكم استاذ kanory

المرفق لايعمل لدي وشكرا

رابط هذا التعليق
شارك

1 ساعه مضت, kanory said:

الملف يعمل لدي انظر ........ ماهو اصدار الاوفيس ... وهل هناك رسائل خطأ تظر عند تشغيل الملف

السلام عليكم استاذ kanory المحترم

اصدار الاوفيس لدي هو 2007

وتظهر رسالة الخطأ لدي هي كما بالصورة

1.JPG

2.JPG

رابط هذا التعليق
شارك

33 دقائق مضت, علي هندسة said:

السلام عليكم استاذ kanory المحترم

اصدار الاوفيس لدي هو 2007

وتظهر رسالة الخطأ لدي هي كما بالصورة

1.JPG

2.JPG

انت لم تسجل البيانات بالطريقة الصحيحة ( سجل رقم السجل الأول ورقم السجل الأخير ) في مربع النص

اتبع الخطوات الموجودة في الصورة

 

 

 

kanory.jpg

  • Thanks 2
رابط هذا التعليق
شارك

2 ساعات مضت, kanory said:

انت لم تسجل البيانات بالطريقة الصحيحة ( سجل رقم السجل الأول ورقم السجل الأخير ) في مربع النص

اتبع الخطوات الموجودة في الصورة

 

 

 

kanory.jpg

السلام عليكم استاذ kanory مشكورا على اهتمامك 

لقد تم تجربت الطريقة وبنفس الخطوات وانها تعمل على التسلسلات القليلة مثلا بين 1 الى 100 اما اذا جربنا الارقام المرفقة بالمثال ولكثرة عدد السجلات فتظهر رسالة خطا كما بالصور

1.JPG

2.JPG

رابط هذا التعليق
شارك

منذ ساعه, فارس بني هلال said:

تفضل صديقي

التسلسلات المفقودة بدون اكواد

abx.accdb

السلام عليكم استاذنا فارس بني هلال المحترم

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

وكما بالصورة المرفقة 

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

1.JPG

example.rar

رابط هذا التعليق
شارك

9 دقائق مضت, kanory said:

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

استاذنا المحترم kanory

السجلات موجودة ضمن التسلسلات وكما بالصور المرفقة

5.JPG

6.JPG

رابط هذا التعليق
شارك

27 دقائق مضت, علي هندسة said:

ما احتاجه هو عن طريق كود

حسب تجربتي عمود واحد بستوعب على حدود خمسة ملايين سجل تقريبا

نظرا لعدد تسلسلات مفقودة بالملايين عدلت على المثال  تسلسلات مفقودة مسلسلة من الى  و المنفردة نفس رقم المفقود  اضغط على زر "احسب" فقط

abx.accdb

  • Thanks 1
رابط هذا التعليق
شارك

23 دقائق مضت, ابو عارف said:

ما احتاجه هو عن طريق كود

استاذ ابو عارف المحترم

جربت المثال السابق على اوفيس 2007 فانه لايعمل وعلى اوفيس 2010 تظهر هذه الرساله كما بالصورة المرفقة

وهل يمكن تحويلة الى اوفيس 2007

 

1.JPG

رابط هذا التعليق
شارك

41 دقائق مضت, ابو عارف said:

حسب تجربتي عمود واحد بستوعب على حدود خمسة ملايين سجل تقريبا

نظرا لعدد تسلسلات مفقودة بالملايين عدلت على المثال  تسلسلات مفقودة مسلسلة من الى  و المنفردة نفس رقم المفقود  اضغط على زر "احسب" فقط

abx.accdb

شكرا استاذنا الفاضل ابو عارف المحترم

لقد نصبت اوفس 2010 ونسخت الكود ثم مسحت اوفس 2010 ونصبت اوفس 2007 وتم تجربة الكود ونجح المثال

شكر وبارك الله فيك

رابط هذا التعليق
شارك

15 دقائق مضت, علي هندسة said:

ونصبت اوفس 2007 وتم تجربة الكود ونجح المثال

الحمد لله على نجاح تجربة  و بارك الله فيك ايضا.

للاستفسار ، هل عرفت اين كانت مشكلة !! على ما اعتقد سبب المشكله لا علاقة لها باصدارات اوفيس لان الملف اساسا بتنسيق 2007 المشكلة ربما كانت في تسميات ازرار الجديدة ،

و سبب الحل هو مع اعادة تنصيب اوفيس 2007 ربما  اخترت لغة نظام المحلي System local عربيه و حلت المشكلة ، حبذا لو جربت المثال السابق مرة اخرى على اوفيس 2007 دون نسخ اكواد.

و لك مني اجمل تحيات.

 

  • Like 1
رابط هذا التعليق
شارك

4 دقائق مضت, ابو عارف said:

الحمد لله على نجاح تجربة  و بارك الله فيك ايضا.

للاستفسار ، هل عرفت اين كانت مشكلة !! على ما اعتقد سبب المشكله لا علاقة لها باصدارات اوفيس لان الملف اساسا بتنسيق 2007 المشكلة ربما كانت في تسميات ازرار الجديدة ،

و سبب الحل هو مع اعادة تنصيب اوفيس 2007 ربما  اخترت لغة نظام المحلي System local عربيه و حلت المشكلة ، حبذا لو جربت المثال السابق مرة اخرى على اوفيس 2007 دون نسخ اكواد.

و لك مني اجمل تحيات.

استاذي الفاضل ابو عارف لك مني الشكر والامتنان

البرنامج لايفتح على اوفيس 2007 وكما بالصورتين المرفقتين

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

فقمت بنقل الاكواد على اوفس 2007 بعد الغاء تنصيب 2010 اشتغل البرنامج وشكرا لك على مساعدتك

1.JPG

2.JPG

  • Like 1
رابط هذا التعليق
شارك

19 دقائق مضت, ابو عارف said:

الحمد لله على نجاح تجربة  و بارك الله فيك ايضا.

للاستفسار ، هل عرفت اين كانت مشكلة !! على ما اعتقد سبب المشكله لا علاقة لها باصدارات اوفيس لان الملف اساسا بتنسيق 2007 المشكلة ربما كانت في تسميات ازرار الجديدة ،

و سبب الحل هو مع اعادة تنصيب اوفيس 2007 ربما  اخترت لغة نظام المحلي System local عربيه و حلت المشكلة ، حبذا لو جربت المثال السابق مرة اخرى على اوفيس 2007 دون نسخ اكواد.

و لك مني اجمل تحيات.

استاذي الفاضل هل ممكن عمل زر لنقل السجلات المفقودة الى اكسل

رابط هذا التعليق
شارك

20 ساعات مضت, علي هندسة said:

استاذي الفاضل هل ممكن عمل زر لنقل السجلات المفقودة الى اكسل

نعم ممكن ان شاء الله 

اليك المثال  ، بعد ضغط على زر الثالث ستجد ملف اكسل او csv اذا حبيت بتنسق آخر ، غير  csv الى xls او txt او doc في سطر التالي

Outfile = CurrentProject.Path & "\LostRecords.csv"

abx.accdb

  • Thanks 1
رابط هذا التعليق
شارك

1 ساعه مضت, ابو عارف said:

نعم ممكن ان شاء الله 

اليك المثال  ، بعد ضغط على زر الثالث ستجد ملف اكسل او csv اذا حبيت بتنسق آخر ، غير  csv الى xls او txt او doc في سطر التالي

Outfile = CurrentProject.Path & "\LostRecords.csv"

abx.accdb

شكرا استاذنا ابو عارف المحترم

وهو المطلوب كود رائع من استاذ رائع

لكني اطمع في المزيد وكيف لا وهذه الاكواد الجميلة (هل يمكن ان اختار مكان حفظ الملف اعلاه وشكرا)

رابط هذا التعليق
شارك

2 ساعات مضت, ابو عارف said:

شكر لله 

حاضر ، على قدر مستطاع ان شاء الله 

تقصد مكان حفظ الملف مكان غير مسار قاعدة ؟

نعم استاذ ابو عارف

يتم فتح نافذه لاختيار مكان الحفظ اشبه بالصورة المرفقة وشكرا

1.JPG

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information