Moosak

جميل جدا ما شاء الله .. هذا هو التفكير خارج الصندوق 🙂 تخلينا نعيد التفكير في إعادة تطوير برامجنا السابقة 😅

وعليكم السلام ورحمة الله وبركاته مهندسنا 🙂 وأنا من هؤلاء الهواة 😅🖐🏼️ تجربة جميلة أبا جودي ورحلة ممتعة 🌹 أضم صوتي إلى صوت المهندس محمد عصام @ابو جودي .. ولا نريد أن نشق عليك مهندس @SEMO.Pa3x 🙂 🌹

جميعكم خبراء في نظري .. وجميعنا نتبادل خبراتنا ونكمل بعضنا .. 🌷 كل الحب والمودة لكم 🙂🌹

ما شاء الله فتحت .. كيف عالجتها أستاذنا أبو خليل ؟

ما شاء الله تبارك الله .. كنت حاس أنه فيه طبخة تنعمل في الكواليس 😂 من يوم الأستاذ جعفر يناديني أخي الخبير 😅 بصراحة متفاجئ من الموضوع .. وكان يكفيني لقب شغوف .. لأنه فعلا يعبر عن شعوري 😄 الحقيقة أشكر لكم جميعاً هذا الوسام وحسن الضن وعلى قمة الهرم أساتذتي الأعزاء ( الخبراء الفعليين ) الأستاذ جعفر @jjafferr الدكتور @محمد طاهر الأستاذ @ابو جودي وجميع السادة الأساتذة الأجلاء فردا فردا .. ممن لازلت أنهل من معينهم وأتعلم من خبراتهم ولا ننكر فضلهم علينا .. 🌺🌹🌷 ويكفيني شرفاً خدمتكم بما يمن الله به .. وأن أزاحمكم بالركب في هذا الصرح الشامخ .. ☺️🌹 ودمتم سالمين ✋🏻

الشكر لكم جميعاً .. ومنكم أتعلم 😊🌷🌹

تلميذك يا كبير المعلمين 😄

قمة الروعة والجمال باش مهندس 😊🌷🌹 لك جزيل الشكر وعظيم الامتنان

السلام عليكم ورحمة الله وبركاته .. وبدون مقدمات 🙂 يطيب لي أن أضع بين يديكم برنامج ( مكتبة الأكواد الخاصة ) كان الهدف من تصميم البرنامج أن يخدمني بشكل خاص وذلك لحفظ الأكواد التي أحتاجها بشكل دائم وتجميعها في مكان واحد وتسهيل عملية البحث والوصول إليها بكل سهولة .. والبرنامج به تجميعة طيبة من الأكواد بعضها مما أبدعه الشباب هنا وبعضها مما صنعتها بنفسي ومنها من مواقع مختلفة .. والآن أحببت أن أشارككم بها وأن تعم الفائدة للجميع 🙂 البرنامج طبعا مفتوح بأحلاسه وأقلاسه ( بنماذجه وأكواده ) 😁 ويوجد فيه خاصية البحث ، وإدراج مرفقات (خارجية طبعا ) ومتاح للتطوير والتعديل والزيادة وتطويعه حسب احتياجاتكم .. 🌹 :: ولا تنسوني من صالح دعواتكم :: Pleeeeeeeeeeeeeeese 😄🤲🌷🌹 (واجهة البرنامج) (نافذة تفاصيل الكود) أعتقد البرنامج ما محتاج شرح واضح وضوح الشمس 😁 ::والتحميل في المرفقات :: مكتبة الأكواد الخاصة.accdb

شكرا جزيلا لك أستاذي العزيز وبارك الله فيك ..😊🌹

لا أستطيع أن أقول لايمكن تنفيذه أخي طارق .. فلكل مشكلة حل .. 😉👌🏻 ولعل المبدعين في المنتدى لهم رأي في الموضوع .. 🙂

أتوقع أن الحل الذي تريده أخي أزهر موجود هنا : https://www.engram9.info/access-2007-vba/using-ado-to-set-the-database-password.html

وصباحك سعيد أخي طارق ،، ليست هناك أي مشكلة مع الحقل n_ istimara بل مع الحقل istimaracode كما وضحت لك .

دالة Dir ترجع لك اسم الملف اللي تلاقيه في الباث المعطى لها . ودالة Len تعطيك عدد حروف الملف الذي ترجعه دالة Dir . فإذا تم إيجاد الملف المطلوب سيتم حساب عدد حروفه بالدالة Len .. أما إذا لم تجد الملف فسيكون عدد الحروف (صفر) .. لذلك أخبرنا دالة If إذا كان عدد الحروف أكبر من صفر ( يعني الملف موجود ) نخبرها أن تفتح الملف الذي في الرابط .. وإذا كان عدد الحروف = (صفر) فهذا يعني أن الملف غير موجود ، فتعطينا رسالة تخبرنا بذلك .. مرجع : https://analystcave.com/vba-reference-functions/vba-file-functions/vba-dir-function/

أنا الحين مخلي الموضوع الرئيسي على جنب ومركز على جمال وروعة التصميم ما شاء الله .. 😊🌷 جميل وخفيف ومرتب ومريح للعين ، صلاة النبي عليك 😄

