اضافة صورتين للطالب في نموذج

[عفرنس]

بيانات.rar

fff.rar

تم تعديل سبتمبر 17, 2020 بواسطه فايز..

[ازهر عبد العزيز]

وعليكم السلام

New folder (2).rar

[د.كاف يار]

لتصفح ملفات الكمبيوتر و اختيار الصورة

 

Dim Addfile As Object
Set Addfile = Application.FileDialog(3)
With Addfile
  .AllowMultiSelect = False
  .InitialFileName = ""
  .Filters.Clear
  .Filters.Add "All Files", "*.*"
  If .Show = True Then
      
      xFile = Trim(.SelectedItems(1))
      

      Else
      Exit Sub
  End If
End With

 

[Barna]

4 ساعات مضت, ازهر عبد العزيز said:

وعليكم السلام

New folder (2).rar 563.94 kB · 14 تنزيلات

أخي ازهر هذه الطريقة تحمل القاعدة وتصبح بعد فترة مترهلة ...... الأفضل حفظ الصور في مجلد خاص برقم الطالب .... مجرد رأي

[ازهر عبد العزيز]

1 ساعه مضت, Barna said:

أخي ازهر هذه الطريقة تحمل القاعدة وتصبح بعد فترة مترهلة ...... الأفضل حفظ الصور في مجلد خاص برقم الطالب .... مجرد رأي

الاستاذ كلامك صحيح فبعد حذفي للصورة من المصدر الرئيسي ما زالت الصورة موجود في قاعدة البيانات  

شكرا استاذ على المعلومة