عمل برنامج للصور

[Ali.Mohammed]

السلام عليكم

لو سمحتم انا شغال على برنامج هيكون فكرتة انو كتالوج شامل لمجال الالمونيوم

بس فكرة البرنامج دة معتمدة على الصور

عايز اعمل زرار لاضافة الصور ودمجها فى البرنامج نفسة

والصور المضافة الجودة تفضل ثابتة

النموذج المراد الشغل علية اسمو (فيبر)

8.accdb

[qathi]

في ٣٠‏/١١‏/٢٠١٨ at 18:57, Ali.Mohammed said:

عايز اعمل زرار لاضافة الصور ودمجها فى البرنامج نفسة

تفضل سيفيد هذا الملف في عملك...

عمل الملف بالتالي: 
أولاً:  يتم ادخال الاسم 
ثانياً: الضغط على زر أضافة يتم أنشاء مجلد لأول مرة باسم image في نفس مسار ملف الاكسس وبعد أختيار الصورة يتم نسخ الصورة بالمجلد image بنفس الاسم التي تم أضافته ويتم تخزين المسار الجديد للصورة بالجدول 

وهذ الكود المضاف في زر اضافة

On Error Resume Next
Dim fs, cf, strFolder
strFolder = CurrentProject.Path & "\" & "Image"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(strFolder) = False Then
Set cf = fs.CreateFolder(strFolder)
If fs.FolderExists(strFolder) = True Then
MsgBox "'" & strFolder & "' تم انشاء المجلد في المسار التالي "
Else
MsgBox "'" & strFolder & "'لم يتم انشاء المجلد"
End If
End If

   ' Requires reference to Microsoft Office 14.0 Object Library.
Dim fso As Object
Set fso = CreateObject("scripting.filesystemobject")
   Dim fDialog As Office.FileDialog
   Dim varFile As Variant
    Dim destpath As Variant
   ' Clear listbox contents.
   Me.picfile = ""

   ' Set up the File Dialog.
   Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

   With fDialog

      ' Allow user to make multiple selections in dialog box
      .AllowMultiSelect = False

      ' Set the title of the dialog box.
      .Title = "رجاءً قم بتحديد مكان الصورة"

      ' Clear out the current filters, and add our own.
      .Filters.Clear
      .Filters.add "png image", "*.png"
      .Filters.add "jpg image", "*.jpg"
      .Filters.add "jpeg image", "*.jpeg"
      .Filters.add "All Files", "*.*"

      If .Show = True Then

         For Each varFile In .SelectedItems
         
       
        destpath = Application.CurrentProject.Path & "\" & "Image" & "\" & Me.NameS & "f." & Right$(varFile, Len(varFile) - InStrRev(varFile, "."))
           FileCopy varFile, destpath
            Me.picfile = destpath
            Me.Refresh
            
         Next

      Else
         MsgBox "You clicked Cancel in the file dialog box."
      End If
   End With
   Exit Sub
err:
   MsgBox err.Description & " " & err.Number

=============

أن أفادك .. فدعوة لي ولوالدي

 

مرفق الملف:

PName.rar

[Ali.Mohammed]

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

ربنا يبارك فيك وفى اهلك 

[ابو جودي]

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

اولا بعد اذن الاستاذ الكريم @qathi  قمت ببعد التعديلات الطفيفة جدا 

PIC.mdb

[الحلبي]

الاخ /qathi

اقتباس

ن أفادك .. فدعوة لي ولوالدي

اللهم ارحم والديك في الدنيا ولاخرة 

مثال جميل جدا جزاك الله خيرا

اقتباس

قمت ببعد التعديلات الطفيفة جدا 

استاذنا / ابو جودي

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

[Ali.Mohammed]

شكرا للتعديل

ولكن الصور كدة هتكون محفوضة فى ملف اخر وانا اريدها داخل البرنامج

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

[ابو جودي]

منذ ساعه, Ali.Mohammed said:

شكرا للتعديل

ولكن الصور كدة هتكون محفوضة فى ملف اخر وانا اريدها داخل البرنامج

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

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

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

ان كان هناك اجهزة كثيرة يتم فصل الجداول لتكون على جهاز سيرفر وباقى الكائنات على قاعدة ويتم التعامل باضافة الصور الى السيرفر ويتم استعراض البيانات بالصور باستدعائها من السيرفر

لو عجبتك الفكرة فقط اخبرنى وان شاء الله اقوم بالتعديل اللازم ان اردت ذلك

