ابو جودي

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

مبدئيا دعنا نرسي بعض القواعد - بفضل الله ولله الحمد رزقني الله سعة بال وإصرار ويعلم الله لا ابخل لا بجهدي ولا بأفكاري ولا بوقتي وتابع ردودي ومشاركتي مع أخواني - انا لا املك أي برامج لكتالوجات عرض صور ولا قمت بها من قبل ولو اننى سوف اقتصر في إجابتي على طلبك فقط عرض صورة فى الفاتورة او امر الإنتاج او حتى 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

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

سوف تكون بهذا الشكل استبدل [DateEntered] بـ الدالة Format([DateEntered],"dd/mm/yyyy")

استخدم الكود الاتى Fix(100*[Field Name])/100 او ضع الكود الاتى فى موديول وهذا ما افضله لما فيه من مرونة Public Function SpltDta(ByVal FieldName As String, ByVal intNo As Integer) SpltDta = Left(FieldName, InStr(1, FieldName, ".") + intNo) End Function ويتم استدعاؤه من خلال بحيث ان Field Name اسم الحقل فى الاستعلام او مربع النص لو نموذج والرقم 2 هو عدد الارقام التى تريدها من بعد العلامة العشرية يمكنك زيادته او نقصانه حسب متطلباتك SpltDta([FieldName],2) ------------------- وللتاريخ كاملا استخدم الكود Format([FieldDate],"dd/mm/yyyy")

بالنسبة للرقم العشرى لابد من سؤال بناء عليه تتحدد الاجابة هل تريد التقريب الى اقرب رقم صحيح سواء اقل او اعلى ام تريد فقط اول رقمين بعد العلامة العشرية دون التقريب بالنسبة للتاريخ استخدم الدالة format لحذف رقمين من العام Format([FieldDate],"dd/mm/yy") وان اردت العام كاملا استخدم الكود الاتى لانى لا افهم ما تريد الحصول عليه تحديدا Format([FieldDate],"dd/mm/yyyy")

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

اتفضل يا استاذ @abouelhassan abouelhassan.accdb

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

اتفضل يا استاذ @at_aziz قمت بعمل الروتين الآتي ليقوم بإنشاء حقل لمسار الصورة الخاصة بالـ QR انظر الى الاستعلام qryData وهو الان مصدر بيانات كل من النموذج والتقرير تم انشاء المسار حسب الروتين من خلال الـ ID لأنني مسبقا جعلت صورة الـ Qr يتم انشاءها بناء على قيمة حقل الـ ID طبعا حضرتك تقدر تغير الى اى حقل غير الـ ID بس يكون يونيك طبعا بعد ذلك جعلت مصدر بيانات الصورة هو الحقل الجديد الذى تم انشاءه في الاستعلام Public Function QrImgPath(ByVal intNo As Integer) QrImgPath = CurrentProject.Path & "\Program Files\QR images\" & Dir(CurrentProject.Path & "\Program Files\QR images\" & intNo & ".png") End Function ---------------------- ويا استاذ @moamen salem تم التعديل فى المرفق كذلك حتى تحصل على النتيجة مؤمن سالم حسن عبداللطيف من خلال منشئ التعبير وليس من خلال الاكواد 386392877_GenerateOrReadQRCodeImageV.03.mdb