اضافة صورة

[بلال اليامين]

السلام عليكم

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

 

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

Logo2010.accdb

[0d59eacf59]

نفس المشكلة 






 

192.168.100.1 192.168.1.1

[hanan_ms]

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

بس غير الكود 

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

عند حدث الزر :

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

 

تم تعديل أغسطس 30 بواسطه hanan_ms