الى عمالقة المنتدى كود لتغيير ايقونة الاكسل فى التاسك بار

[MR.EXCEL]

هذا كود من ابداعات الاخت زهرة لتغيير ايقونة الاكسس فى التاسك بار

 

المطلوب تحديثه ليلائم الاكسيل

اليكم الرابط

 

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