اضافة زر يقوم باضافة ملف

[نسيم الروح الروح]

السلام عليكم

اذا حطيت حقل مرفق .. فالمفروض اذا ضغطنا على المربع مرتين يظهر اضافة الملف .. فهل يمكن وضع زر لفتح نافذة اضافة الملفات بدل من الضغط مرتين على المربع وهل يمكن ايضا افراغ المربع بزر اخر ؟

شكراً لكم

[ابو جودي]

1 ساعه مضت, نسيم الروح الروح said:

السلام عليكم

اذا حطيت حقل مرفق .. فالمفروض اذا ضغطنا على المربع مرتين يظهر اضافة الملف .. فهل يمكن وضع زر لفتح نافذة اضافة الملفات بدل من الضغط مرتين على المربع وهل يمكن ايضا افراغ المربع بزر اخر ؟

شكراً لكم

قبل ان احاول اجابة سؤالك او قبل ان يتفضل احد اساتذتى الكرام 

فلتعلم جيدا انا ناصح امين وانقل اليكم ما تعلمته من اساتذتى الافاضل بارك الله فيهم 

لا تجعل المرفقات داخل قاعدة البيانات الافضل الاحتفاظ بهم بمجلد القاعدة للابتعاد عن مشاكل تضخم حجم القاعدة مع الوقت 

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

وان شاء الله تعالى وبأمر الله عندى الحلين

تم تعديل سبتمبر 2, 2019 بواسطه ابا جودى

[نسيم الروح الروح]

15 دقائق مضت, ابا جودى said:

قبل ان احاول اجابة سؤالك او قبل ان يتفضل احد اساتذتى الكرام 

فلتعلم جيدا انا ناصح امين وانقل اليكم ما تعلمته من اساتذتى الافاضل بارك الله فيهم 

لا تجعل المرفقات داخل قاعدة البيانات الافضل الاحتفاظ بهم بمجلد القاعدة للابتعاد عن مشاكل تضخم حجم القاعدة مع الوقت 

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

وان شاء الله تعالى وبأمر الله عندى الحلين

تم تعديل منذ 11 دقائق بواسطه ابا جودى

بارك الله فيك

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

تم تعديل سبتمبر 2, 2019 بواسطه نسيم الروح الروح

[ابو جودي]

ابشر ان شاء الله

الان سوف اقوم بتجهيز القاعدة المطلوبة

بعد قليل اوافيكم بما يشرح فؤادك 

[صالح حمادي]

السلام عليكم

عودة ميمونة أخي أبا جودي

إليك كود إضافة المرفقات لجدول:

On Error Resume Next
DoCmd.Save
Dim i As Integer
Dim txtpath As String
Dim rsPictures
Dim db As DAO.Database
Dim rsEmployees As DAO.Recordset
'Dim rsPictures As DAO.Field
i = CurrentRecord - 1
With Application.FileDialog(1)
        .AllowMultiSelect = False
        .Title = "ÇÎÊÑ ãßÇä ÇáÍÝÙ"
        If .Show = -1 Then
           txtpath = .SelectedItems.Item(1)
        End If
End With

'------------------------------------------
Set db = CurrentDb
   Set rsEmployees = db.OpenRecordset("tbl")
rsEmployees.Move (i)
   rsEmployees.Edit
   Set rsPictures = rsEmployees.Fields("attach1").Value
   rsPictures.AddNew
   rsPictures.Fields("FileData").LoadFromFile txtpath
   rsPictures.Update
   rsEmployees.Update
Set rsEmployees = Nothing
Set rsPictures = Nothing
Me.Refresh

و هذا كود الحذف:

On Error Resume Next
DoCmd.Save
Dim i As Integer
Dim txtpath As String
Dim rsPictures
Dim db As DAO.Database
Dim rsEmployees As DAO.Recordset
i = CurrentRecord - 1

'------------------------------------------
Set db = CurrentDb
   Set rsEmployees = db.OpenRecordset("tbl")
   rsEmployees.Move (i)
   rsEmployees.Edit
   Set rsPictures = rsEmployees.Fields("attach1").Value
   rsPictures.Delete
   rsEmployees.Update
Set rsEmployees = Nothing
Set rsPictures = Nothing
Me.Refresh

مع العلم أن tbl هو اسم الجدول و attach1 هو اسم الحقل و هذا مرفق للتوضيح.

attach.rar

[نسيم الروح الروح]

بارك الله فيكم وشكراً لكم اساتذتي الاكارم

لكن سؤال بسيط ..

عند اضافة مرفق كما في مثال استاذ صالح وبعد تحميل المرفق يتم اضافته كما هو مطلوب لكن هل يمكن تعديل الكود بحيث عند الضغط على اضافة مرفق مرة اخرى ان ينحذف المرفق القديم ويوضع مكانه المرفق الحديث وذلك منعاً لوجود صورتين او مرفقين في المربع ؟؟

وهل ممكن ان ينحصر اختيارنا على الصور فقط،دون الملفات مثل الورد او pdf

شكرا لكم مرة اخرى على مجهودكم وردكم وبارك الله فيكم

