اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

اضافة صورة


الردود الموصى بها

السلام عليكم

لدي نموذج فيه ايقونة اضافة صورة  

 

عند تحميل اضافة صورة تظهر مرتين حتى نقوم بالخروج من النموذج وتعود الصور التي قمت بتحمبلها

Logo2010.accdb

رابط هذا التعليق
شارك

  • 2 weeks later...

@بلال اليامين

بس غير الكود 

وللصور جمع فلتر 

عند حدث الزر :

Private Sub Command1_Click()
On Error GoTo ABC
'=======================
 Dim varFileX2 As Variant
    Dim destpathX2 As Variant
    '===========================
Dim X As Object
Set X = Application.FileDialog(msoFileDialogFilePicker) 'Application.FileDialog(3)
With X

.AllowMultiSelect = False
.Filters.Clear
.Title = "pleas Selcted item PHOTO .. File_IMG"
.Filters.Add "All png", "*.png;*.jpg"
.Filters.Add "All File", "*.*"

 If .Show = True Then
  For Each varFileX2 In .SelectedItems
   destpathX2 = varFileX2
       
          
       Me.ImgPath = destpathX2
           Me.Image0.Picture = Me.ImgPath
          Next
          Else
          If Me.ImgPath = "" Then
          Me.Image0.Picture = ""
          End If
          MsgBox " No selected File IMG"
End If
 End With
 Set X = Nothing
ABB:
Exit Sub
ABC:
Resume ABB
End Sub

 

تم تعديل بواسطه hanan_ms
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information