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

[عفرنس]

السلام عليكم 

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

لعلكم تجدون لي حلا . الله يحلي أيامكم 

FF.rar

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

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

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

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

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

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

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

FF.rar

تحياتي

[عفرنس]

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

تحياتي

 

[عفرنس]

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 تنزيلات

تحياتي

 

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

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

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

13 ساعات مضت, فايز.. said:

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

هذا افضل طبعا

تحياتي

[الحلبي]

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

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

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

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

تم تعديل أبريل 18, 2020 بواسطه الحلبي

[أبوبسمله]

5 ساعات مضت, حلبي said:

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

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

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

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

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

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

FF.accdb

[الحلبي]

استاذى / @أحمد الفلاحجى

الله يبارك لك ويجزاك خير 

[أبوبسمله]

7 دقائق مضت, حلبي said:

استاذى / @أحمد الفلاحجى

الله يبارك لك ويجزاك خير 

وفيك بارك الله اخى محمد

بالتوفيق اخى

[عفرنس]

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

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

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

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

 

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

14 ساعات مضت, فايز.. said:

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

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

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

تحياتي

[عفرنس]

37 دقائق مضت, محمد ابوعبد الله said:

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

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

تحياتي

ممتاز 

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

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

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

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

تحياتي

[عفرنس]

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

تحياتي

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

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