اذهب الي المحتوي
أوفيسنا

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


moho58

الردود الموصى بها

في 4‏/12‏/2022 at 17:09, moho58 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

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

 

رابط هذا التعليق
شارك

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

شكرا اخي 

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

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

رابط هذا التعليق
شارك

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

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

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

جاري التجريب

الان, moho58 said:

جاري التجريب

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

وشكرا

 

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

 

وشكرا

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

6666.jpg.44dafe9ef8ad2bd89f302631fc9e9e9a.jpg

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

1.jpg.699c7ac667b0ba7c999b6225607208fd.jpg

2.jpg.0ffd08c40e1f6c09d26f743143f33f1d.jpg

3.jpg.2212ea6bc39f8e6a95ba2dbd7b2b2ea9.jpg

4.jpg.b28f1ec009dcb5ec438173d0be52d5dc.jpg

5.jpg.40245672377819d33f25a3e024d56526.jpg

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

 

 

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

 

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

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

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

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

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

 

وشكرا

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

رابط هذا التعليق
شارك

  • 1 month later...
في 6‏/12‏/2022 at 22:34, Moosak said:

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

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

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

  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information