ابو جودي

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

ان شاء الله الحل هنا ان اردت وهو إهداء لمن يريد وهنا كان موضوع البحث والنقاش

وعليكم السلام ورحمة الله تعالى وبركاته استاذى القدير واخى الحبيب الاستاذ @محمد حسن المحمد جزاكم الله خيرا على كلماتكم الرقراقة البراقة بالحب والجود والكرم أهديكم تحياتي وأشواقي الحارة ، أهديها على أكف الراحة ، أهديها عبر السحاب وعبر الروابي والسهول والأعلام ، وأتمني أن تصل إليكم وأنتم تنعمون بثوب الصحة والعافية ، فتشاغف قلوبكم الحيّة ، وتؤثر في خلجات أنفسكم النيّرة ، وفي عقولكم الزكيةاليكم هذه الكلمات التي نبض بها قلبي ، وفكّر بها عقلي، وصدقتها مشاعري وأحاسيسي ، وخطها قلمي ، إليكموها معطرة بالشذا والريحان والكادي وادامكم الله نورا وضياء ليهتدى بكم طلاب العلم واسأل الله تعالى أن يكتب لكم الأجر و القبول امين امين امين بارك الله لنا فيكم وفى اسرتكم الطيبة الكريمة احبكم جميعا فى الله ولوجه الله تعالى 🧡

طيب اولا لابد لنا الاحتفاظ بتلك القاعدة Converter Arabic and Unicode (v. 3) الوظيفة : تقوم بعمل التحويل من اللغة العربية الى الترميز العالمى والعكس ثانيا انا اردنا كتابة تلميح داخل محرر الاكواد لا نكتبه بالعربية كذلك ولكن ممكن بالـ Franco-Arab كتابة تلميح يدل على رسالة ترحيب ممكن نكتب التلميح بالشكل الاتى ' resalat tar7ib 'ahala bkm fe montda Al Access ونقوم باعلان عن متغير نصى لنسد اليه نص الرسالة مثلا Dim strMsgTr7ib As String ثم نفتح قاعدة بيانات التحويل ونكتب بها النص الذى نريده بالعربى ونقوم بتحويله الى الترميز العالمى ونقوم بنسخ الرموز الناتجة من التحويل ونسندها الى المتغير strMsgTr7ib = ChrW("1575") & ChrW("1607") & ChrW("1604") & ChrW("1575") & ChrW("32") & ChrW("1576") & ChrW("1603") & ChrW("1605") & ChrW("32") & ChrW("1601") & ChrW("1609") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("1578") & ChrW("1583") & ChrW("1609") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1603") & ChrW("1587") & ChrW("1587") وان كان السطر طويل جدا ممكن تقسيمة الى عدة اسطر بتلك الطريقة strMsgTr7ib = ChrW("1575") & ChrW("1607") & ChrW("1604") & ChrW("1575") & ChrW("32") & ChrW("1576") & _ ChrW("1603") & ChrW("1605") & ChrW("32") & ChrW("1601") & ChrW("1609") & ChrW("32") & ChrW("1605") & _ ChrW("1606") & ChrW("1578") & ChrW("1583") & ChrW("1609") & ChrW("32") & ChrW("1575") & ChrW("1604") & _ ChrW("1571") & ChrW("1603") & ChrW("1587") & ChrW("1587") وهذا مثال للتجربة واسم القاعدة Use Of Unicode in VBA Converter Arabic and Unicode (v. 3).accdb Use Of Unicode in VBA.accdb

الصح اللى قلت لك عليه لأن كل ما تريد ارسال قاعدة لغيرك لو لم تكن اعدادات اللغة مضبوطة سوف يقع فريسة لتلك الرسالة

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

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

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

اولا هذا منتدى الاكسس وليس الاكسل ولكن على كل حال اليك الحل وينقل الموضوع الى جيران الهنا فى منتدى الاكسل وعذرا ان لم استخدم الدوال بشكل صحيح او ان كان هناك اختصار للحل بطريقة افضل انا لا اعلم اى شئ عن الاكسل تقريبا تلك المرة الاولى التى احاول فيها التعامل مع ملفات الاكسل ولكن بحثت على الانترنت وهذا تطبيق طويلب علم مجتهد لذلك ارجو السماح وعلى الله حد يتريق على الحل اللهم انى ناوى اصوم رمضان هاهاهاهاهاها للعلم استخدمت الدالة SUMIF لحساب اجمالى المنتجات للمندوب والدالة SUMIFS لحساب اجمالى المنتج المطلوب استثناءه ثم قمت بعمل طرح اجمالى المنتج المطلوب استثناءه من اجمالى المنتجات للمندوب للحصول على النتيجة المرجو الوصول اليها كل عام وانتم بخيــــــــر Book1.xlsx

