بلال اليامين قام بنشر أغسطس 21 قام بنشر أغسطس 21 السلام عليكم لدي نموذج فيه ايقونة اضافة صورة عند تحميل اضافة صورة تظهر مرتين حتى نقوم بالخروج من النموذج وتعود الصور التي قمت بتحمبلها Logo2010.accdb
hanan_ms قام بنشر أغسطس 30 قام بنشر أغسطس 30 (معدل) @بلال اليامين بس غير الكود وللصور جمع فلتر عند حدث الزر : 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.