[Ali.Mohammed]

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

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

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

ان كان هناك اجهزة كثيرة يتم فصل الجداول لتكون على جهاز سيرفر وباقى الكائنات على قاعدة ويتم التعامل باضافة الصور الى السيرفر ويتم استعراض البيانات بالصور باستدعائها من السيرفر

لو عجبتك الفكرة فقط اخبرنى وان شاء الله اقوم بالتعديل اللازم ان اردت ذلك

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

الفكرة عجبانى بس التنفيذ هيكون ازاى

[ابو جودي]

جارى العمل على التعديل اللازم ان شاء الله 

انتظر قليلا وابشر بالخير ان شاء الله

[Ali.Mohammed]

تمام

معلش هتعبك معايا

شكرا

 

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

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

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

ان كان هناك اجهزة كثيرة يتم فصل الجداول لتكون على جهاز سيرفر وباقى الكائنات على قاعدة ويتم التعامل باضافة الصور الى السيرفر ويتم استعراض البيانات بالصور باستدعائها من السيرفر

لو عجبتك الفكرة فقط اخبرنى وان شاء الله اقوم بالتعديل اللازم ان اردت ذلك

مع العلم انى عندى موقع takhsemat.com

هل هينفع يتعمل علية الشغل دة

[ابو جودي]

شوف هو موضوع الموقع ده ممكن او لا ممكن حضرتك على ما اخلص التعديلات الازمة تراجع موضوع الاستاذ @Elsayed Bn Gemy هو مشكورا جزاه الله خير تطرق لشرح هذا الموضوع هنا

اقراء الموضوع وان كانت استضافة موقعك تدعم التعامل مع الاكسس كما موضوع فى الشرح لهذا الموضوع ممكن عمل ذلك

 

[qathi]

8 ساعات مضت, ابا جودى said:

قمت ببعد التعديلات الطفيفة جدا 

لا عليك @ابا جودى أعمل مابدى لك .. 

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

اللهم ارحم والديك في الدنيا ولاخرة 

مثال جميل جدا جزاك الله خيرا

أمين .. شكراً أخي @حلبي

[Ali.Mohammed]

 

8 ساعات مضت, qathi said:

لا عليك @ابا جودى أعمل مابدى لك .. 

أمين .. شكراً أخي @حلبي

شكرا على الملف والاهتمام

ولكن عندى استفسار هل من الممكن تغير مكان الحفظ

وكمان عايز اعمل اكثر من نموذج بس كل نموذج بياناتة خاصة بية

تم تعديل ديسمبر 2, 2018 بواسطه Ali.Mohammed

[ابو جودي]

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

اولا اعتذر جدا جدا جدا عن التاخير عليكم

انا فى العمل ومشغول جدا جدا جدا جدا جدا حتى اننى لم انم منذ الأمس حتى الان

 

انظر الى هذا المرفق ان شاء الله تعالى وستجد فيه ما يسرك ويسر السائلين والناظرين

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

 

واهداء خاص جدا جدا الى اخيى الحبيب الاستاذ @qathi 

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

اهدى ثمرة هذا العمل المتواضع اليكم فكنتم الاساس لمد يد العون لاخينا الحبيب @Ali.Mohammed  وان شاء الله اركم قريبا جدا

ونظرا لانى كثير الاسفار فى تلك الاونة قد لا استطيع الدخول كثيرا لذا انتهيت من التطوير والتعديلات على عجل اسال الله تعالى ان يكون فيها النفع والخير 

وقطعا لا انسي اخى وحبيبى الدكتور @حلبي من تقديم هذا العمل اهداء له ايضا فأحسست من متابعته للموضوع انه شغوف بهذه الافكار

احبكم فى الله واستودعكم الله تعالى

PIC.zip

[Ali.Mohammed]

شكرا جزيلا لك على اهتمامك

وربنا يعينك ويوفقك يارب

 

[qathi]

منذ ساعه, ابا جودى said:

اولا اعتذر جدا جدا جدا عن التاخير عليكم

انا فى العمل ومشغول جدا جدا جدا جدا جدا حتى اننى لم انم منذ الأمس حتى الان

اعانك الله ويسر أمرك

منذ ساعه, ابا جودى said:

واهداء خاص جدا جدا الى اخيى الحبيب الاستاذ @qathi 

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

أمين .. ولك بالمثل.. رحم الله الجميع واسكنا واياهم في جنة الخلد أن الله على ما يشاء قدير ..

