صالح حمادي قام بنشر يوليو 26, 2016 قام بنشر يوليو 26, 2016 السلام عليكم و رحمة الله و بركاته أيها الأخوة الأكارم أحتاج إلى شرح مفصل لهذا الكود إن أمكن ذلك و كيفية إستعماله. و شكرا. dim DTPath as string DTPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
رمهان قام بنشر يوليو 27, 2016 قام بنشر يوليو 27, 2016 حياك الله استاذ صالح من وين نبدأ اخوي ... الموضوع متشعب ولكن : من المعروف الكائنات يكون لها خصائص او طرق (اوامر تنفذ شيئا ما ) فمثلا الكائن me وهو يعبر عن النموذج الحالي وبعد اسم الكائن نكتب نقطة لكي نستخدم خاصية له وحسب نوع الخاصية هل هي للقراءة فقط ام ممكن ان تتغير ياسناد قيم لها . او نكتب طريقة method تقم بامر ما لهذا الكائن فمثلا me.backcolor هي خاصية الخلفية لوضع خلقية للكائن . me.move هي طريقة لتحريك الكائن . نرجع للسطر السابق وبمشاركتك : الامر createobject هي دالة معرفة لدى الاكسس تقم بانشاء كائن في الذاكرة . يمكن انشاء الكائنات بمدلول المكتبة library . هذا الكائن من نوع wshshell ويمكن البحث للاطلاع اكثر . الان نضع النقطة لكي نقرا او نعين خاصية لهذا الكائن وهنا انت استخدمت الخاصية او الطريقة SpecialFolders والتي تطلب اسم المجلد وتعود بالمسار ومن نوع نص . واسم المجلد هنا يكون ضمن اسماء مجلدات الويندوز الخاصة مثل desctop او fonts وغيره فالامر هو عباره عن : انشات كائن لاحتاج وظيفة لديه مهمتها ارجاع مسار احد مجلدات الويندوز الخاصة ! تحياتي 1
صالح حمادي قام بنشر يوليو 27, 2016 الكاتب قام بنشر يوليو 27, 2016 بارك الله و أحسن الله إليك و جزيت خير الجزاء أستاذ رمهان. - هل يمكن تبديل مكان حفظ هذا الكائن في مكان آخر مثلا مجلد في القرص d
رمهان قام بنشر يوليو 27, 2016 قام بنشر يوليو 27, 2016 اخي صالح الامر هو عبارة عن معرفة مكان المجلدات لدى العميل . فعندما ينزل برنامجك لدى عميل فبالطبع لا تعرف مسار مجلد سطح المكتب لديه . فالامر السابق يجعلك تعرف مسار سطح مكتب العميل ارجو ان وضحت الصورة عزيزي 2
صالح حمادي قام بنشر يوليو 27, 2016 الكاتب قام بنشر يوليو 27, 2016 شكرا جزيلا صديقي رمهان أنا حاولت أطبق الكود لإنشاء ملف أكسل على سطح المكتب أو في المستندات فلم أفلح 1
صالح حمادي قام بنشر يوليو 27, 2016 الكاتب قام بنشر يوليو 27, 2016 ما هو الخطأ في هذا الكود أخي : Private Sub ÃãÑ0_Click() Dim DTPath As String DTPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") curPath = DTPath & "\Hammadi- " & ".xls" Application.FollowHyperlink curPath End Sub صالح.rar
رمهان قام بنشر يوليو 27, 2016 قام بنشر يوليو 27, 2016 معذرة عزيزي ذهبت لصلاة الفجر اخي صالح 1. قبل كل شي احنا اتفقنا ان الامر يقرأ المسار وليس للانشاء فتاكد من وجود الملف 2. الكود السابق يقوم بفتح الملف من على سطح المكتب وتلاحظ وجود مسافة بعد في نهاية اسم الملف . هل هو صحيح ؟ جرب بحذف المسافة من الكود بالتوفيق 2
صالح حمادي قام بنشر يوليو 27, 2016 الكاتب قام بنشر يوليو 27, 2016 الله يتقبل منك أخي العزيز. لقد تمكنت من الوصول إلى الحل الذي أسعى إليه بارك الله فيك يا صديقي العزيز. كنت أظن أنه سوف يقوم بإنشاء ملف على سطح المكتب ولكن ذلك يتطلب إضافة الدالةالتالية: DoCmd.TransferSpreadsheet acExport فهذه الدالة تقوم بتصدير بيانات من الأكسس إلى الأكسل.
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.