اخفاء ايقونة اكسس على سطح المكتب

[sm44ms]

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

اولا عاجز عن الشكر في كل ما تقدمونه من خدمات للجمهور

سوالي

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

جزاكم الله خير

[Foksh]

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

إذا كان المقصود من الشرح هو الايقونة التي في الصورة ، في شريط المهام Task Bar .

 

وهذه الايقونة المستخدمة كمثال كما في الصورة   windows.zip

 

أما أن كان غير ذلك ، فأرجو التوضيح

 

[sm44ms]

نعم هي ولكن عندي تظهر بالشكل اكسس على ويندوز 7

[Foksh]

5 دقائق مضت, sm44ms said:

نعم هي ولكن عندي تظهر بالشكل اكسس على ويندوز 7

الصورة السابقة من ويندوز 7

 

[sm44ms]

اخوي الفاضل  فوكش الله يطول في عمرك ويصبرك على طلياتنا

انا لم يظهر عندي على الويندوز وارسلت لك الصوره وشفتها يا ترى من وين المشكلة جزاك الله خير

[Foksh]

ربي يزيدك من علمه اخي @sm44ms

اجابتك لما يلي هي من تحدد الخلل .

1. ما هو إصدار الأوفيس عندك ؟؟

2. هل تقوم بحفظ قاعدة البيانات بصيغة Accde ؟؟

[sm44ms]

هذا هو الاصدار 

2007

 

[Foksh]

منذ ساعه, sm44ms said:

2007

لا يتوفر لدي الإصدار 2007 للتجربة والإفادة يا صديقي .

 

[sm44ms]

ما من جديد

[Foksh]

3 دقائق مضت, sm44ms said:

ما من جديد

حدث الأوفيس ليدعم الميزة 

[sm44ms]

احدثة الى اي اصدار

وهل بيعمل معادي دون مشاكل

اوفيس10

16

19

21

 

 

[Foksh]

انا جربت على 2010 و 2016 و 2019 ويتم الموضوع بنجاح

[sm44ms]

اخي Foksh

انا جريب على اوفيس 2016 ما فتحت مع النماذج كل شوي تجي رساله وتروح بي الى مكان كتابة الكودات

انا ما سوي ابديت للاوفيس احذف القديم واحط الجديد 

وجربت على اوفيس 2019 ونفس الشي تجي لي مشاكل في فتح البرنامج ولا نموذج يفتح عندي حاولت بكل الطرق ما فيه فايدة

 

هل هناك فيه اختلاق في البرمجة بين الاوفيس والاخر 

تم تعديل مايو 22 بواسطه sm44ms

[Foksh]

18 دقائق مضت, sm44ms said:

مكان كتابة الكودات

لا تحتاج لأكواد يا صديقي ، ولا اعلم ما السبب ، نتناقش دون ملف 

 

19 دقائق مضت, sm44ms said:

انا ما سوي ابديت للاوفيس احذف القديم واحط الجديد 

 

2016 تعمل معه بكفائة

19 دقائق مضت, sm44ms said:

وجربت على اوفيس 2019 ونفس الشي تجي لي مشاكل في فتح البرنامج ولا نموذج يفتح عندي حاولت بكل الطرق ما فيه فايدة

 

لا اعلم ما علاقة تحديد الأيقونة في النماذج والأكواد 

[sm44ms]

عطني يوم بصور لك كل شي تمام

[sm44ms]

Option Compare Database
Option Explicit
Public Maxpath As String
' Declarations for Windows Common Dialogs procedures
Private Type CLTAPI_OPENFILE
strFilter As String ' Filter string
intFilterIndex As Long ' Initial Filter to display.
strInitialDir As String ' Initial directory for the dialog to open in.
strInitialFile As String ' Initial file name to populate the dialog with.
strDialogTitle As String ' Dialog title
strDefaultExtension As String ' Default extension to append to file if user didn't specify one.
lngFlags As Long ' Flags (see constant list) to be used.
strFullPathReturned As String ' Full path of file picked.
strFileNameReturned As String ' File name of file picked.
intFileOffset As Integer ' Offset in full path (strFullPathReturned) where the file name (strFileNameReturned) begins.
intFileExtension As Integer ' Offset in full path (strFullPathReturned) where the file extension begins.
End Type

Const ALLFILES = "All Files"

Private Type CLTAPI_WINOPENFILENAME
lStructSize As Long
hWndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustrFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
Flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustrData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Const OFN_ALLOWMULTISELECT = &H200
Const OFN_CREATEPROMPT = &H2000
Const OFN_EXPLORER = &H80000
Const OFN_FILEMUSTEXIST = &H1000
Const OFN_HIDEREADONLY = &H4
Const OFN_NOCHANGEDIR = &H8
Const OFN_NODEREFERENCELINKS = &H100000
Const OFN_NONETWORKBUTTON = &H20000
Const OFN_NOREADONLYRETURN = &H8000
Const OFN_NOVALIDATE = &H100
Const OFN_OVERWRITEPROMPT = &H2
Const OFN_PATHMUSTEXIST = &H800
Const OFN_READONLY = &H1
Const OFN_SHOWHELP = &H10

Declare Function CLTAPI_GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" _
(pOpenfilename As CLTAPI_WINOPENFILENAME) _
As Boolean

Declare Function CLTAPI_GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" _
(pOpenfilename As CLTAPI_WINOPENFILENAME) _
As Boolean

Declare Sub CLTAPI_ChooseColor Lib "msaccess.exe" Alias "#53" _
(ByVal hwnd As Long, rgb As Long)

 

هنا العيب بلون الاحمر

[sm44ms]

هي عبارة عن وحدة نمطية للصور

[Foksh]

الرسالة مفادها انك تستخدم أوفيس 64 ، والكود مصمم للنواة 32 ، فقط استبدل الجزء الأحمر بالتالي :-

Declare PtrSafe Function CLTAPI_GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" ( _
    pOpenfilename As CLTAPI_WINOPENFILENAME) As Boolean

Declare PtrSafe Function CLTAPI_GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" ( _
    pOpenfilename As CLTAPI_WINOPENFILENAME) As Boolean

Declare PtrSafe Sub CLTAPI_ChooseColor Lib "msaccess.exe" Alias "#53" ( _
    ByVal hwnd As LongPtr, rgb As Long)

جرب وأخبرني ،

[sm44ms]

ضبط الكود على اوفيس 2010

 اشتغل البرنامج ولكن لم تتغير ايقونة سطح المكتب

 

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

 

للعلم انا استخدم ويندوز 11 + اوفيس 2010 - 2021 والقاعدة مسويها على اوفيس 2007

[sm44ms]

خدمة اخرى اذا سمحت

هذا كود للحفظ على زر امر

 

ابا عند التراجع عن الحفظ  تظهر رسالة او مسج بوكس 

او عند التراجع عن الحفظ يفتح اسم هذا النموذج (ACSSES_ADDUSER)

On Error GoTo Err_VIP4_Click
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 DoCmd.OpenForm "ACSSES_ADDUSER"
Exit_VIP4_Click:
    Exit Sub
     
Err_VIP4_Click:

    Resume Exit_VIP4_Click
   

[Foksh]

اخي الكريم @sm44ms

كنا بدايةً في موضوع الأيقونة ، ثم اتجهنا الى كود لا يعمل ، والآن زر حفظ وتراجع ،، 

افتح موضوع في كل طلب حتى لا تخالف قوانين المنتدى 🥰