اذهب الي المحتوي
أوفيسنا

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

عفرنس

بواسطه عفرنس
في قسم الأكسيس Access

 مشاركة
إذهب إلى أفضل إجابة Solved by محمد أبوعبدالله,

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

محمد أبوعبدالله

محمد أبوعبدالله

قام بنشر
قام بنشر

وعليكم السلام ورحمة الله وبركاته

39 دقائق مضت, فايز.. said:

حاول أضيف الصورة في الجدول عن طريق النموذج وما عرفت . 

لانه لا يوجد لديك حقل باسم PicFile لا في الجدول ولا في النموذج

نصيحة : لا تجعل الصور مرفقة في قاعدة البيانات اجعلها في مجلد خاص بالصور بجوار البرنامج

وذلك لعدم تضخم قاعدة البيانات بدون فائدة كبيرة

FF.rar

تحياتي

  • Like 3
رابط هذا التعليق
شارك
عفرنس

عفرنس

قام بنشر
  • الكاتب
قام بنشر
8 ساعات مضت, محمد ابوعبد الله said:

وعليكم السلام ورحمة الله وبركاته

لانه لا يوجد لديك حقل باسم PicFile لا في الجدول ولا في النموذج

نصيحة : لا تجعل الصور مرفقة في قاعدة البيانات اجعلها في مجلد خاص بالصور بجوار البرنامج

وذلك لعدم تضخم قاعدة البيانات بدون فائدة كبيرة

FF.rar 185.02 kB · 7 تنزيلات

تحياتي

شكرا لك أخي @محمد ابوعبد الله 

وكيف لي عمل ذلك ؟؟ 

حاولت أن أعمل مجلد لكن ما ضبط معي . 

يا ليت لو على نفس المرفق السابق يكون التعديل 

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

محمد أبوعبدالله

قام بنشر
قام بنشر

تفضل اخي الكريم

الكود يقوم بنسخ الصورة الى مجلد image الذي بجوار قاعدة البيانات

  

    If IsNull([FCar_No]) Then
    [FCar_No].SetFocus
    Exit Sub
    End If
    
    Dim fpath As Variant
    Dim fpathz As Variant
    With Application.FileDialog(3)
        .Title = "Choose File"
        .Filters.Clear
          .Filters.Clear
          .Filters.Add "All Files", "*.*"
          .Filters.Add "jpg image", "*.jpg"
          .Filters.Add "jpeg image", "*.jpeg"
         .AllowMultiSelect = False
         .InitialFileName = ""
      If .Show = -1 Then
         fpathz = .SelectedItems(1)
       
        Name fpathz As Application.CurrentProject.Path & "\image\" & [FCar_No] & ".jpg"
         Me.PicFile = Application.CurrentProject.Path & "\image\" & [FCar_No] & ".jpg"
    
     End If
    End With

FF.rar

تحياتي

 

  • Like 3
رابط هذا التعليق
شارك
عفرنس

عفرنس

قام بنشر
  • الكاتب
قام بنشر (معدل)
5 دقائق مضت, محمد ابوعبد الله said:

تفضل اخي الكريم

الكود يقوم بنسخ الصورة الى مجلد image الذي بجوار قاعدة البيانات

  


    If IsNull([FCar_No]) Then
    [FCar_No].SetFocus
    Exit Sub
    End If
    
    Dim fpath As Variant
    Dim fpathz As Variant
    With Application.FileDialog(3)
        .Title = "Choose File"
        .Filters.Clear
          .Filters.Clear
          .Filters.Add "All Files", "*.*"
          .Filters.Add "jpg image", "*.jpg"
          .Filters.Add "jpeg image", "*.jpeg"
         .AllowMultiSelect = False
         .InitialFileName = ""
      If .Show = -1 Then
         fpathz = .SelectedItems(1)
       
        Name fpathz As Application.CurrentProject.Path & "\image\" & [FCar_No] & ".jpg"
         Me.PicFile = Application.CurrentProject.Path & "\image\" & [FCar_No] & ".jpg"
    
     End If
    End With

FF.rar 183.21 kB · 0 تنزيلات

تحياتي

 

استفسار هل احذف حقل مرفق من الجدول ؟؟ 

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

الحلبي

قام بنشر
قام بنشر (معدل)

استاذنا / @محمد ابوعبد الله

جزاك الله خيرا وجعله في ميزان حسناتك

حاولت ان احمل المرفق ولكن تظهر رسالة لى بان الملف المضغوظ ليس له ارشيف 

هل ممكن اعادة ارسال المرفق بدون ضغط او ارسال مضغوط بدون اخطاء 

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

أبوبسمله

قام بنشر
قام بنشر
5 ساعات مضت, حلبي said:

استاذنا / @محمد ابوعبد الله

جزاك الله خيرا وجعله في ميزان حسناتك

حاولت ان احمل المرفق ولكن تظهر رسالة لى بان الملف المضغوظ ليس له ارشيف 

هل ممكن اعادة ارسال المرفق بدون ضغط او ارسال مضغوط بدون اخطاء 

اتفضل اخى محمد الملف بدون ضغط وجزاه الله خيرا اخى @محمد ابوعبد الله

بالتوفيق اخى محمد

FF.accdb

  • Like 2
رابط هذا التعليق
شارك
  • 2 weeks later...
عفرنس

عفرنس

قام بنشر
  • الكاتب
قام بنشر

أخي @محمد ابوعبد الله 

عندما أضغط على زر إضافة صورة ما يستجيب . أين المشكلة ؟؟ 

أيضا لا يوجد لدي حقل باسم ( FCar_ No ) 

 If IsNull([FCar_No]) Then
    [FCar_No].SetFocus
    Exit Sub
    End If

 

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

