بخصوص FileDialog(msoFileDialogFilePicker

[mrbakr]

السلام عليكم

الكود يعمل على اصدار اوفيس 2010 ولا يعمل على اصدار اوفيس 2016

نوع الملف استيراد الى جدول فى قاعدة البيانات من ملف اكسيل

[jjafferr]

وعليكم السلام 🙂

 

جرب الامر بهذه الصيغة :

 

 

جعفر

[ابو جودي]

' Requires reference to Microsoft Office xx Object Library xx=Version No OF Access

 

وهذا مثال على التنفيذ

FileDialog.accdb

[jjafferr]

3 ساعات مضت, ابا جودى said:

' Requires reference to Microsoft Office xx Object Library xx=Version No OF Access

 

هذه صورة من برنامجي ، اكسس 2010 ، والمكتبة اصبحت Miscrosoft Access xx Object Library :

.

 

وانا لا احب ان استعمل المكتبة ، لأنها لها علاقة بنسخة الاكسس ، واختيار المكتبة تسمى بـالربط المسبق Early Binding (مع ان هذه الطريقة اسرع ، ويساعدك الاكسس في اعطائك المتغيرات المتوفرة للأمر عند عمل: مسافة او نقطة او فتح قوس)،

فإذا تمت البرمجة على النسخة الاقدم ، وتم استعمال البرنامج على النسخة الاحدث ، فيقوم البرنامج تلقائيا بتغيير المكتبة للأحدث ،

واما اذا تمت البرمجة على النسخة الاحدث ، وتم استعمال البرنامج على النسخة الاقدم ، فلن يعمل البرنامج ، وسيعطيك خطأ !!

ولتفادي هذه المشكلة ، فيمكننا عمل ربط متأخر Late Binding بتعريف المتغير بـ Object ، هكذا :

    Dim FileDialog As Object

    With Application.FileDialog(3)
        .Title = "Choose File"
        .Filters.Clear
        .Filters.Add "Pic Files", "*.jpg ; *.bmp"
        .AllowMultiSelect = False
        .InitialFileName = ""
        If .Show = -1 Then
          Open_a_File = .SelectedItems(1)
        End If
    End With

 

جعفر

[ابو جودي]

10 ساعات مضت, jjafferr said:

هذه صورة من برنامجي ، اكسس 2010 ، والمكتبة اصبحت Miscrosoft Access xx Object Library :

.

 

وانا لا احب ان استعمل المكتبة ، لأنها لها علاقة بنسخة الاكسس ، واختيار المكتبة تسمى بـالربط المسبق Early Binding (مع ان هذه الطريقة اسرع ، ويساعدك الاكسس في اعطائك المتغيرات المتوفرة للأمر عند عمل: مسافة او نقطة او فتح قوس)،

فإذا تمت البرمجة على النسخة الاقدم ، وتم استعمال البرنامج على النسخة الاحدث ، فيقوم البرنامج تلقائيا بتغيير المكتبة للأحدث ،

واما اذا تمت البرمجة على النسخة الاحدث ، وتم استعمال البرنامج على النسخة الاقدم ، فلن يعمل البرنامج ، وسيعطيك خطأ !!

ولتفادي هذه المشكلة ، فيمكننا عمل ربط متأخر Late Binding بتعريف المتغير بـ Object ، هكذا :

    Dim FileDialog As Object

    With Application.FileDialog(3)
        .Title = "Choose File"
        .Filters.Clear
        .Filters.Add "Pic Files", "*.jpg ; *.bmp"
        .AllowMultiSelect = False
        .InitialFileName = ""
        If .Show = -1 Then
          Open_a_File = .SelectedItems(1)
        End If
    End With

 

جعفر

جزاكم الله خيرا والدى الحبيب و استاذى الجليل و معلمى القدير استاذ @jjafferr

[mrbakr]

صورة من المشكلة وملف البيانات ارجو التعديل علية وحل المشكلة
انا استخدم اوفيس 2010 و2016

 

dbb.rar

[jjafferr]

استعمل هذا الحدث بدل الموجود عندك :

Private Sub btn_search_Click()

    
    Dim FileDialog As Object

    With Application.FileDialog(3)
        .Title = "Please select a File"
        .Filters.Clear
        .Filters.Add "extensions", "*.xls, *.xlsx, *.txt"
        .AllowMultiSelect = False
        .InitialFileName = ""
        If .Show = -1 Then
          Me.path = .SelectedItems(1)
        End If
    End With
    
End Sub

 

جعفر

[mrbakr]

جزاك الله كل خير
تم حل الكود الاول

والكود التانى يوجد بيه مشكلة
 

 

 

[jjafferr]

وعليكم السلام 🙂

 

بدل هذا السطر
Dim FSO As New FileSystemObject, msg As String


استعمل
Dim FSO As Object, msg As String

.

ولكن الظاهر انك يوم من الايام كنت تريد تعمل شيء بالامر FSO  والذي يُستخدم في ادارة الملفات و المجلدات ، ووضعت الكود الخاص به ، ثم حذفت الكود ، ولكن نسيت ان تحذف الجزء العلوي منه ، وعليه فأنت الآن بحاجة الى هذا السطر بدل السطر اعلاه:

Dim msg As String

 

جعفر

[mrbakr]

جزاك الله كل خير وتم حل المشكلة بنجاح