أهلا أخي أزهر .. يصلح تحط حتى صفر واحد 🙂 أهم شي مكان يتعرف عليه البرنامج على أنه مكان الأرقام .. والبرنامج بيواصل معاك الترقيم عادي حتى لو وصل مليون 😅 وأنا حطيت خمسة أصفار كمثال فقط عشان يطلع الترقيم بشكل جميل 🙂

اللهم آمين وإياك أخي وليد 🙂🤲

تفضل أخي أبو عبدالله .. هذا الكود بعد التعديل : Private Sub Command8_Click() On Error Resume Next If Len(Dir(Me.path, vbDirectory)) > 0 Then FollowHyperlink (Me.path) ' Me.Command8.HyperlinkAddress = Trim(Me![path]) Else MsgBox "فولدر هذا اليوم غير موجود سوف يتم إنشاؤه تلقائيا", vbOKOnly, "تنبيه!" MkDir (Me.path) ' هذا السطر يجعل البرنامج يقوم بإنشاء الفولدر المفقود FollowHyperlink (Me.path) End If End Sub في حال تعذر وجود الملف يقوم البرنامج بإنشاء فولد جديد محل الفولدر المفقود . لإلغاء هذه الخاصية .. أحذف هذين السطرين من الكود وعدل الرسالة 🙂 MkDir (Me.path) ' هذا السطر يجعل البرنامج يقوم بإنشاء الفولدر المفقود FollowHyperlink (Me.path) ayam.rar

وعليكم السلام ورحمة الله وبركاته .. اسم الفولدر مكتوب غلط .. مكتوب Satruday بدل Saturday

وعليكم السلام ورحمة الله وبركاته .. أهلا وسهلا بك أخي العزيز في منتدانا 🙂 أنظر هنا : أو قم بطرح موضوعك هنا : https://www.officena.net/ib/forum/157-إعلانات-شخصية-بأجر-للاعضاء/

وعليكم السلام ورحمة الله وبركاته أخي وليد .. نعم هناك عدة حلول لهذه المشكلة .. 1- يمكنك إعطاء الأرقام الفريدة للسجلات عن طريق الكود وليس عن طريق الترقيم التلقائي .. مع جعل حقل الترقيم هو المفتاح الأساسي لتجنب التكرار ..( وستجد في المنتدى العشرات من المواضيع التي تتكلم عن طريقة عمل ترقيم تلقائي مخصص ) وهذه الطريقة يصلح تطبيقها في النماذج فقط وليس في الجداول مباشرة . 2- الطريقة الثاني عن طريق الترقيم التلقائي الخاص بالأكسس ، بعدما تضيف حقل الترقيم التلقائي تنزل لقائمة الخصائص في الأسفل ، تذهب ل(تنسيق أو Format ) وتكتب التنسيق بهذه الطريقة : ARCH"00000" لجدول الأرشيف مثلا .. و STOR"00000" لجدول المخازن مثلا .. وهكذا .. والنتيجة ستكون هكذا : طريقة كتابة الصيغة في الخصائص : لاحظ أن علامتي التنصيص " " توضعان على النص ، والأصفار هي المكان المخصص للترقيم التلقائي . وبهذه الطريقة ستضمن أن لكل جدول ترقيمه الخاص ..

وعليكم السلام ورحمة الله وبركاته .. 1- اعمل جدول يتم تخزين فيه عدد المرات اللي تم فتح البرنامج فيها ، يتم تحديث الرقم باستعلام تحديث يشتغل عند فتح القاعدة كل مرة .. 2- كل مرة يفتح البرنامج يشيك على الرقم المخزن .. إذا وصل لحد معين أنت تحدده ، يقفل البرنامج 🙂

أخي طارق لتنفيذ هذه الفكرة مع اشتراط وجود ال istimaracode في كل سجل مضاف ولأنه هو المفتاح الأساسي للجدول فسيكون الحل بهذه الطريقة : 1- بعد أن تملأ الحقل n_istimara ( ولنفترض أنك أدخلت الرقم 3 ) .. 2 - سيقوم الكود بإضافة سجل جديد في النموذج الفرعي ، قيمة m = 1 ، بعدها سيقف الكود عند istimaracode لكي تعبيه بماكينة الباركود .. 3 - بعدها سينتقل الكود إلى سجل جديد ، ستكون قيمة m = 2 ، بعدها سيقف الكود عند istimaracode لكي تعبيه بماكينة الباركود من جديد .. 4 - بعدها سينتقل الكود إلى سجل جديد ، ستكون قيمة m = 3 ، بعدها سيقف الكود عند istimaracode لكي تعبيه بماكينة الباركود من جديد .. وتكتمل العملية . هكذا في كل مرة .. هل يناسبك العمل بهذه الصورة ؟

وعليكم السلام ورحمة الله وبركاته عمي جعفر 🌹😊 هل الكلام موجه لأبو خليل ؟ أم لكلينا ؟ 😅

العفو أخي العزيز .. 🙂 لازلت أنتظر رأي ومقترحات السادة الخبراء والأعضاء الأفذاذ للتطوير وسماع الآراء بهدف إيجاد حلول متكاملة تخدم المطورين والمبرمجين .. ولعل الاستماع للتجارب والمواقف المختلفة للأعضاء يفيدنا في تلافي الأخطاء عند التصميم ويسهل علينا العمل مستقبلا . 😊