عفرنس قام بنشر أبريل 17, 2020 مشاركة قام بنشر أبريل 17, 2020 السلام عليكم حاول أضيف الصورة في الجدول عن طريق النموذج وما عرفت . لعلكم تجدون لي حلا . الله يحلي أيامكم FF.rar رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر أبريل 17, 2020 مشاركة قام بنشر أبريل 17, 2020 وعليكم السلام ورحمة الله وبركاته 39 دقائق مضت, فايز.. said: حاول أضيف الصورة في الجدول عن طريق النموذج وما عرفت . لانه لا يوجد لديك حقل باسم PicFile لا في الجدول ولا في النموذج نصيحة : لا تجعل الصور مرفقة في قاعدة البيانات اجعلها في مجلد خاص بالصور بجوار البرنامج وذلك لعدم تضخم قاعدة البيانات بدون فائدة كبيرة FF.rar تحياتي 3 رابط هذا التعليق شارك More sharing options...
عفرنس قام بنشر أبريل 17, 2020 الكاتب مشاركة قام بنشر أبريل 17, 2020 8 ساعات مضت, محمد ابوعبد الله said: وعليكم السلام ورحمة الله وبركاته لانه لا يوجد لديك حقل باسم PicFile لا في الجدول ولا في النموذج نصيحة : لا تجعل الصور مرفقة في قاعدة البيانات اجعلها في مجلد خاص بالصور بجوار البرنامج وذلك لعدم تضخم قاعدة البيانات بدون فائدة كبيرة FF.rar 185.02 kB · 7 تنزيلات تحياتي شكرا لك أخي @محمد ابوعبد الله وكيف لي عمل ذلك ؟؟ حاولت أن أعمل مجلد لكن ما ضبط معي . يا ليت لو على نفس المرفق السابق يكون التعديل رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر أبريل 17, 2020 مشاركة قام بنشر أبريل 17, 2020 تفضل اخي الكريم الكود يقوم بنسخ الصورة الى مجلد 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 تحياتي 3 رابط هذا التعليق شارك More sharing options...
عفرنس قام بنشر أبريل 17, 2020 الكاتب مشاركة قام بنشر أبريل 17, 2020 (معدل) 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 بواسطه فايز.. رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر أبريل 18, 2020 مشاركة قام بنشر أبريل 18, 2020 13 ساعات مضت, فايز.. said: استفسار هل احذف حقل مرفق من الجدول ؟؟ هذا افضل طبعا تحياتي رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر أبريل 18, 2020 مشاركة قام بنشر أبريل 18, 2020 (معدل) استاذنا / @محمد ابوعبد الله جزاك الله خيرا وجعله في ميزان حسناتك حاولت ان احمل المرفق ولكن تظهر رسالة لى بان الملف المضغوظ ليس له ارشيف هل ممكن اعادة ارسال المرفق بدون ضغط او ارسال مضغوط بدون اخطاء تم تعديل أبريل 18, 2020 بواسطه الحلبي رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر أبريل 18, 2020 مشاركة قام بنشر أبريل 18, 2020 5 ساعات مضت, حلبي said: استاذنا / @محمد ابوعبد الله جزاك الله خيرا وجعله في ميزان حسناتك حاولت ان احمل المرفق ولكن تظهر رسالة لى بان الملف المضغوظ ليس له ارشيف هل ممكن اعادة ارسال المرفق بدون ضغط او ارسال مضغوط بدون اخطاء اتفضل اخى محمد الملف بدون ضغط وجزاه الله خيرا اخى @محمد ابوعبد الله بالتوفيق اخى محمد FF.accdb 2 رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر أبريل 18, 2020 مشاركة قام بنشر أبريل 18, 2020 استاذى / @أحمد الفلاحجى الله يبارك لك ويجزاك خير 1 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر أبريل 18, 2020 مشاركة قام بنشر أبريل 18, 2020 7 دقائق مضت, حلبي said: استاذى / @أحمد الفلاحجى الله يبارك لك ويجزاك خير وفيك بارك الله اخى محمد بالتوفيق اخى رابط هذا التعليق شارك More sharing options...
عفرنس قام بنشر أبريل 29, 2020 الكاتب مشاركة قام بنشر أبريل 29, 2020 أخي @محمد ابوعبد الله عندما أضغط على زر إضافة صورة ما يستجيب . أين المشكلة ؟؟ أيضا لا يوجد لدي حقل باسم ( FCar_ No ) If IsNull([FCar_No]) Then [FCar_No].SetFocus Exit Sub End If رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر أبريل 30, 2020 مشاركة قام بنشر أبريل 30, 2020 14 ساعات مضت, فايز.. said: أيضا لا يوجد لدي حقل باسم ( FCar_ No ) هذا الحقل هو لرقم المركبة لذلك يجب اضافة رقم المركبة اولاً قبل اضافة الصورة تحياتي رابط هذا التعليق شارك More sharing options...
عفرنس قام بنشر أبريل 30, 2020 الكاتب مشاركة قام بنشر أبريل 30, 2020 (معدل) 37 دقائق مضت, محمد ابوعبد الله said: هذا الحقل هو لرقم المركبة لذلك يجب اضافة رقم المركبة اولاً قبل اضافة الصورة تحياتي ممتاز لما اسجل البيانات ثم اختار اضافة صورة تظهر هذه الرسالة تم تعديل أبريل 30, 2020 بواسطه فايز.. رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد أبوعبدالله قام بنشر مايو 1, 2020 أفضل إجابة مشاركة قام بنشر مايو 1, 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 تحياتي 3 رابط هذا التعليق شارك More sharing options...
عفرنس قام بنشر مايو 1, 2020 الكاتب مشاركة قام بنشر مايو 1, 2020 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 تحياتي شكر الله لك أخي محمد .. تم المطلوب بنجاح . رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان