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

[Ali.Mohammed]

السلام عليكم

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

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

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

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

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

8.accdb

[qathi]

  في 30‏/11‏/2018 at 15:57, Ali.Mohammed said:

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

Expand  

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

عمل الملف بالتالي: 
أولاً:  يتم ادخال الاسم 
ثانياً: الضغط على زر أضافة يتم أنشاء مجلد لأول مرة باسم 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.rarFetching info...

[Ali.Mohammed]

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

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

[ابو جودي]

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

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

PIC.mdb

[الحلبي]

الاخ /qathi

  اقتباس

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

Expand  

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

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

  اقتباس

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

Expand  

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

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

[Ali.Mohammed]

شكرا للتعديل

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

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

[ابو جودي]

  في 2‏/12‏/2018 at 09:45, Ali.Mohammed said:

شكرا للتعديل

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

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

Expand  

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

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

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

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

[Ali.Mohammed]

  في 2‏/12‏/2018 at 11:00, ابا جودى said:

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

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

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

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

Expand  

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

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

[ابو جودي]

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

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

[Ali.Mohammed]

تمام

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

شكرا

 

  في 2‏/12‏/2018 at 11:00, ابا جودى said:

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

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

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

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

Expand  

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

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

[ابو جودي]

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

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

 

[qathi]

  في 2‏/12‏/2018 at 05:56, ابا جودى said:

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

Expand  

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

  في 2‏/12‏/2018 at 06:26, حلبي said:

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

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

Expand  

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

[Ali.Mohammed]

 

  في 2‏/12‏/2018 at 14:39, qathi said:

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

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

Expand  

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

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

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

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

[ابو جودي]

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

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

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

 

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

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

 

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

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

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

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

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

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

PIC.zip

[Ali.Mohammed]

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

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

 

[qathi]

  في 3‏/12‏/2018 at 13:03, ابا جودى said:

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

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

Expand  

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

  في 3‏/12‏/2018 at 13:03, ابا جودى said:

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

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

Expand  

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

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

[ابو جودي]

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

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

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

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

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

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

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

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

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

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

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

[Ali.Mohammed]

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

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

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

[ابو جودي]

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

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

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

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

[Ali.Mohammed]

  في 3‏/12‏/2018 at 18:54, ابا جودى said:

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

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

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

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

Expand  

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

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

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

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

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

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

9_Backup.rar

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

[ابو جودي]

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

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

PIC.zip

[Ali.Mohammed]

  في 11‏/12‏/2018 at 11:50, ابا جودى said:

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

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

PIC.zipFetching info...

Expand  

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

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

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

 

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

[ابو جودي]

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

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

PIC_up2.mdb

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

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

[ابو جودي]

  في 12‏/12‏/2018 at 06:28, محمد التميمي said:

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

Expand  

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

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