شكراً لك أخي الأستاذ @ابا جودى على كلماتك الطيبة ... وعلى الملف  أطلعت عليه.. ما شاء الله عمل رائع واحترافي 

[ابو جودي]

السَلٱمٌ عـَلـْيگمّ-ۈرحـْمّـٌة ٱللـّہ ﯙبُرگـّاتہ

العفو منكم هذا فضل الله تعالي سبحان الله تعالي الذي هدانا وماكنا لنهتدي لولا ان هدانا الله عزوجل

الحمد لله تعالي الذي تتم بنعمته الصالحات

اخواني اثواحبابي في الله فصلا وكرما من يريد شرحا مصورا للتعامل مع هذه القاعدة فلا يتردد

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

ممكان عمل اكثر من مجلد لخزن الصور باكثر من مسار فقذ لابد من اختيار المسار المناسب ويتم التعامل معه تلقائيا ان شاء الله

للامانه لم اقم بالتجربة بالقدر الوافي 

ارجوكم ان وجدتم خيرا ان شاء الله فهذا فضل ربي

وان تعثرت وتعذرت في شئ فمني فاغفروا لي بحب وتحملوني بحلم جزاكم الله خيرا

ان شاء الله لي عودة قريبا لاتابع معكم با احباب رسول الله ( صل الله عليه وسلم )

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

[Ali.Mohammed]

@ابا جودى صراحة انا مش عارف اشكر حضرتك ازاى الف الف شكر وربنا يكرمك خير ان شاء الله

ولكن فى استفسار بسيط

عايز بند الاضافة يكون لكذا نموذج وكل نموذخ الصور تظهر فية تكون بتعتو بس هل فى امكانية للكلام دة

[ابو جودي]

اذا سمحت تشرح حضرتك عاوز ايه تحديدا

واتمني الشرح يكون هلي هيئة نقاط حتي ننتهي من نقطة تلو الاخري ان شاء الله

واعتذر بسبب الاخطاء الاملائية كنت اتحدث من الجوال اثناء عودتي من العمل وكنت بالسيارة

هههههه انها حقا مأساة الكتابة في هذا الوقت

[Ali.Mohammed]

في ٣‏/١٢‏/٢٠١٨ at 20:54, ابا جودى said:

اذا سمحت تشرح حضرتك عاوز ايه تحديدا

واتمني الشرح يكون هلي هيئة نقاط حتي ننتهي من نقطة تلو الاخري ان شاء الله

واعتذر بسبب الاخطاء الاملائية كنت اتحدث من الجوال اثناء عودتي من العمل وكنت بالسيارة

هههههه انها حقا مأساة الكتابة في هذا الوقت

انا اسف مخدتش بالى من رد حضرتك الا دلوقتى

اولا البرنامج دة هيكون كاتلوج للصور

واضافة الصور بالنسبة ليا صعبة

اولا عايز نموذج الاضافة يكون فية خيارات زى اللون ( احمر - اصفر - اسود - .....) النوع (فيبر - كيلادنج - uv)

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

وانا متاسف تعبك معايا

9_Backup.rar

تم تعديل ديسمبر 7, 2018 بواسطه Ali.Mohammed

[ابو جودي]

اتفضل اضفت لك تعديل الاكواد الخاص بالالوان 

اعتذر فى التأخر عليكم بسبب ضيق وقتى

PIC.zip

[Ali.Mohammed]

13 ساعات مضت, ابا جودى said:

اتفضل اضفت لك تعديل الاكواد الخاص بالالوان 

اعتذر فى التأخر عليكم بسبب ضيق وقتى

PIC.zip

شكرا لتعبك معايا @ابا جودى

بس فية مشكلة معايا حاليا

كل لما بجى ادوس ع زرار اضافة بيفتح الصفحة دى

 

تم تعديل ديسمبر 12, 2018 بواسطه Ali.Mohammed

[ابو جودي]

هى شغاله عندى تمام وعلى اكتر من جهاز كمان

طيب على العموم جرب المرفق هذا واخبرنى النتيجه

PIC_up2.mdb

[محمد التميمي]

احسنت اخي ابا جودي العزيز عمل يستحق التقدير والاحترام ( اخليك علة الراس) 

[ابو جودي]

8 ساعات مضت, محمد التميمي said:

احسنت اخي ابا جودي العزيز عمل يستحق التقدير والاحترام ( اخليك علة الراس) 

حزاكم الله خيرا

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