تغير ايقونة

[Ahmed.IQ]

السلام عليكم هل من الممكن تغير ايقونة قاعدة بيانات اكسيس المتواجدة على سطح المكتب ؟

[سعيد صواب]

حياك الله 

بالترتيب

خيارات اكسس ... قاعدة البيانات الحالية ... رمز التطبيق ... تختار صورة تكون بإمتداد .ico

وهنا رابط لأحد مواقع الأيقونات .

http://www.iconarchive.com/

وهنا التعديل عن طريق الكود

Dim db As Database
Set db = CurrentDb
' هنا الأيقونة موجودة  في مسار قاعدة البيانات
' ssab هو اسم الأيقونة 
db.Properties("AppIcon").Value = CurrentProject.Path & "\ssab.ico"
' هنا في حال رغبت في استخدام الايقونة للتقارير والنماذج تصبح القيمة true والعكس
db.Properties("UseAppIconForFrmRpt").Value = True

Application.RefreshTitleBar

بعد ان يتضح المطلوب امسح الشرح .

بالتوفيق

تم تعديل أبريل 14, 2016 بواسطه سعيد صواب

[Ahmed.IQ]

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

[سعيد صواب]

حياك الله

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

 

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

اضغط بزر الفارة الأيمن ثم اذهب الى خصائص ... اختصار 

ستجد هناك امر تغيير الأيقونة 

وهذ الكلام ينطبق غالبا على معظم البرامج.

بالتوفيق

 

تم تعديل أبريل 14, 2016 بواسطه سعيد صواب

[Ahmed.IQ]

شكراً اخي سعيد لكن هل هناك طريق تغير ايقونة قاعدة البيانات نفسها ؟

 

[سعيد صواب]

حياك الله اخوي احمد 

بنفس الطريقة في الجواب الثاني

احفظ القاعدة في مجلد مثلا واعمل لها اختصار على سطح المكتب وقم بتغيير ايقونة القاعدة من خلال الإختصار او shourtcut  g الموجود على سطح المكتب

وللعلم بحثت فلم اجد طريقة لتغيير ايقونة قاعدة البيانات نفسها مباشرة.

* وللعلم والفائدة المعلومة التي تكررت اثناء بحثي .. هي انك لو عملت تغيير لأيقونة القاعدة مباشرة فكأنك تقوم بتغيير الإمتداد  من mdb مثلا الى ico

وتصبح تابعة لذلك الإمتداد . اي انها تصبح ايقونة مثلا .. 

لو فيه  احد عنده فكرة اخرى   ممكن يفيدنا .

بالتوفيق

[Ahmed.IQ]

10 ساعات مضت, سعيد صواب said:

حياك الله 

بالترتيب

خيارات اكسس ... قاعدة البيانات الحالية ... رمز التطبيق ... تختار صورة تكون بإمتداد .ico

وهنا رابط لأحد مواقع الأيقونات .

http://www.iconarchive.com/

وهنا التعديل عن طريق الكود

Dim db As Database
Set db = CurrentDb
' هنا الأيقونة موجودة  في مسار قاعدة البيانات
' ssab هو اسم الأيقونة 
db.Properties("AppIcon").Value = CurrentProject.Path & "\ssab.ico"
' هنا في حال رغبت في استخدام الايقونة للتقارير والنماذج تصبح القيمة true والعكس
db.Properties("UseAppIconForFrmRpt").Value = True

Application.RefreshTitleBar

بعد ان يتضح المطلوب امسح الشرح .

بالتوفيق

سؤال اخي سعيد واسف على الاطالة اي اضع هذا الكود ؟ هل اعمل وحدة نمطية او داخل فورم ؟

[سعيد صواب]

حياك الله

ضعه تحت زر امر مثلا ..

مع انه ليس جواب على سؤالك كما قلت انت .

بالتوفيق

تم تعديل أبريل 16, 2016 بواسطه سعيد صواب

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

14 ساعات مضت, سعيد صواب said:

ضعه تحت زر امر مثلا ..

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

شلونك استاذ سعيد ان شاء الله تكون بخير ... 

انا عملت مثلما قلت , لكن :

 

 

 

فما الخطأ و ما العمل ؟

[سعيد صواب]

حياك الله استاذ كرار

فعلا جربت على جهاز اخر وظهرت المشكلة ..

ووجدت حل من MSDN  لتفادي هذا الخطاء وهو في حال عدم وجود الخاصية ان يقوم بإنشائها .

 

هنا الدالة 

Function AddAppProperty(strName As String, _
        varType As Variant, varValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb
    On Error GoTo AddProp_Err
    dbs.Properties(strName) = varValue
    AddAppProperty = True

AddProp_Bye:
    Exit Function

AddProp_Err:
    If Err = conPropNotFoundError Then
        Set prp = dbs.CreateProperty(strName, varType, varValue)
        dbs.Properties.Append prp
        Resume
    Else
        AddAppProperty = False
        Resume AddProp_Bye
    End If
End Function

وهنا استدعائها تحت زر امر 

Dim intX As Integer
    Const DB_Text As Long = 10
    ' هنا اسم البرنامج اذا رغبت في تغييره
'    intX = AddAppProperty("AppTitle", DB_Text, "اسم البرنامج")
    intX = AddAppProperty("AppIcon", DB_Text, "C:\Users\dell\Desktop\NewSEtup\ssab.ico")
    CurrentDb.Properties("UseAppIconForFrmRpt") = 1
    Application.RefreshTitleBar
    MsgBox "done"

وهنا رابط الموضوع 

https://msdn.microsoft.com/en-us/library/bb256834(v=office.12).aspx

ملاحظة : الصورة ممكن تكون بإمتداد bmp  او ico

بالتوفيق للجميع .

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

40 دقائق مضت, سعيد صواب said:

بالتوفيق للجميع .

استاذ سعيد لما ضغت الزر ظهرت رسالة don

لكن التغيير الوحيد هو رمز النموذج و التقرير

[سعيد صواب]

حياك الله استاذ كرار

يبدو اني خلطت الأمور 

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

ولاحظ حتى لو اخترنا الأيقونة يدويا .. ان الوضع هو نفسه .. لا تتأثر ايقونة الملف نفسه ولكن تتأثر النماذج والتقارير .

انت ترغب في تغيير ايقونة القاعدة نفسها ..

يدويا كما ذكرت في الردود السابقة بعمل اختصار ومن ثم اختيار الايقونة 

طريقة اخرى عند التحزيم

انا استخدم access developer extension  وهو يسمح لك بإختيار ايقونه وينشئ عنك الإختصار على سطح المكتب  وقائمة ابداء.

في 2010 اعتقد لديك package solution يقوم بنفس المهمة .

الموضوع هذا من اولة فيه لخبطه ههههههه.

اعتذر

بالتوفيق 

تم تعديل أبريل 16, 2016 بواسطه سعيد صواب