soufianedz

السلام عليكم ورحمة الله وبركاته عملت قاعدة بيانات بنموذج اسمه (form1) لنقل بيانات الملفات الى 03 جداول متشابهة في الحقول بأسماء (table1, table2, table3) عن طريق القائمة المنسدلة باسماء (com1, com2, com3) في حدث بعد التحديث حيث عندما اختار com1 البيانات تنقل الى table1 وعندما اختار com2 البيانات تنقل الى table2 وعند اختيار com3 البيانات تنقل الى table3 وذلك عن طريق نموذج واحد بحكم تشابه الحقول في جميع الجداول عندما ادخل الكود الى النموذج الفورم تعمل عادي ويتم ادخال البيانات ويتم ترحيلها الى الجدول المراد وعند غلق الجهاز واعادة تشغيله وعند فتح ملف الاكسس والدخول الى نموذج form1 واختيار الجدول المراد ادخال البيانات اليه عن طريق القائمة المنسدلة تصدر ملاحظة بوجود خطأ لقد حاولت البحث في النت عن حلول ولكن المعلومات والفيدوهات كانت شحيحة ولأني قليل خبرة توجهة إليكم وكلي امتنان بمساعدتكم وجعلها الله في ميزان حسناتكم حتى وان كنتم ترون بأن المشكلة صغيرة وتافهة إلا انها عظيمة عندي للعلم وضعت ازرار الانتقال / اضافة ملف جديد ، الملف السابق ، الملف التالي ، البحث عن ملف ، حذف ملف ، اغلاق الفورم -بدون اكواد- والكود الذي استعملته هو () Private Sub hh_AfterUpdate Select Case Me.hh "Case Is = "com1 "Me.RecordSource = "table1 "Case Is = "com2 "Me.RecordSource = "table2 "Case Is = "com3 "Me.RecordSource = "table3 End Select DoCmd.RefreshRecord DoCmd.Requery End Sub الرجاء تصحيحه ليبقى ثابت وعند نقل الملف الى اي جهاز اجده يعمل او كتابة الكود الصحيح في مثل هذه الحالة وجزاكم الله كلخير