العفو ي جميل يا ميت مليون هلا وغلا بيك بس ياريت تختر افضل اجابة لو تكرمت

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

اولا يا دكتور @SEMO.Pa3xجزاكم الله خيرا ولكن عنوان الموضوع النسخة الثانية من اداة رفع الملفات الى Google Drive ولكن بالحقيقة الكود يرفع نسخة احتياطية من قاعدة البيانات فقط هل يمكن تعديل جديد ليتم عمل استعراض للملفات المختلفة من الحاسوب مع امكانية اختيار اكثر من ملف لرفعهم بنفس الالية من خلال قاعدة بيانات ويا سلام لو هناك اختيارت على نموذج استعراض الملفات قبل الرفع على الدرايف مثل رفع كل ملف على حدة او جمعهم فى ملف ارشيف و امكانية تشفير ملف الارشيف برقم سرى او عدم التشفير نظريا ممكن عمل ذلك من خلال احضار مسار الملفات من خلال زر الامر الذى يقوم باستعراض الملفات وحفظ المسارات فى جدول وعمل لوب لرفع كل ملف ولكن عمليا هل ممكن تحقيق ذلك..... مجرد فكرة وعندما يسمح وقتى سوف احاول تطبيقها وان سبقتمونى فجزاكم الله خيرا

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

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

وعلى خطى استاذى الجليل ومعلمى القدير الدكتور @SEMO.Pa3x اداتان صغيرة مكتوبتان كـ مفتاحان registry عند تشغيلهما سوف تقوم الاداة الاولى والمختصة باضافة خيار جديد في الزر الايمن للماوس عند النقر على اى مجلد او ملف الوظيفة جلب مسار الملفات والمجلدات لسرعه الوصول لها في البرامج او غيرها.. وبدون علامتى التنصيص الاداة ليست من كتابتي انما فقط قمت بالتعديل عليها .. سورس كود الاداة الاولى: Windows Registry Editor Version 5.00 ; ########################################## ; Application : Get files/directories path by right click windows ; Coded by : MOh3ssam (www.officena.net) ; Date : 29-03-2022 ; ########################################## [HKEY_CLASSES_ROOT\*\shell\Copy as Path] [HKEY_CLASSES_ROOT\*\shell\Copy Path\command] @="cmd.exe /c echo %1 |clip" [HKEY_CLASSES_ROOT\Directory\shell\Copy as Path] [HKEY_CLASSES_ROOT\Directory\shell\Copy as Path\command] @="cmd.exe /c echo %1 |clip" بعد تشغيل الاداة اضغط كلك يمين على اي ملف في الكومبيوتر او اي مجلد وستظهر لك: بعد نسخ اي مسار قم بلصقه، مثال: الاداة الثانية : سوف تقوم الاداة الثانية والمختصة بازالة الخيار الذى تم اضافته من الاداة الاولى من الزر الايمن للماوس عند النقر على اى مجلد او ملف الاداة ليست من كتابتي انما فقط قمت بالتعديل عليها .. سورس كود الاداة الثانية : Windows Registry Editor Version 5.00 ; ########################################## ; Coded by : MOh3ssam (www.officena.net) ; Date : 29-03-2022 ; ########################################## [-HKEY_CLASSES_ROOT\*\shell\Copy as Path] [-HKEY_CLASSES_ROOT\Directory\shell\Copy as Path] الموضوع كذلك ليس من كتابتي انما فقط قمت بالتعديل عليه 😊 وفى الختام تم كتابة الموضوع اقتباسا بنفس الطريقة والالية لطريقة استاذى الجليل ومعلمى القدير الدكتور حسنين لاننى امازحه واداعبه كل عام وانتم بخير يا دكتور انتم وكل اساتذتى الكرام كل عام وانتم الى الله اقرب وعلى طاعته ادوم ولفعل الخيرات اسبق و لسنة النبى الزم ولحب اتباعه اصدق ومن الجنة ادنى واقرب وعن النار ابعد اسال الله تعالى الرحمة والعفو والغفران لكم و لكل المسلمين و لوالديكم و والداى وكل المسلمين برحمتك التي وسعت كل شيء اللهم ان ابائنا قد احسنوا الينا منذ يوم ولادتنا اللهم وبحق هذا الاحسان ارحمهما و اغفر لهما برحمتك التى وسعت كل شيء اللهم ارحم من فى بطن الارض من ابائنا و استرهم يوم العرض يارب العالمين يا رب انت خلقتهم وانت اخذتهم وانت الرحيم فليس غيرك ارحم بهم اللهم ارحمهم و اغفر لهم اكرم نزلهم و وسع مدخلهم اللهم اجعل قبورهم روضه من رياض الجنة واجمعنا بهم في جنة النعيم برحمتك يا ارحم الراحمين ارحم يارب من مات منهم بالدنيا ولم يمت في قلوبنا اللهم ارحمه فهو اغلى من فقدنا واسكنه فسيح جناتك يا ارحم الراحمين اللهم من بقى منهم فى هذه الدنيا بارك فى اعمارهم وارزقهم ثوب العافية وحبب الايمان الى قلوبهم وتقبل اعمالهم وارزقنا برهم وارض عنهم يارب واجعلهم راضين عنا يارب العالمين واحسن يارب خاتمتنا وخاتمتهم. اللهم امين امين امين 🤲🏻 تحميل الملف من المرفقات فضلا وكرما وليس امرا لا تنسوا الدعاء لاستاذى الجليل ومعلمى القدير الدكتور حسنين و والديه من صالح دعائكم وكل المسلمين وآبائهم. كل عام وانتم بخير اقتراب حلول شهر رمضان الكريم اعاده الله عليكم وأمة محمد بخير وسعادة . تم بحمد الله. Add Copy as Path Option in Windows.rar

