محمد العراقي العراقي

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

هذا الكود حورته للفورم3 وولكن يضهر سطر select باللون الاحمر Dim strSQL As String strSQL = "SELECT these and dissertations.student_id, these and dissertations.data_commencement, these and dissertations. written_exam, these and dissertations. oral_exam, these and dissertations.Supervisor name , these and dissertations. council_number, these and dissertations. adminis_matter,these and disserations.end_courses, these and dissertations.end_study, these and dissertations.remainder,these and dissertations.extension_reguest, these and dissertations. extension1, these and dissertations.extension_number1,these and dissertations.extension_letter1,these and dissertations.end_extension1,these and dissertations.remainder1,these and dissertations. extension_reguest1,these and dissertations.Extension2,these and dissertations.extension_number2,these and dissertations.extension_letter2,these and dissertations.end_extension2,these and dissertations.Remainder2,these and dissertations.extension_reguest2,these and dissertations.Extension3,these and dissertations.extension_number3,these and dissertations.extension_letter3,these and dissertations.end_extension3,these and dissertations.Remainder3,these and dissertations.extension_reguest3,these and dissertations.message_deliver,these and dissertations.number_rectifier,these and dissertations.history_rectifier,these and dissertations. complete_rectifier, these and dissertations. name_rectifier1, these and dissertations. the_unversity1, these and dissertations. books_number1, these and dissertations. history_book1, these and dissertations. receiving_rectifier1,these and dissertations. name_rectifier2, these and dissertations. the_unversity2, these and dissertations. books_number2, these and dissertations. history_book2, these and dissertations. receiving_rectifier2, these and dissertations. discussion_committee, these and dissertations. discussion_date, these and dissertations. course_rate, these and dissertations. first_search, these and dissertations.second_search, these and dissertations. discussion_panel1, these and dissertations. the_second, these and dissertations. final_rate, these and dissertations. Note, " & _ "FROM these and dissertations " & _ "WHERE (((these and dissertations.student_id)=" & Forms!Form1!student_id & "));" If DCount("*", "these and dissertations", "student_id=" & Forms!Form1!student_id) > 0 Then DoCmd.OpenForm "Form3" Forms!Form3.RecordSource = strSQL Else DoCmd.OpenForm "Form3", , , , acFormAdd Forms!Form3!student_id = Forms!Form1!student_id End If

لدي طلب اخر اذا امكن اخي الكريم اريد من نموذج 1 افتح نموذج 3 بصراحة اردت تعديل الكود ونسخه وتكراره لكن لم افهم شيئ ولهذا لم استطع التعديل

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

تفضل اخي system1.7z system1.7z

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

مرحبا اخي لقد ظهر لي خطاء بالكود عنوان الخطاء (sub or function not defined)

السلام عليكم ورحمة الله وبركاته لدي سؤال مهم يخص النظام الذي اعمل عليه لا اريد الاطـاله بالكلام لدي نموذجين form1 و form2 كل نموذج يحتوي عدة حقول ولدي حقل student_id في كلا النموذجين المطلوب هو 1- قيمة حقل student_id في form2 اريدها ان تكون نفسها الموجودة بـ form1 2 اريد عندما اضغط ع زر فتح form2 يفتح لي السجل المرتبط برقم الطالب student_id واذا لم يكن هناك سجل بـ form2 فانه يفتح سجل جديد ماعدا حقل student_id فأن قيمتها تكون مكتوبه تلقائيا وفي جميع الحالات يعني ياخذ رقم الطالب ويبحث عنه اذا كان موجود فيعرض لي السجلات اذا لم يكن موجود او مخزن فانه يفتح لي سجل جديد لكل الحقول ماعدا رقم الطالب فانه تلقائيا يكتب استانداً الى رقم الطالب في form1