كود نقل سجل محدد من جدول الى اخر

[النهر العطشان]

السلام عليكم 

احتاج الى كود يقوم بنقل سجل واحد يتم تحديده بكتابة رقم (ID) للسجل في (Text0) فيقوم بنقله من جدول (Students) الى جدول (Team) عند الضغط على زر (نقل).

وشكرا

 

test 10.rar

[ابو ياسين المشولي]

31 دقائق مضت, النهر العطشان said:

السلام عليكم 

احتاج الى كود يقوم بنقل سجل واحد يتم تحديده بكتابة رقم (ID) للسجل في (Text0) فيقوم بنقله من جدول (Students) الى جدول (Team) عند الضغط على زر (نقل).

وشكرا

 

test 10.rar

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

[النهر العطشان]

استاذي الفاضل نسخ السجل 

اي الابقاء عليه في الجدول الاول

تم تعديل سبتمبر 29, 2018 بواسطه النهر العطشان

[ابو ياسين المشولي]

7 دقائق مضت, النهر العطشان said:

استاذي الفاضل نسخ السجل 

اي الابقاء عليه في الجدول الاول

اتفضل ضع هذا للكود في حدث 

DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, class, Degree ) " & vbCrLf & _
"SELECT Students.ID, Students.Fullname, Students.tel, Students.Degree, Students.Degree " & vbCrLf & _
"FROM Students " & vbCrLf & _
"WHERE (((Students.ID)=[Forms]![Form]![Text0]));"

 

[النهر العطشان]

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

تم نقل السجل باستثناء حقل (class) فهو عبارة حقل اختيارات

وهل يمكن ان تتم العملية بدون ظهور اي الرسالة ويتم تفريغ ال (Text0) بعد عملية النقل وشكرا

تم تعديل سبتمبر 29, 2018 بواسطه النهر العطشان

[ابو ياسين المشولي]

11 دقائق مضت, النهر العطشان said:

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

هل يمكن ان تتم العملية بدون ظهور اي الرسالة ويتم تفريغ ال (Text0) بعد عملية النقل وشكرا

اتفضل

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, class, Degree ) " & vbCrLf & _
"SELECT Students.ID, Students.Fullname, Students.tel, Students.Degree, Students.Degree " & vbCrLf & _
"FROM Students " & vbCrLf & _
"WHERE (((Students.ID)=[Forms]![Form]![Text0]));"
DoCmd.SetWarnings True
Me.Text0 = ""

 

[النهر العطشان]

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

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

تم نقل السجل باستثناء حقل (class) فهو عبارة حقل اختيارات .

وشكرا

[ابو ياسين المشولي]

نعم

لانك انت عامل الحقل من جدول وجاعله استعلام

باقي شي بعمله لك

انه لا يكرر النقل

انت لو عملت نقل مرة اخرى سوف ينقله

وهذا غير صحيح

جرب اعمل مرة او مرتين وقولي هل تريده لا يتكرر

[النهر العطشان]

 استاذ ابو ياسين المشولي المحترم

هل يمكن التعديل على الكود بحيث يقبل نقل حقل (class) على الرغم من اني  عامل الحقل من جدول وجاعله استعلام فاني احتاج ان يكون عباره عن حقل اختيارات .

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

وشكرا

 

[ابو ياسين المشولي]

هذا لا يكرر السجل

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, Degree, class ) " & vbCrLf & _
"SELECT Students.ID, Students.Fullname, Students.tel, Students.Degree, Students.class " & vbCrLf & _
"FROM Students " & vbCrLf & _
"WHERE (((Students.ID)=[Forms]![Form]![Text0])) AND (((Students.ID) Not In (SELECT [Team].[ID] " & vbCrLf & _
"FROM [Team]; " & vbCrLf & _
")));"
DoCmd.SetWarnings True
Me.Text0 = ""


اما بالنسبه للصف سوف احاول فيه

 

[النهر العطشان]

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

وانا في انتظار اجابتك ان شاء الله

 

 

[ابو ياسين المشولي]

10 دقائق مضت, النهر العطشان said:

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

وانا في انتظار اجابتك ان شاء الله

 

 

اخي الكريم

رجعه من رقم الى نص فقط وتنهي المشكله

اتفضل هذا حسب طلبك كامل

test 10.rar

تم تعديل سبتمبر 29, 2018 بواسطه ابو ياسين المشولي

[النهر العطشان]

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

بارك الله فيك

تم

 

 

 

[ابو ياسين المشولي]

الان, النهر العطشان said:

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

بارك الله فيك

تم

 

 

 

العفو اخي الله يجعلها دعوه مستجابه ولك بالمثل

[النهر العطشان]

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

لقد افادني الكود الذي تفضلت به كثيرا 

لكن من باب المعرفة عندما سألتني (الرجاء توضيح اكثر تريد حذف السجل من الجدول الاول ام الابقاء عليه فقط الحاق الى الجدول الاخر) 

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

زادك الله في العلم والمعرفة درجة فوق درجتك .

وشكرا

 

 

 

[ابو ياسين المشولي]

19 دقائق مضت, النهر العطشان said:

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

لقد افادني الكود الذي تفضلت به كثيرا 

لكن من باب المعرفة عندما سألتني (الرجاء توضيح اكثر تريد حذف السجل من الجدول الاول ام الابقاء عليه فقط الحاق الى الجدول الاخر) 

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

زادك الله في العلم والمعرفة درجة فوق درجتك .

وشكرا

 

 

 

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

اليك الكود بما طلبت

حذف ونقل

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, Degree, class ) " & vbCrLf & _
"SELECT Students.ID, Students.Fullname, Students.tel, Students.Degree, Students.class " & vbCrLf & _
"FROM Students " & vbCrLf & _
"WHERE (((Students.ID)=[Forms]![Form]![Text0]));"
 DoCmd.RunSQL "DELETE Students.ID, Students.Fullname, Students.tel, Students.Degree, Students.class " & vbCrLf & _
"FROM Students " & vbCrLf & _
"WHERE (((Students.ID)=[Forms]![Form]![Text0]));"
DoCmd.SetWarnings True
Me.Text0 = ""

 

[النهر العطشان]

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

كود رائع من استاذ رائع

شكرا لك جعلها الله في ميزان حسناتك .

 

 

 

[ابو ياسين المشولي]

12 دقائق مضت, النهر العطشان said:

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

كود رائع من استاذ رائع

شكرا لك جعلها الله في ميزان حسناتك .

 

 

 

بارك الله فيك وانت الاروع اخي