كود تحديث

يا اخوان 12 مشاهد ما في رد واحد ارجوكم ساعدوني

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

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

db2.rsg1.MoveFirst

اتمنى مثل هذا الكود لكن يتعلق بالداتا قريد

الفكره في مجملها بسيطه

ان لكل شخص 10 ايام في العام الواحد

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

02 اذا اخذ 5 ايام وتبقى له 5عند البحث يخبرني بان بقي له خمسة ايام وهذه ايضاً ليست مشكله

03 المشكله تكمن في انني عندما ابحث عن شخص ماء واجد انه تبقى له رصيد خمسة ايام مثلاً اضيف الخمسة ايام التي تبقت له من رصيده ولكن اذا رغبت ان ابحث عن شخص اخر لايقبل ولا بد ان اخرج من البرنامج ثم ادخل وابحث وهذا فيه صعوبه خاصه عندما يكون عندي عدد كبير من الطلبات

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

هذه ملخص فكرتي واسف على ازعاجكم

معقوله يا اخوان السؤال صعب لهذه الدرجه

عموماً ارفقت ملف امل ان اجد من يساعدني فقط ارغب كود للتحديث حيث انني بعد اضافة سجل لا استطيع العوده لاول سجل الا بعد خروجي من البرنامج وهذا بالنسبة لي صعب

g.rar

مسا الخير

يا اخي لا صعب ولا شيئ بس بتلاقي الشباب والصبايه مشغولين وما بفوتو الموضع الخاص بيك على العموم

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

db2.refresh

حط هاي الجمله بعد الاب ديت تعت الحفظ

بيعمل تحديث للسجلات الموجوده في جدول قاعده البيانات

db2 اسم اداه قاعده البيانات الي انتا سميتها بهذا الاسم

واي استفسار ان شاء بنكون حاضرين

الكود لم ينجح معي

امل ان تساعدني اخي الكريم عن طريق الملف المرفق

ولك خالص التحيه وعظيم التقدير والامتنان

السلام عليكم

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

db2.Recordset.Update

إذا نجح أخبرني :)

شكراً لك على المساعده ولكن لم ينجح

أخي هذه طريقة لتحديد آخر صف من Data Grid "ليست طريقتي و لكن أعتقد أنها ربما تنجح"

لكن بإستعمال Currency Manager كالآتي:

Dim cm As CurrencyManager
cm = CType(Me.BindingContext(DataGrid1.DataSource), CurrencyManager)
cm.Position = cm.Count - 1

فقط غير DataGrid1 إلى اسم DataGrid المثال الذي تعمل عليه

إذا لم تعمل أخبرني

شكرا