كيف انقل سجل من جدول الى اخر مع امكانية اعادته حيث كان ؟؟؟

بالنسبه للسؤال الثاني :

لكتابة ارقام فقط في مربع نص ضع في حدث Textbox التالي:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii <> 8) And (KeyAscii < 48 Or KeyAscii > 57) Then KeyAscii = 0
End Sub

وبالنسبة لتحديد طول الحروف المدخله ضع في خاصية الــ TextBox التالي :

Private Sub Form_Load()
Text1.MaxLength = 10
End Sub

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

RecordCount

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

اخي انا كنت ناوي احاول الاجابة على الاسئلة ولكن الاخ العزيز العقده سبقني :D

فسأجيبك على السؤال الاول :

بالنسبة لنقل سجل من جدول الى اخر فستتم عن طريق RS1 & RS2

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

والثاني يفتح الجدول الثاني المراد النقل إليه

وعند النقل نستخدم كود كالتالي

RS2.Addnew
RS2("Temp") = RS1("Name")
RS2.Update
RS1.Delete

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

وبالتالي ستكون السجلات مثلا بهذا الترتيب لو فرضنا ان السجل المنقول هو رقم 3

1
2
4
5

وعند استعادة السجل الى الجدول الاساسي نقوم بعكس العملية السابقة أولا :

RS1("Name") = RS2("Temp")
RS1.Update
RS2.Delete

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

اولا سيكون الترتيب كالتالي

1
2
4
5
3

ولترتيب السجلات نضع الكود التالي

Dim x As Double
RS.MoveFirst
x = 1
Do While Not RS.EOF
RS("PersonID") = x
RS.MoveNext
x = x + 1
Loop
MsgBox "تم اعادة السجل بنجاح"

وبهذا يتم عمل المطلوب ان شاء الله

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

بالتوفيق

=================

الى اللقاء

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

جزاك الله خير

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

بفضله سبحانه ثم بفضلك اخي العزيز

ماقصرتوا اخواني جزاكم الله الف خير وجعله بموازين اعمالكم يوم الحساب

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

ادام الله هذا المنتدى لنا وادام القائمين عليه وكل من فيه

جزاكم الله كل خير