هذا كود من ابداعات الاخت زهرة لتغيير ايقونة الاكسس فى التاسك بار
المطلوب تحديثه ليلائم الاكسيل
اليكم الرابط
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