طلب مساعدة

[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

الرجاء تصحيحه ليبقى ثابت وعند نقل الملف الى اي جهاز اجده يعمل

او كتابة الكود الصحيح في مثل هذه الحالة 

وجزاكم الله كلخير

[AbuuAhmed]

يبدو "بالنظر" أن الكود سليم. فقط استخدام "Is" زائدة لا داعي لها ولكنها لا تسبب خطأ.
إن لم تستطع رفع مثال لتسهيل مهمة مقدمي الحلول فاكتب لنا رسالة الخطأ لنعرف ما هو الخطأ وكذلك لو تعطينا السطر الذي يقف عنده البرنامج بعد ظهور رسالة الخطأ.

 

مجرد تخمين، أضف هذا السطر في حدث Form_Open
 

Private Sub Form_Open(Cancel As Integer)
    Me.hh = Me.hh.Column(0, 0)
End Sub

 

تم تعديل يونيو 19, 2023 بواسطه AbuuAhmed