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

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

السلام عليكم

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

شكراً لكم

[ابو جودي]

  في 2‏/9‏/2019 at 15:17, نسيم الروح الروح said:

السلام عليكم

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

شكراً لكم

Expand  

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

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

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

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

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

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

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

  في 2‏/9‏/2019 at 16:51, ابا جودى said:

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

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

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

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

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

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

Expand  

بارك الله فيك

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

تم تعديل سبتمبر 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.rarFetching info...

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

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

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

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

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

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

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

[صالح حمادي]

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

attach.rarFetching info...

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

  في 2‏/9‏/2019 at 17:55, صالح حمادي said:

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

Expand  

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

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

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

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

[صالح حمادي]

تفضل

 

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

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

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

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

[ابو جودي]

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

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

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

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

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

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

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

Logo Company.mdbFetching info...

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

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

[ابو جودي]

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

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

Logo Company (Up 2).mdbFetching info...

[ابو جودي]

  في 2‏/9‏/2019 at 17:26, صالح حمادي said:

السلام عليكم

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

Expand  

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

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

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

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

  في 2‏/9‏/2019 at 18:06, صالح حمادي said:

تفضل

Expand  

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

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

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

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

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

[ابو جودي]

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

imgLogo.Picture = MyLogo()

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

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

 

Logo Company (Up 3).mdbFetching info...

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

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

وشكراً لكم

[ابو جودي]

  في 2‏/9‏/2019 at 19:53, نسيم الروح الروح said:

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

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

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

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

Expand  

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

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

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

[صالح حمادي]

  في 2‏/9‏/2019 at 20:03, ابا جودى said:

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

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

Expand  

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

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

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

 

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

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

وشكراً لكم

[صالح حمادي]

  في 2‏/9‏/2019 at 20:24, نسيم الروح الروح said:

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

وشكراً لكم

Expand  

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