تم تعديل سبتمبر 2, 2019 بواسطه نسيم الروح الروح

[صالح حمادي]

جرب هذا التعديل

attach.rar

[نسيم الروح الروح]

4 دقائق مضت, صالح حمادي said:

جرب هذا التعديل

شكراً لك استاذي الكريم صالح

الجزئية الثانية تم تعديلها ووضع الاختيار محصور على الصور فقط وتم حل المشكلة هذه لكن .. عند الضغط على زر اضافة مرفق فان تم اختيار مرفق فسوف يزال القديم وان لم يتم اختيار المرفق فسوف يزيل كل المرفقات في المربع..

بمعنى اخر المطلوب اذا تم الضغط على اضافة مرفق ولم يتم اختيار مرفق فيبقى على المرفق القديم وان تم اختيار مرفق فيزال المرفق القديم ويتم استبداله بالمرفق الذي اخترناه ..

اتمنى ان يكون شرحي كافي وشكرا لك استاذي الكريم

[صالح حمادي]

تفضل

 

إضافة و حذف مرفقات.rar

[نسيم الروح الروح]

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

وشكرا لكم على مجهودكم وردودكم

[ابو جودي]

واثراء للموضوع طالما سبقنى استاذى الجليل الاستاذ @صالح حمادي 

هذه فكرة على طريقة استاذى الجليل ومعلمى القدير الاستاذ @jjafferr 

حمل الصورة داخل القاعدة وليس مرفق والقاعدة المرفقة بتنسيق 2003 

افتح القاعدة فى مجلد فارغ

ولاحظ وجود الشعار فى النموذج
اذهب للمجلد الذى وضعت به القاعدة تجد مجلدات تم اضافتها وبداخلها الشعار 

امسح الشعار وقم باغلاق وفتح القاعدة وشاهد السحر

قم بتغيير الشعار مهما كان اسمه ومهما كانت صيغة الملف jpg . png bmp ارجع الى المجلدات تجد الشعار الجديد وحذف القديم واستبداله داخل القاعدة مهما كان اسم الشعار دون ادنى تدخل من المستخدم 

Logo Company.mdb

اعتذر للتأخير 

كان وقت الصلاة

[ابو جودي]

اعتذر ما قدمته فى المرفق كان التصور الذى جال بخاطرى انا ولم انتبه للمناقشات التى دارات مع استاذى الحبيب وتقريبا بفضل الله كل شئ موجود

وهذا فقط ما كان ينقص المرفق حيث تم تعديل الكود ليتم التصفية فقط على الصور دون غيرها اثناء تغير صورة الشعار  

Logo Company (Up 2).mdb

[ابو جودي]

منذ ساعه, صالح حمادي said:

السلام عليكم

عودة ميمونة أخي أبا جودي

استاذى ومعلمى واخى الحبيب جزاكم الله خيرا 

اشهد الله تعالى اننى احبكم جميعا فى الله ولوجه الله تعالى  

تم تعديل سبتمبر 2, 2019 بواسطه ابا جودى

[نسيم الروح الروح]

1 ساعه مضت, صالح حمادي said:

تفضل

السلام عليكم اساتذتي

تحياتي لك استاذ صالح لكن الملف يأخد الصور فقط من نوع JPG الرجاء تعديل الكود ليأخذ تلك الصيغ :

JPG.   png.  bmp.  gif. jpg. wmf.

حاولت تعديله ولم افلح 😰

تم تعديل سبتمبر 2, 2019 بواسطه نسيم الروح الروح

[ابو جودي]

وذلك تعديل جديد لعرض الشعار فى كل زوايا القاعدة

imgLogo.Picture = MyLogo()

على ان يتم استبدل كلمة  imgLogo

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

 

Logo Company (Up 3).mdb

[نسيم الروح الروح]

يعطيك العافية استاذ ابا جودى وبارك الله في علمك وعملك وتحية لكل الاساتذة الاكارم على المساعدة

وشكراً لكم

[ابو جودي]

9 دقائق مضت, نسيم الروح الروح said:

السلام عليكم اساتذتي

تحياتي لك استاذ صالح لكن الملف يأخد الصور فقط من نوع JPG الرجاء تعديل الكود ليأخذ تلك الصيغ :

JPG.   png.  bmp.  gif. jpg. wmf.

حاولت تعديله ولم افلح 😰

وهذا ما تريده  على مرفق استاذى الحبيب واخى الاستاذ @صالح حمادي 

ولكن لم اضف ال gif لانها لن تتحرك 

إضافة و حذف مرفقات.accdb

[صالح حمادي]

الان, ابا جودى said:

وهذا ما تريده  على مرفق استاذى الحبيب واخى الاستاذ @صالح حمادي 

ولكن لم اضف ال gif لانها لن تتحرك 

شكرا أخي ابا جودي

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

.Filters.Add "IMAGE Files", "*.png, *.bmp, *.jpg, *.wmf"

 

[نسيم الروح الروح]

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

وشكراً لكم

[صالح حمادي]

الان, نسيم الروح الروح said:

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

وشكراً لكم

العفو أخي وفقك الله إلى ما يحبه و يرضاه إن شاء الله