abo_renad12

الاخوة الزملاء الافاضل هو مفيش رد على سؤالى ولا ايه؟

لدي قاعدة بيانات خاص بالموظفين بها جدول Emp يقوم بتخزين كافة البيانات للموظفين ولدي قاعدة بيانات أخرى للتجميع وبها جدول total وهو خاص باستيراد كافة البيانات من جدول Emp الموجود في قواعد البيانات الفرعية الاخرى. وعند تنفيذ الكود التالي للاستيراد لا يعمل ويعطي رسالة "تأكد من إختيار قاعدة البيانات الصحيحة " والمخزنة فى الكود التالي مع العلم بأن الكود لا يقرأ Next I وينتقل لرسالة الخطأ مباشرة. فارجو المساعدة Set f = Application.FileDialog(3) f.AllowMultiSelect = True: f.Filters.Add "Access Databases 2010 or higher", "*.accdb", 1: f.Show If f.SelectedItems.Count = 0 Then GoTo 10 Dim I As Variant On Error GoTo 10 Me.or9.Caption = "عدد الملفات " & "((" & f.SelectedItems.Count & "))" If Me.or9.Caption = "0" Then GoTo 10 For I = 1 To f.SelectedItems.Count ff = f.SelectedItems(I): Set db = CurrentDb Me.FileList.AddItem (f.SelectedItems(I)) db.Execute ("INSERT INTO total select * FROM Emp IN '" + ff + "';") Next I If Me.movedata.Enabled = False Then Me.movedata.Enabled = True Me.Requery: Me.Refresh MsgBox " تم رفع البيانات .... يمكنك تأكيد الاستيراد بالضغط على زر تجميع البيانات ", , "Abo_Renad" Exit Sub 10 MsgBox "تأكد من إختيار قاعدة البيانات الصحيحة ", , "Abo_Renad" DoCmd.SetWarnings False DoCmd.SetWarnings True

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

السلام عليكم ورحمة الله وبركاته لدي Combobox به أسماء المدارس وأسفل منه مربع نص وهو خاص باختيارات موانع الامتحانات والمطلوب هو عند اختيار مدرسة من Combobox يتم تخزين قيمتها فى مربع النص مع العلم بأنني أريد تخزين أكثر من مدرسة وليس مدرسة واحدة أرجو إرفاق مثال ان امكن وجزاكم الله خيرا