اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

عفرنس

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

 مشاركة
إذهب إلى الإجابة الإجابة بواسطة محمد أبوعبدالله,

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

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

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

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

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

  في 17‏/4‏/2020 at 00:10, فايز.. said:

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

Expand  

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

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

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

FF.rarFetching info...

تحياتي

  • Like 3
عفرنس

عفرنس

قام بنشر
  • الكاتب
قام بنشر
  في 17‏/4‏/2020 at 00:52, محمد ابوعبد الله said:

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

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

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

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

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

تحياتي

Expand  

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

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

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

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

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

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

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

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

الكود يقوم بنسخ الصورة الى مجلد 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.rarFetching info...

تحياتي

 

  • Like 3
عفرنس

عفرنس

قام بنشر
  • الكاتب
قام بنشر (معدل)
  في 17‏/4‏/2020 at 13:01, محمد ابوعبد الله 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 تنزيلات

تحياتي

 

Expand  

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

تم تعديل بواسطه فايز..
الحلبي

الحلبي

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

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

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

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

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

تم تعديل بواسطه الحلبي
أبوبسمله

أبوبسمله

قام بنشر
قام بنشر
  في 18‏/4‏/2020 at 05:53, حلبي said:

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

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

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

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

Expand  

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

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

FF.accdbFetching info...

  • Like 2
  • 2 weeks later...
محمد أبوعبدالله

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

قام بنشر
قام بنشر
  في 29‏/4‏/2020 at 10:58, فايز.. said:

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

Expand  

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

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

تحياتي

عفرنس

عفرنس

قام بنشر
  • الكاتب
قام بنشر (معدل)
  في 30‏/4‏/2020 at 01:04, محمد ابوعبد الله said:

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

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

تحياتي

Expand  

ممتاز 

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

image.png.8d8058e95fe213cd3fd627f38015028d.png

تم تعديل بواسطه فايز..
  • تمت الإجابة
محمد أبوعبدالله

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

قام بنشر
  • تمت الإجابة
قام بنشر
  في 30‏/4‏/2020 at 01:31, فايز.. said:

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

Expand  

لعدم وجود مجلد 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
عفرنس

عفرنس

قام بنشر
  • الكاتب
قام بنشر
  في 1‏/5‏/2020 at 00:23, محمد ابوعبد الله 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

تحياتي

Expand  

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

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

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

Important Information

  I accept