تثبيت ايقونة الأكسس

[moho58]

السلام عليكم

من فضلكم كيفية تغيير الايقونة لبرنامج الأكسس 

بحيث هذه الايقونه لا تتغيير في جهاز العميل

وبارك الله فيكم 

 

 

 

[ابو البشر]

  في 4‏/12‏/2022 at 14:09, moho58 said:

السلام عليكم

من فضلكم كيفية تغيير الايقونة لبرنامج الأكسس 

بحيث هذه الايقونه لا تتغيير في جهاز العميل

وبارك الله فيكم 

 

 

 

Expand  

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

تقصد الايقونة أم شعار الاكسس

[moho58]

  في 6‏/12‏/2022 at 02:13, ابو البشر said:

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

تقصد الايقونة أم شعار الاكسس

Expand  

الأيقونة  اخي

 

[ابو البشر]

تفضل .....

  في 2‏/12‏/2022 at 20:30, kanory said:

انشأ وحدة نمطية وضع فيها هذا الكود ..............

Public Sub CreateDesktopShortcutWithIcon()
    Dim WshShell As Object
    Set WshShell = CreateObject("Wscript.Shell")
    Dim strDesktop As String
    strDesktop = WshShell.SpecialFolders("Desktop")
    Dim oShellLink As Object
    Dim fil, fil1 As String
    
    Set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & DLookup("[nsh]", "[tblsho]") & ".lnk")
       
    oShellLink.TargetPath = CurrentProject.Path & "\" & CurrentProject.Name
    oShellLink.WindowStyle = 1
    
    oShellLink.IconLocation = DLookup("[pc]", "[tblsho]")
    oShellLink.Description = DLookup("[nsh]", "[tblsho]")
    oShellLink.WorkingDirectory = strDesktop
    oShellLink.Save
End Sub

تحت الزر الموجود في النموذج ضع هذا الاستدعاء .............

Call CreateDesktopShortcutWithIcon

جرب وأعلمنا بالنتيجة <<<<<>>>>>>

Expand  

 

[Moosak]

لكي تظهر الأيقونة معك دائما .. تأكد من إرفاقها بجانب البرنامج وتنقل معه أينما ذهب 🙂

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

وذلك بتخزينها في حقل من نوع مرفقات في البرنامج نفسه ثم بأمر برمجي يتحقق البرنامج من وجودها وإذا لم يجدها يخرجها من حقل المرفقات إلى جانب البرنامج ..

[moho58]

  في 6‏/12‏/2022 at 20:30, ابو البشر said:

تفضل .....

 

Expand  

لم افهم معنى الزر الموجود تحت هدا النمودج 

شكرا اخي 

[ابو البشر]

  في 6‏/12‏/2022 at 20:42, moho58 said:

لم افهم معنى الزر الموجود تحت هدا النمودج 

شكرا اخي 

Expand  

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

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

[moho58]

  في 6‏/12‏/2022 at 20:46, ابو البشر said:

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

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

Expand  

جاري التجريب

  في 7‏/12‏/2022 at 05:43, moho58 said:

جاري التجريب

Expand  

 لم افهم: اين اضع الكود الخاص باستدعاء الوحدة النطية 

وشكرا

 

[ابو البشر]

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

او ضع مثالك للتطبيق عليه

[moho58]

  في 7‏/12‏/2022 at 09:56, ابو البشر said:

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

او ضع مثالك للتطبيق عليه

Expand  

بارك الله فيك اخي

نجحت معي الطريقة

أخي عفوا على الازعاج  ممكن سؤال آخر

أنا اريد أن اخفي هذه الايقونة في حقل مثلا  واستدعيه  يعني عندما اخذ القاعدة لجهاز الآخر جهاز العميل تشتغل القاعدة بالايقونة لي خزنتها أنا في الحقل+ ممكن شرح ++

 

وشكرا

[ابو البشر]

  في 2‏/1‏/2018 at 08:42, صالح حمادي said:

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

لقد وعدت أخي و أستاذي @jjafferr بهدية تعجبه إن شاء الله.

أولا: أنا شغوف بعمل الإضافات التي تنقص برنامج الأكسس فبعد عمل

    إضافة شريط الطباعة للتقرير

   أداة إضافة شريط القوائم لنماذج

ها أنا اليوم أقدم لكم برنامجا آخر و هو "برنامج التحزيم"

ثانيا: شرح البرنامج

1- نقوم بتسجيل اسم ملف التثبيت

2-نقوم بتسجيل اسم البرنامج

3- تسجيل رقم السريال

4- نضغط على الزر و نقوم بإضافة ملف البرنامج

5- نضغط على الزر و نختار أيقونة البرنامج

6- نضغط على الزر و نختار مرفقات البرنامج

ثم نضغط على موافق يقوم البرنامج بإنشاء ملف التنصيب بصيغة accde

ملاحظة: ملأ جميع البيانات إجباري فقط المرفقات ليس إجباري

شرح طريقة التنصيب:

و هذا هو البرنامج:

 

 

برنامج التحزيم exe.rarFetching info...

Expand  

 

  في 8‏/12‏/2022 at 09:39, moho58 said:

بارك الله فيك اخي

نجحت معي الطريقة

أخي عفوا على الازعاج  ممكن سؤال آخر

أنا اريد أن اخفي هذه الايقونة في حقل مثلا  واستدعيه  يعني عندما اخذ القاعدة لجهاز الآخر جهاز العميل تشتغل القاعدة بالايقونة لي خزنتها أنا في الحقل+ ممكن شرح ++

 

وشكرا

Expand  

تفضل اقرأ هذا الموضوع ...

[Abo-yousef]

  في 6‏/12‏/2022 at 20:34, Moosak said:

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

وذلك بتخزينها في حقل من نوع مرفقات في البرنامج نفسه ثم بأمر برمجي يتحقق البرنامج من وجودها وإذا لم يجدها يخرجها من حقل المرفقات إلى جانب البرنامج ..

Expand  

ممكن طريقة عمل هذه الطريقة اومثال لها