• 0
lordring

زر لفتح Character Map

سؤال

السلام عليكم لدي نموذج اكسس فيه حقول لكتابة صيغ كيميائية واحتاج الى superscripts وبالتالي احتاج الى فتح ال Character Mapفماهو الامر الذي اضعه لزر في النموذج لكي يقوم لي بفتح ال Character Map

مع التقدير

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

8 إجابة على هذا السؤال .

  • 0

تفضل اخي الكريم

ضع هذا الكود تحت زر امر


Private Sub MAP_Click()
Dim stAppName As String
stAppName = Shell("charmap.exe", 1)
End Sub

انسى الآن اين موجود نظام الويندوز فسواء كان على اي بارتشن سيعمل الكود بدون اي مشاكل حتى لو وضعت النظام على كوكب الزهره :)

لا تنسانا من التقييم بارك الله بك

بالتوفيق

تم تعديل بواسطه zahrah
3

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اكتب في الامر التالي قي زر الامر عند الحدث click


Dim stAppName As String
stAppName = "C:\Windows\system32\charmap.exe"

Call Shell(stAppName, vbNormalFocus)

بالتوفيق ان شاء الله

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا اخي الكريم .. الطريقة شغالة

لكن توجد مشكلة في المسار اذ ان الكود يعتبره افتراضيا في الc

ماذا اذا كان النظام في بارتشن اخر او داخل فولدر اسمه مثلا winxp كما الحالة في بعض الاجهزة

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

مع التقدير ..

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

لذلك توجد طريقتين:

1- اما توحيد مسار الملف التنفيذي في كل جهاز اي ان تدخل على كل جهاز و تضع برنامج Character Map في مسار محدد "c:\my files\Character Map.exe"

2- او ان تغير المسار في ملف الاكسس حسب الجهاز

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الاخت zahrah المميزة

شكرا على الاضافة الرائعة ......... تحياتي

تم تعديل بواسطه lordring
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

مشكورة اخت زهرة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

لذلك توجد طريقتين:

1- اما توحيد مسار الملف التنفيذي في كل جهاز اي ان تدخل على كل جهاز و تضع برنامج Character Map في مسار محدد "c:\my files\Character Map.exe"

2- او ان تغير المسار في ملف الاكسس حسب الجهاز

شكرا على المتابعة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

تفضل اخي الكريم

ضع هذا الكود تحت زر امر


Private Sub MAP_Click()
Dim stAppName As String
stAppName = Shell("charmap.exe", 1)
End Sub

انسى الآن اين موجود نظام الويندوز فسواء كان على اي بارتشن سيعمل الكود بدون اي مشاكل حتى لو وضعت النظام على كوكب الزهره :)

لا تنسانا من التقييم بارك الله بك

بالتوفيق

اجابة شاملة

+1

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .