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

[moho58]

السلام عليكم

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

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

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

 

 

 

[ابو البشر]

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

السلام عليكم

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

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

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

 

 

 

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

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

[moho58]

17 ساعات مضت, ابو البشر said:

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

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

الأيقونة  اخي

 

[ابو البشر]

تفضل .....

في ٢‏/١٢‏/٢٠٢٢ at 23: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

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

 

[Moosak]

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

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

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

[moho58]

12 دقائق مضت, ابو البشر said:

تفضل .....

 

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

شكرا اخي 

[ابو البشر]

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

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

شكرا اخي 

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

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

[moho58]

8 ساعات مضت, ابو البشر said:

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

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

جاري التجريب

الان, moho58 said:

جاري التجريب

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

وشكرا

 

[ابو البشر]

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

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

[moho58]

23 ساعات مضت, ابو البشر said:

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

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

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

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

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

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

 

وشكرا

[ابو البشر]

في ٢‏/١‏/٢٠١٨ at 11:42, صالح حمادي said:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

 

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

 

5 ساعات مضت, moho58 said:

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

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

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

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

 

وشكرا

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

[Abo-yousef]

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

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

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

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