هذا كود من ابداعات الاخت زهرة لتغيير ايقونة الاكسس فى التاسك بار 
  
المطلوب تحديثه ليلائم الاكسيل 
اليكم الرابط 
  
http://arabteam2000-forum.com/index.php/topic/78439-مشاركة-قواعد-البيانات-اكسيس-على-الشبكة/ 
  
  
اليكم الكود 
Option Compare Database 
Option Explicit 
 
Public Function zaCombineTaskBar() 
Dim sFile As String 
Dim RetVal As Integer 
sFile = Application.CurrentProject.Path & "\zaTaskBar.bat" 
RetVal = Shell(sFile, vbHide) 
End Function 
 
Public Function AddAppProperty(strName As String, varTyp As Variant, varWert As Variant) As Integer 
    Dim dbs As Database, prp As Property 
    Const conPropNotFoundError = 3270 
 
    Set dbs = CurrentDb 
    On Error GoTo AddAppProperty_Err 
 
dbs.Properties(strName) = varWert 
    AddAppProperty = True 
 
AddAppProperty_End: 
    Exit Function 
 
AddAppProperty_Err: 
    If Err = conPropNotFoundError Then 
        Set prp = dbs.CreateProperty(strName, varTyp, varWert) 
        dbs.Properties.Append prp 
        Resume 
    Else 
        AddAppProperty = False 
        Resume AddAppProperty_End 
    End If 
End Function 
 
Public Function DBStart() 
AddAppProperty "AppTitle", dbText, "zaTaskBar" 
AddAppProperty "AppIcon", dbText, CurrentProject.Path & "\4.ico" 
RefreshTitleBar 
End Function