إخواني الكرام............... الاستاذة الفاضلة(ام عهود)
نشكركم على حسن تعاونكم وتجاوبكم ومساعدتكم..
لقد استفدت كثيراً من خبراتكم وتوجيهاتكم وأفكاركم النيرة
أسأل الله أن يجزيكم على ذلك خير الجزاء.......
في مشاركة سابقة لأم عهود في انشاء اختصار على سطح المكتب
لكني أريد تسمية هذا الاختصار تلقائياً(بالكود) بنفس الاسم الأصلي
شكراً سيدتي
لم أقصد ذلك
إنما قصدت اسما لاختصار النسخة التي تنتج من الضغط على الزر وهي هنا (برنامجي- ف2 1433-1434) لكنه يتغير وفقا لما في مربع النص[ نص46]
الذي يتغير كل فصل دراسي أو كل سنة
لاحظي سطر الكود
NewFile = CurrentProject.Path & "\" & DBwithoutEXT & "- ف2 " & [نص46] & right(DBwithEXT, 4)
تفضل اخي الكريم
سينتج لديك اختصار على سطح المكتب برنامجي- ف2 1433-1434
تستطيع التغيير في مربع النص الى اي شيء تريد وسيتم اخذ ما في مربع النص واضافته الى الإختصار
اذا تمت الإجابه على السؤال فلا تنسى الضغط على ( أفضل إجابة )
بالتوفيق
هذا الموضوع مغلق.
