علي هندسة قام بنشر يناير 12, 2019 قام بنشر يناير 12, 2019 السلام عليكم ارفق قاعدة بيانات حصلت عليها من موقعكم الوفير بالامثلة والحلول الرائعة المطلوب فضلا التعديل عليها بتبديل شرط نسخ السجل من جدول (Students) الى جدول (Team) من الشرط الاول الى الشرط الثاني وشكرا exam 1.accdb
ابو ياسين المشولي قام بنشر يناير 12, 2019 قام بنشر يناير 12, 2019 منذ ساعه, علي هندسة 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
علي هندسة قام بنشر يناير 12, 2019 الكاتب قام بنشر يناير 12, 2019 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
ابو ياسين المشولي قام بنشر يناير 12, 2019 قام بنشر يناير 12, 2019 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]));"
علي هندسة قام بنشر يناير 12, 2019 الكاتب قام بنشر يناير 12, 2019 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
ابو ياسين المشولي قام بنشر يناير 12, 2019 قام بنشر يناير 12, 2019 21 دقائق مضت, علي هندسة said: استاذي الفاضل الملف المرفق مثال على الكود الاخير وعند نسخ السجل الاول يقوم بنقل سجلين معا علماً ان رقم ال (ID) متشابه والاسم (Fullname) مختلف ما احتاجه متفضلا ان اختار اي سجل للنسخ حتا لو كان هنالك تكرار بالاسم او الرقم فعند اختيار اي سجل يتم نسخ السجل الذي اخترته فقط وشكرا exam 4.accdb هذا ماتم بالفعل exam 1.accdb
علي هندسة قام بنشر يناير 12, 2019 الكاتب قام بنشر يناير 12, 2019 7 دقائق مضت, ابو ياسين المشولي said: هذا ماتم بالفعل exam 1.accdb استاذي الفاضل لازالت المشكلة عند تشابه رقم ال (ID) يقوم بنسخ سجلين لانهما يمتلكان نفس الرقم احتاج ان اضع له شرط الاسم مع الرقم للنسخ فيتم نسخ سجل واحد وليس سجلين وماتم معي نقل سجلين كما بالصورة
ابو ياسين المشولي قام بنشر يناير 12, 2019 قام بنشر يناير 12, 2019 لايمكن هو شرطه الاي دي والمفترض لا يتشابه الاي دي وهذا هو الصح
علي هندسة قام بنشر يناير 12, 2019 الكاتب قام بنشر يناير 12, 2019 7 دقائق مضت, ابو ياسين المشولي said: لايمكن هو شرطه الاي دي والمفترض لا يتشابه الاي دي وهذا هو الصح استاذنا الفاضل شكرا على تفاعلك معي متفضلا رقم الاي دي لدي لايمثل تسلسل بحيث يجب ان لايتكرر لان الجدول يمثل اكثر من امتحان وقد ياخذ اكثر من طالب التسلسل واحد او اثنان فاحتاج الى كود يقوم بنسخ سجل اي طالب يعتمد بالنسخ على رقم الاي دي والاسم معنا ان امكن ذلك وشكرا
علي هندسة قام بنشر يناير 12, 2019 الكاتب قام بنشر يناير 12, 2019 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.