اضاقة بسيطة للعمل على الطريقتين الطريقة الاول قاعدة البيانات كاملة بدون تقسيم الطريقة الثانية قاعدة البيانات منقسمة الى قاعدتين امامية وخلفية فى مصدر بيانات مربع النص مباشرة ضع الكود الاتى =IIf(IsNull(DLookUp("Database","MSysObjects","Type=6 ")),[CurrentProject].[Path] & "\" & [CurrentProject].[Name],DLookUp("Database","MSysObjects","Type=6 "))

اتفضل طيب ما هو التعديل ؟ كلمة واحدة وهى Between اين تم التعديل ؟ فى الاستعلام Dfa2 فى الحقل Installmentnumbercode فى اول المعيار سداد (2).accdb

ولو اردت اسم القاعدة فقط بدون المسار الكامل استخدم =Right(DLookUp("Database","MSysObjects","Type=6 "),Len(DLookUp("Database","MSysObjects","Type=6 "))-InStrRev(DLookUp("Database","MSysObjects","Type=6 "),"\"))

بسيطة للقاعدة الخلفية =DLookUp("Database","MSysObjects","Type=6 ")

طيب ممكن سؤال اخى الحبيب واستاذى الجليل باش مهندس @Moosak لماذا لم تستحدم الكود الاتى فى مصدر بيانات مربع النص مباشرة بدون استخدام الكود فى الموديول لتوفير استخدام حجم كائن =[CurrentProject].[Path]

اعتذر لم يسعفنى الوقت لتنقيذ المطلب الثانى وعندما هممت لتحقيقه وجدت اساتذتى الافاضل بارك الله فيهم كفوا ووفوا

اتفضل Req_Link_img.accdb

يا استاذ @عبدالقدوس48 اولا جزاكم الله خيرا واسمح لى بإضافة مرفق آخر زيادة فى الخير طريقة حضرتك يتم فيها غلق قاعدة البيانات حتى لو يتم التعامل داخل قاعدة البيانات انظر الى الطريقة الاتية فى تلك القاعدة المرفقة فى النموذج الذى يحمل اسم Form1 كود فى حدث الوقت يتم تصفير العداد عند التنقل والعمل على قاعدة البيانات وفى حالة ترك القاعدة دون العمل عليها يتم اغلاق القاعدة idle time.rar

جزاكم الله خيرا يا دكتور @SEMO.Pa3x لى عظيم الشرف ان يتم الاحتفاظ بأفكارى المتواضعة فى مفضلة احد اساتذة وأعمدة المنتدى الذين أتعلم منهم وعلى أيديهم

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