OPENFILENAME لا تعمل تحت بيئة 64 بت

[sameh_awad]

السلام عليكم 

قمت بتحميل اوفيس 64 بت 2016 لكن الفولدر الاصفر لا يعمل برجاء الافادة (فلقد بحثت لمدة يومين دون جدول)

و جزاكم الله خيراID.rar

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

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

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

هذا الكود سيعمل معك على نسخة 32 & 64 بدون مشاكل ان شاء الله

Dim XPicFile As Variant
Dim XPicFilez As Variant
With Application.FileDialog(3)
    .Title = "Choose File"
    .Filters.Clear
      .Filters.Clear
      .Filters.Add "All Files", "*.*"
      .Filters.Add "jpg image", "*.jpg"
      .Filters.Add "jpeg image", "*.jpeg"
    .AllowMultiSelect = False
    .InitialFileName = ""
 If .Show = -1 Then
   XPicFilez = .SelectedItems(1)
   [PackDesign subform].[Form]![PicFile] = XPicFilez
   [imgPicture].Picture = [PackDesign subform].[Form]![PicFile]
 End If
End With

 

تحياتي

[ابو جودي]

اتفضل 

 

ID (2).zip

[sameh_awad]

جزاكم الله خيرا و جعله الله فى ميزان حسناتكم