خطأ في تنفيذ كود استيراد بيانات من قاعدة بيانات اخرى

[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

 

[abo_renad12]

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