Moosak

ما هو المطلوب أخي وليد ؟ وحبذا إرفاق البرنامج أيضاً 🙂

العفو منكم جميعا .. أيها الإخوة الأعزاء .. 🙂🌹

الله يبارك فيك أستاذنا أبو عبدالله .. 🙂 وشكرا على كلماتك الطيبة 🙂

اعرض الملف برنامج ::🎁 📚(( مكتبة الأكواد الخاصة ))📚🎁 :: بسم الله الرحمن الرحيم أضع بين أيديكم برنامج :: (( مكتبة الأكواد الخاصة )) :: وهو عبارة عن حافظة شخصية للأكواد والملفات الخاصة بمبرمج الأكسس أو أي مبرمج آخر .. البرنامج به كم لا بأس به من الأكواد التي كنت أستخدمها في تصميم البرامج، بعضها من إبداعات الإخوة في الموقع وبعضها من مصادر أخرى.. من مميزات البرنامج خاصية البحث السريع للوصول للأكواد بسهولة .. وفيه تقسيمات للأكواد المجربة وغير المجربة .. وكذلك يمكن الإشارة للمرجع الذي تم أخذ الأكواد منه .. وأيضا يمكن حفظ الملفات المرتبطة والأمثلة في مجلدات قرينة بالبرنامج 🙂 البرنامج مفتوح المصدر ويمكن لك أن تغير فيه ما تشاء ليلبي احتياجاتك الشخصية .. 🌷 :: تحياتي :: 🌷 🙂 :: ولا تنسوني من صالح دعواتكم :: 🙂 صاحب الملف Moosak تمت الاضافه 15 مار, 2022 الاقسام قسم الأكسيس  

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

وعليكم السلام ورحمة الله وبركاته مهندسنا 🙂 وأنا من هؤلاء الهواة 😅🖐🏼️ تجربة جميلة أبا جودي ورحلة ممتعة 🌹 أضم صوتي إلى صوت المهندس محمد عصام @ابو جودي .. ولا نريد أن نشق عليك مهندس @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-إعلانات-شخصية-بأجر-للاعضاء/