تحديد حجم المرفق

[moamen salem]

اساتذتي الافضال ارجو منكم طريقة لتحديد حجم المرفق بحيث لا يزيد عن حجم معين حفاظا علي حجم القاعدة انا عارف انه حاجة صعبة بس اكيد مش صعبة علي الاستاذة الكبار الموجودين ان شاء الله 

[سعيد صواب]

حياك الله اخي الكريم 

وجدت هذا الكود في احد المواقع الأجنبية ...  قمت بتغيير نص الرسالة الى العربية .. فقط 

Private Sub CheckFileSize(strMyFile)
  Dim objFileSys As Scripting.FileSystemObject
  Dim objMyFile As File
  Set objFileSys = CreateObject("Scripting.FileSystemObject")
  Set objMyFile = objFileSys.GetFile(strMyFile)
  If objMyFile.Size > 6000000 Then
    MsgBox "حجم المرفق اكبر من المسموح به  ", vbOKOnly
  Else
    MsgBox "حجم المرفق مناسب ", vbOKOnly
  End If
  Set objFileSys = Nothing
  Set objMyFile = Nothing
End Sub

اتمنى يفيدك 

بالتوفيق

[moamen salem]

اخي الاستاذ سعيد اشكرك علي اهتمامك ولكن ارجو من حضرتك كيفية تحديد الحجم علي سبيل المثال انا عايز المرفق لا يزيد عن 50 kB

وبعد اذنك عرفني احط الامر دا فين لان الاوفس مافهوش الامر المكتوب 

[سعيد صواب]

حياك الله اخي الكريم 

ماهي الطريقة التي تعتمدها لإضافة المرفقات ..

حبذا ترفق مرفق  ...

بالتوفيق

[moamen salem]

بسحب الصورة من خلال "scan"  وبد كدا بفتح النموذج وكليك مرتين علي المرفق بيفتح الكمبيوتر وبختار الصورة كما هو في المرفق 

Database381.rar

[سعيد صواب]

حياك الله اخي مؤمن ..

مازلت اجرب كم كود لإضافة المرفقات الى الجدول وبالتالي وضع الشرط في المشاركة السابقة ...

متى ما وصلت الى نتيجه سأضعها هنا .... او شاركنا احد الأعضاء الكرام بذلك ..

بالتوفيق ..