Moosak

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

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

ما شاء الله تبارك الله .. كنت حاس أنه فيه طبخة تنعمل في الكواليس 😂 من يوم الأستاذ جعفر يناديني أخي الخبير 😅 بصراحة متفاجئ من الموضوع .. وكان يكفيني لقب شغوف .. لأنه فعلا يعبر عن شعوري 😄 الحقيقة أشكر لكم جميعاً هذا الوسام وحسن الضن وعلى قمة الهرم أساتذتي الأعزاء ( الخبراء الفعليين ) الأستاذ جعفر @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 لكي تعبيه بماكينة الباركود من جديد .. وتكتمل العملية . هكذا في كل مرة .. هل يناسبك العمل بهذه الصورة ؟

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

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

وعليكم السلام ورحمة الله وبركاته .. 🙂 أهلا بك في منتدانا الجميل .. لعمل ذلك يمكنك الجمع عموديا إما بدالة DSUM .. أو باستعلام إجماليات .. والنتيجة :

السلام عليكم ورحمة الله وبركاته 🙂 إنتهيت ولله الحمد من تصميم وبرمجة الفكرة التي أشرت إليها سابقا في الموضوع التالي للأستاذ العزيز @jjafferr وهذه مجرد تشويقة للموضوع 🙂 وسوف أفرد موضوع خاص بهذا الأمر إن شاء الله 🙂 ======================================================= في البداية صممت قاعدة بيانات تقوم بحفظ المسارات ( مسارات ال Back End) أو نسخة الجداول التي يتم ربطها بها .. وذلك للعودة إليها لاحقا بدل البحث عنها في كل مرة 🙂 وكذلك لتجنب أن يعرف الزبون أو العميل أو المستخدم النهائي المكان الذي تم وضع قاعدة البيانات به .. 😉 أول ما نشغل البرنامج ( أو الـ Front End ) في الجهاز وما يلاقي ال BE ستظهر هذي النافذة : كما هو ملاحظ .. - عندنا 4 مواقع أو أربع BE مخزنة لنفس هذا البرنامج . - الروابط الحقيقية غي ظاهرة للمستخدم .. فقط أسم الملف يظهر . - النقاط الحمراء والخضراء تحت العنوان ( متوفرة؟) .. ( الخضراء ) تخبرنا بالروابط المتاحة حالياً ويمكن الاتصال بها ، ( والحمراء ) تخبرنا بالمواقع الغير متوفرة حاليا 🙂 . وذلك باعتبرار أننا نشتغل من جهاز المبرمج حاليا 🙂 - تاريخ الإضافة يبين لي التاريخ الذي تم إضافة هذا الرابط فيه وذلك للتأكد من تاريخ النسخة التي أريد العمل عليها . وهذه طريقة الاتصال بالقواعد المخزنة : ( لا يفوتك شريط التقدم 😉 .. هذا لوحده حكاية .. من إبداعاتي طبعا 😅 ) - طبعا لاحظتوا أنه مباشرة بعد الاتصال بنجاح يفتح لنا صفحة الدخول على طول 🙂 ثانيا : في حال عدم تطابق أي نسخة من النسخ المخزنة الحالية .. : - يمكن عمل اتصال جديد من خلال الزر [ إنشاء اتصال جديد ] .. - وسوف البرنامج تلقائيا بحفظ المسار الجديد من ضمن القائمة ( قائمة المسارات المخزنة ) . - وعند فتح البرنامج مرة أخرى سنجد أن البرنامج قام بحفظ المسار الجديد من ضمن القائمة 🙂 ثالثا : خيار تحرير المسارات المخزنة ( إضافة / حذف / تعديل ) : - هذا الخيار محمي بكلمة سر ( خاصة بالمبرمج ) يطلبها البرنامج للدخول على نافذة التعديل 🙂 - يمكن إضافة مسارات جديدة هنا بكل سهولة .. مثلا في حال عدم وجودك في موقع الزبون لكي تربط ال FE بال BE لتخزينه في الجدول ، يمكنك نسخ الرابط من هناك أو كتابته يدويا ليكون من ضمن القائمة 🙂 أما بخصوص طريقة فتح البرنامج بدون نوافذ علوية ومع إخفاء نافذة العناصر .. فجمعتها كلها في موديول واحد اسمه Start أناديه من خلال ماكرو البداية المسمى بالـ AutoEXEC 🙂 .. - فقط عليك أن ترسل له ثلاثة أشياء ( متغيرات ) : 1- اسم نموذج البداية ( أول نموذج تريده يفتح في البرنامج ) 2- هل تريد ظهور النوافذ العلوية ونافذة العناصر ؟ تكتب : ( True / False ). 3- اسم أحد الجداول ( المرتبطة ) ،،،، لاحظ المرتبطة 🙂 وذلك بهدف فحص ما إذا كانت الواجهة مرتبطة بقاعدة البيانات أو لا . فمن خلال هذا الموديول لن تحتاج للدخول فيه لتغيير الإعدادات .. فقط عليك كتابة المتغيارات هنا في ماكرو ال AutoEXEC . هذا والسلام 🙂 وبانتظار رأيكم واقتراحاتكم أساتذتي الأعزاء للتطوير .. 🙂 وبعدها سأنشر الملفات كلها هنا ليستفيد منها الجميع 🙂 أخوكم ... موسى الكلباني