مطلوب كود استعراض وتحديد ملفات الاكسس من الكمبيوتر يعمل علي اصدار ٦٤ يت

[محمد سلامة]

السلام عليكم ورحمه الله

مطلوب كود استعراض ملفات الاكسس من الكمبيوتر يعمل علي اصدار ٦٤ بت

وايضا كود تحديد مسار ملفات الاكسس يعمل علي اصدار ٦٤ بت

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

تم تعديل أغسطس 31, 2020 بواسطه محمد سلامة

[محمد أبوعبدالله]

وعليكم السلام ورجمة الله وبركاته

تفضل اخي الكريم

هذا الكود يعمل على نواة 32 و 64  لاستعراض الملفات

Dim fpathz As Variant
    With Application.FileDialog(3)
        .Title = "Choose File"
        .Filters.Clear
        .Filters.Clear
        .Filters.add "All Files", "*.*"
        .AllowMultiSelect = False
        .InitialFileName = ""
     If .Show = -1 Then
         fpathz = .SelectedItems(1)
     
     End If
    End With

ولتحديد مسار قاعدو البيانات

Application.CurrentProject.Path

تحياتي

[محمد سلامة]

1 ساعه مضت, محمد أبوعبدالله said:

وعليكم السلام ورجمة الله وبركاته

تفضل اخي الكريم

هذا الكود يعمل على نواة 32 و 64  لاستعراض الملفات

Dim fpathz As Variant
    With Application.FileDialog(3)
        .Title = "Choose File"
        .Filters.Clear
        .Filters.Clear
        .Filters.add "All Files", "*.*"
        .AllowMultiSelect = False
        .InitialFileName = ""
     If .Show = -1 Then
         fpathz = .SelectedItems(1)
     
     End If
    End With

ولتحديد مسار قاعدو البيانات

Application.CurrentProject.Path

تحياتي

اشكرك استاذ محمد وجاري التجربة والإفادة

تحياتي 🌹