نسخ سجل من جدول الى جدول اخر بشرط

[علي هندسة]

السلام عليكم 

ارفق قاعدة بيانات حصلت عليها من موقعكم الوفير بالامثلة والحلول الرائعة

المطلوب فضلا التعديل عليها بتبديل شرط نسخ السجل من جدول (Students) الى جدول (Team) من الشرط الاول الى الشرط الثاني وشكرا

 

exam 1.accdb

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

منذ ساعه, علي هندسة said:

السلام عليكم 

ارفق قاعدة بيانات حصلت عليها من موقعكم الوفير بالامثلة والحلول الرائعة

المطلوب فضلا التعديل عليها بتبديل شرط نسخ السجل من جدول (Students) الى جدول (Team) من الشرط الاول الى الشرط الثاني وشكرا

 

exam 1.accdb

اتفضل

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

 

[علي هندسة]

5 ساعات مضت, ابو ياسين المشولي said:

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

 

اتفضل

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

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

الكود موجود في الملف المرفق وهو من موقعكم الموقر .

الكود يعتمد على (ID) في نقل السجل من جدول (Students ) الى جدول (Team) .

ما احتاجه هو التعديل على الكود بحيث يعتمد على رقم ال (ID) والاسم (Fullname) معاً كشرط في نسخ السجل من جدول (Students ) الى جدول (Team) وكما بالصورة والملف .

وشكرا

exam 1.accdb

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

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

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

الكود موجود في الملف المرفق وهو من موقعكم الموقر .

الكود يعتمد على (ID) في نقل السجل من جدول (Students ) الى جدول (Team) .

ما احتاجه هو التعديل على الكود بحيث يعتمد على رقم ال (ID) والاسم (Fullname) معاً كشرط في نسخ السجل من جدول (Students ) الى جدول (Team) وكما بالصورة والملف .

وشكرا

exam 1.accdb

هذا حسب مافهمت

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

 

[علي هندسة]

4 دقائق مضت, ابو ياسين المشولي said:

هذا حسب مافهمت

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

استاذي الفاضل

الملف المرفق مثال على الكود الاخير 

وعند نسخ السجل الاول يقوم بنقل سجلين معا علماً ان رقم ال (ID) متشابه والاسم (Fullname) مختلف 

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

exam 4.accdb

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

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

استاذي الفاضل

الملف المرفق مثال على الكود الاخير 

وعند نسخ السجل الاول يقوم بنقل سجلين معا علماً ان رقم ال (ID) متشابه والاسم (Fullname) مختلف 

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

exam 4.accdb

هذا ماتم بالفعل

exam 1.accdb

[علي هندسة]

7 دقائق مضت, ابو ياسين المشولي said:

هذا ماتم بالفعل

exam 1.accdb

استاذي الفاضل لازالت المشكلة 

عند تشابه رقم ال (ID) يقوم بنسخ سجلين لانهما يمتلكان نفس الرقم احتاج ان اضع له شرط الاسم مع الرقم للنسخ فيتم نسخ سجل واحد وليس سجلين

وماتم معي نقل سجلين كما بالصورة

 

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

لايمكن هو شرطه الاي دي والمفترض لا يتشابه الاي دي وهذا هو الصح

[علي هندسة]

7 دقائق مضت, ابو ياسين المشولي said:

لايمكن هو شرطه الاي دي والمفترض لا يتشابه الاي دي وهذا هو الصح

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

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

لان الجدول يمثل اكثر من امتحان وقد ياخذ اكثر من طالب التسلسل واحد او اثنان

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

وشكرا

[علي هندسة]

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

  53 دقائق مضت, ابو ياسين المشولي said:

لايمكن هو شرطه الاي دي والمفترض لا يتشابه الاي دي وهذا هو الصح

استاذي الفاضل لقد قمت بتغيير بسيط بالكود واصبح يلبي طلبي

شكرا لتفضلك بالاجابة على اسئلتي

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