زر لفتح Character Map

[lordring 63]

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

مع التقدير

[zahrah 4,313]

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

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

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

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

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

بالتوفيق

تم تعديل 10 Dec 2012 بواسطه zahrah

[eyadd 32]

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

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

    Call Shell(stAppName, vbNormalFocus)

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

[lordring 63]

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

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

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

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

مع التقدير ..

[eyadd 32]

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

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

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

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

[lordring 63]

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

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

تم تعديل 10 Dec 2012 بواسطه lordring

[eyadd 32]

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

[lordring 63]

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

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

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

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

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

[alfarouk79 39]

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

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

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

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

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

بالتوفيق

اجابة شاملة

+1