ابو جودي

المرفق الجديد -------------------- تم اضافة عدة استعلامات لعمل نموذج مستمر لعرض الصور على هيئة كتالوج النموذج الخاص بعرض الصور اسمه frmImages رجاء اضف اكثر من 10 صورة وافتح نموذج frmImages وهذه النتيجة من تجربتى Photo Catalog v3.1.mdb

اتفضل

اولا دى رسالة تقيد بنجاح تنفيذ العملية انظر بجوار قاعدة الملبيانات تجد مجلد باسم Library Files افتحه تجد بداخلة مجلد اخر باسم Pictures افتحه تجد كل الصور التى تريد اضافتها يمكن ان تضيف اكثر من صورة فى المرة الواحدة والان بعد ان تم اضافة الصور الى المجلد انظر الى اسم الصورة تجدها بدأت برقم الموديل الخاص بالمنتج من واقع النموذج حسب السجل الحالى انظر الان فى قاعدة البيانات الى الجدول باسم tblImages تجد نفس عدد الصور فى الجدول مساوى لعددها فى المجلد الخاص بالصور وهذا نصف المسار الذى سوف يتم استخدامة مستقبلا ان شاء الله الان حاول اضافة نقس الصور مرة اخرى لن يتم عمل تكرار للصور لا فى المجلد ولا فى الجدول حتى لو حاولت اضافة نفس الصورة او نفس الصور مليون مرة

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

طيب تمام اذا حاببها توكل على الله بس اتفضل اول المشاكل فى هذا المرفق انا الان اعمل على اوفيس 64 بيت تمام بالتوفيق بس انا قدمت لك تصميم كتالوج تفصيلى بالفعل لمنتج بكافة وادق البيانات كتالوج كما يقول الكتاب وان انتظرت كنت سوف تجد ان شاء الله نموذج يعرض الصور بشكل مدهش حسب الفكرة التى تدور ببالى والتى لازلت قيد الدراسة والتفنيد والتحليل ولكن ردك اثلج قلبى واراح عقلى وبالى

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

والان المرفق الجديد وتم مراعاة الآتي عدم الاعتماد على المكتبات المدمجة بالأكسس والتي تؤدى الى مشاكل باختلاف النسخ اذا تم التعامل مع نسخ اقل في الإصدار عدم الاعتماد كذلك على دوال الـ API والتي تسبب مشكل مع اختلاف انوية الاكسس X32 , x64 إمكانية ارفاق أي عدد من الصور الى مجلد يتم انشاءه آليا بجوار القاعدة في نفس مسارها دون تكرار الصور عند محاولة تكرارها الصور سوف تبدأ دائما برقم الموديل إضافة أسماء الصور في الجدول الخاص بها وهو الذى سوف يتم الاعتماد عليه مستقبلا في عرض الصور على هيئة كتالوج والذى سوف يتم من خلاله استعراض الصور في زوايا البرنامج Photo Catalog v2.4.mdb

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

مبدئيا دعنا نرسي بعض القواعد - بفضل الله ولله الحمد رزقني الله سعة بال وإصرار ويعلم الله لا ابخل لا بجهدي ولا بأفكاري ولا بوقتي وتابع ردودي ومشاركتي مع أخواني - انا لا املك أي برامج لكتالوجات عرض صور ولا قمت بها من قبل ولو اننى سوف اقتصر في إجابتي على طلبك فقط عرض صورة فى الفاتورة او امر الإنتاج او حتى 100 نموذج في وقت واحد كنت اجبتك منذ امد بعيد ولكن احاول جاهدا تقديم العمل على اكمل وجه وبابسط الجهد على المستخدم وباكثر المرونة فى التعامل او امكانية التعديل ان وجد مجال للتعديل مستقبلا لاننى احسب كل خطوة مستقبلية قد نحتاج اليها وانظر الى المرفق الاول وسوف ترى بنفسك يعلم الله ضيق وقتى , وحالتي الصحية وعلى الرغم من ذلك والله انا لازلت افكر وادر واحلل وارتب افكارى لاضع لك اللبنة الاولى التى تبنى عليها قاعدتك بعد ذلك بكل سهولة ان شاء الله اما بخصوص اضافاتكم للقاعدة اولا والله اصعب شئ النظر او التعديل على قاعدة الغير لانها تحتاج لتحليل كل خطوة للوقوف على فكر صاحبها وثانيا فى الوقت الحالي صعب جدا جدا جدا لاحظ عدم تواجدي فى المنتدى بصفة مستمرة مثلما عهدتموني من قبل والله امسيت لا املك رفاهية الوقت

البداية اعتذر لعدم لعدم التنسيق اكثر من ذلك نظرا لضيق وقتي في انتظار رايك لان هذا الجزء ان شاء الله يعد بمثابة حجر الأساس Photo Catalog.mdb

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

ممكن الكود المستخدم Encoding and decoding فى الفيجوال طيب اشوفه بس رجاء اريد كود مكتوب وليس مرفق

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

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

هذا كلام لا غبار عليه لذلك عندما يسأل احد عن تعلم لغة برمجة حقيقية وبم يبدأ دائما اقول له #C

يعنى المقصود تحكى لنا عن شئ بالقاعدة يدل على انك صاحب التصميم بس للتأكد من انها ملك حفظا للحقوق وطبعا كما اشار استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ جعفر الجواب لن يكون على العام في هذه المشاركة 🙂 لذلك ارسلت لكم رسالة خاصة طلبت منكم رفع القاعدة على اى موقع ميديافاير توب4توب او حتى جوجل درايف وارسل لى الرابط يمكننى ان شاء الله مساعدتك قدر الامكان

لسه والقادم اجمل ...ده لسه فيه ...... بلاش احرق لكم المفاجآت

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

فـ إيه بئه

اتفضل بسيطة غير للكود الاتى On Error GoTo Oops Dim db As dao.Database: Set db = CurrentDb() Dim rs As dao.Recordset: Set rs = db.OpenRecordset("file-1") Dim intSpID As Long: intSpID = 0 With rs .MoveFirst Do intSpID = intSpID + 1 rs.Edit rs![الرقم الحسابي] = 11 & intSpID rs.Update .MoveNext Loop Until .EOF .Close End With db.Close function_exit: Set rs = Nothing Set db = Nothing Exit Sub Oops: ' Handle the errors here GoTo function_exit

اتفضل قم بوضع هذا الكود فى حدث عند النقر على زر امر فى نموذج On Error GoTo Oops Dim db As dao.Database: Set db = CurrentDb() Dim rs As dao.Recordset: Set rs = db.OpenRecordset("file-1") Dim intSpID As Long: intSpID = 110 With rs .MoveFirst Do intSpID = intSpID + 1 rs.Edit rs![الرقم الحسابي] = intSpID rs.Update .MoveNext Loop Until .EOF .Close End With db.Close function_exit: Set rs = Nothing Set db = Nothing Exit Sub Oops: ' Handle the errors here GoTo function_exit

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

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

جرب المرفق ووافنى بالنتيجة GenerateOrReadQRCodeImageV.03.mdb.zip

- ممكن مرفق لو تكرمت