تغيير شعار اكسس

[waleed907]

السلام عليكم

لو سمحتوا ما هي طريقة تغيير شعار اكسس ليس للنماذج او التقارير عن طريق بدء التشغيل وإنما اريد تغيير الشعار عند تصميم برنامج ما يكون الشعار للبرنامج  خاص يظهر على سطح المكتب بدل ظهور أيقونة اكسس يظهر الشعار الي خصصته لذلك

[ابو جودي]

جرب استخدام  اى برامج لتغير الايقونات اعتقد والله اعلم انى رأيت احدى المشاركات تتحدص عن ذلك ولكن لا اظن انه يمكن تغير ايقونة قاعدة البيانات ولكن دعنا نبحث وان وجدت من ناحيتى اى شئ بخصوص هذا الموضوع اعود اليكم فى القريب العاجل ان شاء الله

 

[waleed907]

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

فارجو ان تجد شي جديد يمكنا من آلتغيير

[jjafferr]

نعم ممكن 

هذا الكود مثلا يمكنك استعماله وسيعمل لك الاختصار على سطح المكتب:

With CreateObject("WScript.Shell")
  With .CreateShortcut(.SpecialFolders("Desktop") & "\Test Database.lnk")
    .TargetPath = "C:\Stuff\Test.mdb"
    .WindowStyle = 1
    .Hotkey = ""
    .IconLocation = "C:\Test\Test.ico, 0"
    .Description = "Test Icon Substitution"
    .WorkingDirectory = "C:\Stuff\"
      .Save
  End With
End With

 

 

جعفر

[ابو جودي]

الان, jjafferr said:

نعم ممكن 

هذا الكود مثلا يمكنك استعماله وسيعمل لك الاختصار على سطح المكتب:

With CreateObject("WScript.Shell")
  With .CreateShortcut(.SpecialFolders("Desktop") & "\Test Database.lnk")
    .TargetPath = "C:\Stuff\Test.mdb"
    .WindowStyle = 1
    .Hotkey = ""
    .IconLocation = "C:\Test\Test.ico, 0"
    .Description = "Test Icon Substitution"
    .WorkingDirectory = "C:\Stuff\"
      .Save
  End With
End With

 

 

جعفر

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

[jjafferr]

26 دقائق مضت, محمد عصامـے said:

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

 

نعم هذا صحيح ، هو اختصار للبرنامج 

وهو غلط اصلا انك تضع البرنامج على سطح المكتب ، والذي يسهل حذفه وبسهولة ،

بينما بتغيير في الكود أعلاه ، تستطيع ان تجعل الكود يتأكد من وجود الاختصار على سطح المكتب ، وان لم يوجد (يعني اذا المستخدم حذفه لأي سبب) ، فالكود يصنعه مرة ثانية 

 

 

جعفر

[waleed907]

الأخ جعفر ممكن شرح لطريقة التركيب أين يتم وضعه في وحدة نمطي او حدث

[jjafferr]

عدة طرق:

1. ضبط الكود في Notepad حسب المسارات الصحيحة ، ثم احفظ الملف بصيغة vbs او bat اينما شئت ، وانقر عليه مرتين ، وسترى الاختار موجود على سطح المكتب ،

او

2. ضع الكود على حدث التحميل للنموذج الرئيسي للبرنامج ،

او

3. اعمل وحدة نمطية ، مثلا

function make_shortcut()

الكود يأتي هنا

end function

 

ثم اعمل ماكرو ، واطلب من الماكرو ان:

• شغل الكود make_shortcut
• شغل النموذج الفلاني

واهم شئ هو ان تحفظ الماكرو باسم autoexec ، والذي سوف يشغله البرنامج تلقائيا كلما تفتح البرنامج.

 

 

جعفر

[waleed907]

جزاك الله خير

هل يتم تغيير شي فالكود المذكور مثلا اسم البرنامج يتم اضافة فالكود او يتم وضعة مثل ما هو موجود بدون اي تعديلات والصورة المطلوبة هل يشترط ان تكون بصيغة icon او bmp .

[wael_rafat]

السلام عليكم ورحمة الله وبركاته

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

يوجد طريقة اخري وهي وضع صورة بامتداد  bmp  في نفس مكان القاعدة وبنفس اسم القاعدة .

بمعني لو القاعدة اسمها test.mdb    تكون الصورة اسمها test.bmp      

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

[ابو جودي]

1 دقيقه مضت, wael_rafat said:

السلام عليكم ورحمة الله وبركاته

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

يوجد طريقة اخري وهي وضع صورة بامتداد  bmp  في نفس مكان القاعدة وبنفس اسم القاعدة .

بمعني لو القاعدة اسمها test.mdb    تكون الصورة اسمها test.bmp      

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

طيب ممكن مثال عملى لاخوك يا استاذ وائل
معلش اخوك فهمه على اده 

[wael_rafat]

حبيبي استاذ محمد    غالي والطلب رخيص

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

[كرار صبري _ أبو جنى]

السلام عليكم ...

بالنسبة للاختصار على سطح المكتب ...

يمكن الضغط عليه كلك ايمن - properties - shortcut - ghange icon - ثم نختار الايقونة ثم اوكي ثم اوكي ... 

