Access Taskbar Icon ?

BackoSoft

Registered User.
Local time
Today, 13:27
Joined
Apr 26, 2008
Messages
13
Please for help my.Can cod in .mdb aplication for "Taskbar Icon" create in onload form startup.

Thanks Advance.:(
 
This may be what you want:

Place this code in a module named: modDBProperties


Code:
Function ChangeProperty(strPropName As String, varPropType As String, varPropValue As Variant) As Integer
    
    Dim dbs As DAO.Database
    Dim prp As DAO.Property
   
    Set dbs = CurrentDb
    On Error GoTo PROC_ERROR
    
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True

PROC_EXIT:
    On Error Resume Next
    Set prp = Nothing
    Set dbs = Nothing
    Exit Function

PROC_ERROR:
    If Err.Number = 3270 Then
        Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ChangeProperty = False
        Resume PROC_EXIT
    End If
End Function

To use this function to change the icon, I would have the following in my startup procedure:

Code:
ChangeProperty "AppIcon", dbText, Access.CurrentProject.Path & "Icon1.ico"
 
Tahnks for you job. or not corect cod for taskbar windows icon.

Please test and replay.

My test is bead.:(

This Picture Empty :

pictureyus.jpg
 

Attachments

Users who are viewing this thread

Back
Top Bottom