منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كيف يمكن انزال تسلسل دفعة واحدة بعدد السجلات الموجودة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
اخواني الاعزاء
عتدي قاعدة بيانات فيها جدول table1
وفيها حقلان  الاسم    والحقل الثاني   التسلسل
كيف يمكن انزال تسلسل رقمي دفعة واحدة امام الاسماء
ارفقت تطبيق
فيه فكرة مشابهة لتوضيح المقصود
مع تحياتي للجميع
وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , وأرجو المعذره على التأخير بالرد وذلك بسبب الإنشغال , أخي الكريم إذا لاتريد أن تفتح سجلات جديدة عند النقل لابد لك من التعديل بدلا عن الإضافة لأن كلمة insert into هي لإضافة جديد في الجدول أما كلمة update هي للتعديل والتعديل هو حل مشكلتك لكن للأسف التعديل لا يقبل تعديل حقل معين بمجموعة قيم وإنما فقط يسمح بقيمة واحدة فقط تعدل بها قيمة الحقل السابقة , أعتقد أنك تريد إعادة ترتيب أرقام التسلسل في الحقل دفعة واحدة وفي جملة تعديل واحدة بدون حلقة تكرارية For أو Do وأعتقد هذا لايمكن تطبيقه إلا بإمكانية إستخدام دوال معرفة يمكن إستخدامها في جملة التعديل وهذا غير مسموح في بيئة الفيجول بيسك6 ولكن في بيئة الـ VBA داخل الأكسس ممكن عمل ذلك , لذلك ما يمكنك عمله لإعادة ترتيب أرقام الحقل هو حلقة تكرارية كما وضعت أنت في مثالك المرفق وقد وضعت لك الكود الكود الخاص بحفظ الأرقام المتسلسلة في الحقل .
(27-08-19, 12:51 AM)Ahmed_Mansoor كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , وأرجو المعذره على التأخير بالرد وذلك بسبب الإنشغال , أخي الكريم إذا لاتريد أن تفتح سجلات جديدة عند النقل لابد لك من التعديل بدلا عن الإضافة لأن كلمة insert into هي لإضافة جديد في الجدول أما كلمة update هي للتعديل والتعديل هو حل مشكلتك لكن للأسف التعديل لا يقبل تعديل حقل معين بمجموعة قيم وإنما فقط يسمح بقيمة واحدة فقط تعدل بها قيمة الحقل السابقة , أعتقد أنك تريد إعادة ترتيب أرقام التسلسل في الحقل دفعة واحدة وفي جملة تعديل واحدة بدون حلقة تكرارية For أو Do وأعتقد هذا لايمكن تطبيقه إلا بإمكانية إستخدام دوال معرفة يمكن إستخدامها في جملة التعديل وهذا غير مسموح في بيئة الفيجول بيسك6 ولكن في بيئة الـ VBA داخل الأكسس ممكن عمل ذلك , لذلك ما يمكنك عمله لإعادة ترتيب أرقام الحقل هو حلقة تكرارية كما وضعت أنت في مثالك المرفق وقد وضعت لك الكود الكود الخاص بحفظ الأرقام المتسلسلة في الحقل .
السلام عليكم اخي احمد
تحياتي لك واقدم لك خالص الشكر والتقدير واسال الله تعالى ان يوفقك دنيا واخرة ويقضي جميع حوائجك  واسال الله ان يرحم ويعافي والديك دنيا واخرة
ماتكرمت علي في التعديل هو المطلوب الذي ابحث عنه
اجدد شكري لك والكلمات تقصر عن شكرك وابلغ الكلام الدعاء لك في ظهر الغيب بالخير والبركة
تحياتي لك
(27-08-19, 11:24 AM)gonm64 كتب : [ -> ]
(27-08-19, 12:51 AM)Ahmed_Mansoor كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , وأرجو المعذره على التأخير بالرد وذلك بسبب الإنشغال , أخي الكريم إذا لاتريد أن تفتح سجلات جديدة عند النقل لابد لك من التعديل بدلا عن الإضافة لأن كلمة insert into هي لإضافة جديد في الجدول أما كلمة update هي للتعديل والتعديل هو حل مشكلتك لكن للأسف التعديل لا يقبل تعديل حقل معين بمجموعة قيم وإنما فقط يسمح بقيمة واحدة فقط تعدل بها قيمة الحقل السابقة , أعتقد أنك تريد إعادة ترتيب أرقام التسلسل في الحقل دفعة واحدة وفي جملة تعديل واحدة بدون حلقة تكرارية For أو Do وأعتقد هذا لايمكن تطبيقه إلا بإمكانية إستخدام دوال معرفة يمكن إستخدامها في جملة التعديل وهذا غير مسموح في بيئة الفيجول بيسك6 ولكن في بيئة الـ VBA داخل الأكسس ممكن عمل ذلك , لذلك ما يمكنك عمله لإعادة ترتيب أرقام الحقل هو حلقة تكرارية كما وضعت أنت في مثالك المرفق وقد وضعت لك الكود الكود الخاص بحفظ الأرقام المتسلسلة في الحقل .
السلام عليكم اخي احمد
تحياتي لك واقدم لك خالص الشكر والتقدير واسال الله تعالى ان يوفقك دنيا واخرة ويقضي جميع حوائجك  واسال الله ان يرحم ويعافي والديك دنيا واخرة
ماتكرمت علي في التعديل هو المطلوب الذي ابحث عنه
اجدد شكري لك والكلمات تقصر عن شكرك وابلغ الكلام الدعاء لك في ظهر الغيب بالخير والبركة
تحياتي لك

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

أهلا بك أخي الكريم, اللهم آمين وإياك و والديك الله يتقبل إن شاء الله , بارك الله فيك أخي الكريم وجزاك الله كل خير على كلماتك الطيبه ودعواتك الرائعه شكرا جزيلا لك , أرجو من الله لك دوام التوفيق والنجاح والسعاده .
السلام عليكم اخ احمد 
الدالة السابقة في انزال التسلسل استخدمت فيها  داتا كنترول
كيف نستفيد منها اذا في حالة استخدام مكتبة اكتف داتا   


If Rs.State = 1 Then Rs.Close   
Rs.Open "table1", dB, adOpenStatic, adLockPessimistic
وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , تم تعديل المثال .