[كرار صبري _ أبو جنى]

كما يمكن تغيير شعار الاكسس على شريط taskbar و الشعار الموجود في الركن الاعلى لقاعدة البيانات ...

من قاعدة البيانات نختار - ملف - خيارات - قاعدة البيانات الحالية - ايقونة التطبيق - موافق

و بأي صيغة ...

تم تعديل ديسمبر 22, 2015 بواسطه karrar sabry

[ابو جودي]

17 ساعات مضت, jjafferr said:

 

بينما بتغيير في الكود أعلاه ، تستطيع ان تجعل الكود يتأكد من وجود الاختصار على سطح المكتب ، وان لم يوجد (يعني اذا المستخدم حذفه لأي سبب) ، فالكود يصنعه مرة ثانية 

جعفر

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

تم تعديل ديسمبر 22, 2015 بواسطه محمد عصامـے

[jjafferr]

وعليكم السلام

 

استعملت:

----------------------------------------------

3. اعمل وحدة نمطية ، مثلا

function make_shortcut()

الكود يأتي هنا

end function

 

ثم اعمل ماكرو ، واطلب من الماكرو ان:

• شغل الكود make_shortcut
• شغل النموذج الفلاني

----------------------------------------------

فك المرفق في مجلد واحد ، وافتح البرنامج بطريقة عادية ، واغلق البرنامج ،

سترى الاختصار على سطح المكتب ، ومن الان فصاعدا استخدمه للدخول لبرنامجك 

وكلما حذفت الاختصار ، سيتكون من جديد 

 

جعفر

Export to Excel And Make Dektop shortcut.zip

تم تعديل ديسمبر 22, 2015 بواسطه jjafferr

[ابو جودي]

27 دقائق مضت, jjafferr said:

وعليكم السلام

 

استعملت:

----------------------------------------------

3. اعمل وحدة نمطية ، مثلا

function make_shortcut()

الكود يأتي هنا

end function

 

ثم اعمل ماكرو ، واطلب من الماكرو ان:

• شغل الكود make_shortcut
• شغل النموذج الفلاني

----------------------------------------------

فك المرفق في مجلد واحد ، وافتح البرنامج بطريقة عادية ، واغلق البرنامج ،

سترى الاختصار على سطح المكتب ، ومن الان فصاعدا استخدمه للدخول لبرنامجك 

وكلما حذفت الاختصار ، سيتكون من جديد 

 

جعفر

Export to Excel And Make Dektop shortcut.zip

شكرا معلمى واستاذى الحبيب   "  الفنان جعفر  " 

[jjafferr]

[عذاب الزمان]

السلام عليكم 

الاستاذ الكبير جعفر المحترم ...

اولا : استخدمت الكود form_load ونجح بشكل رائع ، ولكنه استلزم ادخال المسارات يدويا . 

ثانيا : اما كود الداله (الموجود بالمرفق ) عن طريق الوحدة النمطيه لم يعمل بشكل صحيح ويظهر مسج ( يحتوي التعبير الذي ادخلته على اسم داله تعذر على برنامجك العثور عليها ) .

علما اني عملت نفس الخطوات وعملت ماكرو كما ذكرت وعملت وحدة نمطيه كما تفضلت ولم يعمل .

تحياتي استاذي العزيز .

[ابو جودي]

في ١٩‏/٢‏/٢٠١٨ at 16:13, عذاب الزمان said:

السلام عليكم 

الاستاذ الكبير جعفر المحترم ...

اولا : استخدمت الكود form_load ونجح بشكل رائع ، ولكنه استلزم ادخال المسارات يدويا . 

ثانيا : اما كود الداله (الموجود بالمرفق ) عن طريق الوحدة النمطيه لم يعمل بشكل صحيح ويظهر مسج ( يحتوي التعبير الذي ادخلته على اسم داله تعذر على برنامجك العثور عليها ) .

علما اني عملت نفس الخطوات وعملت ماكرو كما ذكرت وعملت وحدة نمطيه كما تفضلت ولم يعمل .

تحياتي استاذي العزيز .

ممكن مرفق صفير من قاعدة البيانات فيما يخص مشكلة حضرتك

[ابو ياسين المشولي]

السلام عليكم

ممكن سوال

اذا كان الاختصار موجود بسطح المكتب

والبرنامج بالدي

وانا شغلته من مجلد مثلا بالسي

لا اريده يحذف المسار الاول ويعمل اختصار الى السي الا اذا كان الاختصار غير موجود كيف اضيف الشرط للكود

[صالح حمادي]

السلام عليكم

الكود التالي يمكنك من معرفة هل يوجد اختصار على سطح المكتب أو لا:

Dim curPath As String
curPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\tt.lnk"
If Len(Dir(curPath, vbDirectory)) <> 0 Then
   MsgBox 1
Else
   MsgBox 0
End If

اسم الاختصار هو tt

إذا كان هناك اختصار تظهر رسالة بها 1

و إذا لم يكن هناك إختصار تظهر رسالة بها 0

جرب الكود و أطلعنا على النتيجة

[ابو ياسين المشولي]

ممتاز اخي صالح حمادي

هو المطلوب الف الف شكر تسلم يداك

[صالح حمادي]

العفو أخي