لاظهار الايقونه المراد اظهارها يجب ان تكون اختصار
يعني افتح ملف وقاعدة البيانات الحالية واختار الصورة المراد وضعها للايقونه
واعمل اختصار لسطح المكتب مثلا وشغل البرنامج من الاختصار يظهر لك البرنامج بالصورة المختارة
اما بالنسبة للشاشة الرمادية
ضع هذا الكود في نموذج البداية
fSetAccessWindow (SW_SHOWMINIMIZED)
ومن ثم ضع هذا الوحدات النمطية
Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal Hwnd As Long, _
ByVal nCmdShow As Long) As Long
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm
If err <> 0 Then
loX = apiShowWindow(hWndAccessApp, nCmdShow)
err.Clear
End If
If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
MsgBox "Cannot minimize Access with " _
& (loForm.Caption + " ") _
& "form on screen"
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox "Cannot hide Access with " _
& (loForm.Caption + " ") _
& "form on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
fSetAccessWindow = (loX <> 0)
End Function
وراح ارفع لك نموذج يوجد فيه واجهة برنامجي ويوجد فيه الكود والوحدة النطية
اعمل استيراد وجرب وخبرنا
http://www.datafilehost.com/d/b79e4a83
رابط اخر للتحميل
https://www.mediafire.com/?xkcls5j0060r20y