محمد أبوعبدالله

قام بنشر
قام بنشر
14 ساعات مضت, فايز.. said:

أيضا لا يوجد لدي حقل باسم ( FCar_ No )

هذا الحقل هو لرقم المركبة

لذلك يجب اضافة رقم المركبة اولاً قبل اضافة الصورة

تحياتي

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

عفرنس

قام بنشر
  • الكاتب
قام بنشر (معدل)
37 دقائق مضت, محمد ابوعبد الله said:

هذا الحقل هو لرقم المركبة

لذلك يجب اضافة رقم المركبة اولاً قبل اضافة الصورة

تحياتي

ممتاز 

لما اسجل البيانات ثم اختار اضافة صورة تظهر هذه الرسالة 

image.png.8d8058e95fe213cd3fd627f38015028d.png

تم تعديل بواسطه فايز..
رابط هذا التعليق
شارك
  • أفضل إجابة
محمد أبوعبدالله

محمد أبوعبدالله

قام بنشر
  • أفضل إجابة
قام بنشر
22 ساعات مضت, فايز.. said:

لما اسجل البيانات ثم اختار اضافة صورة تظهر هذه الرسالة 

لعدم وجود مجلد image بجوار البرنامج

تأكد جيدأ من وجود مجلد image او يمكن اشنائه عن طريق الكود التالي ( ضعه في بداية الكود ) 

            Dim fs, cf, strFolder
                        strFolder = CurrentProject.Path & "\" & "image"
            Set fs = CreateObject("Scripting.FileSystemObject")
               If fs.FolderExists(strFolder) = False Then
                  MsgBox "تحذير !!! مجلد المرفقات غير موجود ! وسيتم انشائه ان شاء الله بجوار البرنامج", vbExclamation, "Pro2020"
            Set cf = fs.CreateFolder(strFolder)

وهذا هو الكود كاملاً ان شاء الله 


            Dim fs, cf, strFolder
                        strFolder = CurrentProject.Path & "\" & "image"
            Set fs = CreateObject("Scripting.FileSystemObject")
               If fs.FolderExists(strFolder) = False Then
                  MsgBox "تحذير !!! مجلد المرفقات غير موجود ! وسيتم انشائه ان شاء الله بجوار البرنامج", vbExclamation, "Pro2020"
            Set cf = fs.CreateFolder(strFolder)
            
            

    If IsNull([FCar_No]) Then
    [FCar_No].SetFocus
    Exit Sub
    End If
    
    Dim fpath As Variant
    Dim fpathz As Variant
    With Application.FileDialog(3)
        .Title = "Choose File"
        .Filters.Clear
          .Filters.Clear
          .Filters.Add "All Files", "*.*"
          .Filters.Add "jpg image", "*.jpg"
          .Filters.Add "jpeg image", "*.jpeg"
         .AllowMultiSelect = False
         .InitialFileName = ""
      If .Show = -1 Then
         fpathz = .SelectedItems(1)
       
        Name fpathz As Application.CurrentProject.Path & "\image\" & [FCar_No] & ".jpg"
         Me.PicFile = Application.CurrentProject.Path & "\image\" & [FCar_No] & ".jpg"
    
     End If
    End With



End Sub

تحياتي

  • Like 3
رابط هذا التعليق
شارك
عفرنس

عفرنس

قام بنشر
  • الكاتب
قام بنشر
11 ساعات مضت, محمد ابوعبد الله said:

لعدم وجود مجلد image بجوار البرنامج

تأكد جيدأ من وجود مجلد image او يمكن اشنائه عن طريق الكود التالي ( ضعه في بداية الكود ) 


            Dim fs, cf, strFolder
                        strFolder = CurrentProject.Path & "\" & "image"
            Set fs = CreateObject("Scripting.FileSystemObject")
               If fs.FolderExists(strFolder) = False Then
                  MsgBox "تحذير !!! مجلد المرفقات غير موجود ! وسيتم انشائه ان شاء الله بجوار البرنامج", vbExclamation, "Pro2020"
            Set cf = fs.CreateFolder(strFolder)

وهذا هو الكود كاملاً ان شاء الله 



            Dim fs, cf, strFolder
                        strFolder = CurrentProject.Path & "\" & "image"
            Set fs = CreateObject("Scripting.FileSystemObject")
               If fs.FolderExists(strFolder) = False Then
                  MsgBox "تحذير !!! مجلد المرفقات غير موجود ! وسيتم انشائه ان شاء الله بجوار البرنامج", vbExclamation, "Pro2020"
            Set cf = fs.CreateFolder(strFolder)
            
            

    If IsNull([FCar_No]) Then
    [FCar_No].SetFocus
    Exit Sub
    End If
    
    Dim fpath As Variant
    Dim fpathz As Variant
    With Application.FileDialog(3)
        .Title = "Choose File"
        .Filters.Clear
          .Filters.Clear
          .Filters.Add "All Files", "*.*"
          .Filters.Add "jpg image", "*.jpg"
          .Filters.Add "jpeg image", "*.jpeg"
         .AllowMultiSelect = False
         .InitialFileName = ""
      If .Show = -1 Then
         fpathz = .SelectedItems(1)
       
        Name fpathz As Application.CurrentProject.Path & "\image\" & [FCar_No] & ".jpg"
         Me.PicFile = Application.CurrentProject.Path & "\image\" & [FCar_No] & ".jpg"
    
     End If
    End With



End Sub

تحياتي

شكر الله لك أخي محمد .. 

تم المطلوب بنجاح . 

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

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

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



سجل دخولك الان
 مشاركة
الذهاب الي قائمه المواضيع

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

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

Important Information

  I accept