application icon

[iccsi]

My application is MS Access icon.

I just wanted to know may I have my own icon for my application?

Your information is great appreciated,

 

[Marshall Barton]

My application is MS Access icon.

I just wanted to know may I have my own icon for my application?

This might give you some ideas:

Sub SetAppIcon()
Dim prp As Property

On Error Resume Next

With DBEngine(0)(0).Containers!Databases.Documents!MSysDb
.Properties("AppIcon") = "D:\path\file.ICO"
If Error.number = 3270 Then
Set prp = .CreateProperty("AppIcon", dbText, _
"D:\path\file.ICO")
.Properties.Append prp
Set prp = Nothing
End If
.Properties("AppTitle") = "Some title string"
If Error.number = 3270 Then
Set prp = .CreateProperty("AppTitle", dbText,_
"Some title string")
.Properties.Append prp
Set prp = Nothing
End If
RefreshTitleBar
End With

End Sub

 

[Irshad Alam]

Sir,

I would like you to add some more code that will get the location (path) of
the current mdb.
for getting icon (according to below code, the location must be at a fix
place, to get the ico file ) As some time the user keeps on CD, sometime C:\
drive and sometime another location.

I will keep the location of the mdb and the location of application icon
same path/location, so that when my user copy the folder he will have both
mdb and all related files.

If you add more code to get the location of the icon as the same location of
the mbd it would be great

Regards

Irshad

 

[banem2]

My application is MS Access icon.

I just wanted to know may I have my own icon for my application?

Your information is great appreciated,

Hi,

Assuming your icon name is "icon.ico" and it is in same folder with
database, do the following:

1) Menu Tools\Start Up
2) In "Application Icon" field type "icon.ico", without quotes and
without path
3) Tick "Use as Form and Report Icon"

Click OK. If the icon is in the same folder as database, it will
appear as application, forms and reports icon immediately.

Regards,
Branislav Mihaljev
Microsoft Access MVP

 

[Marshall Barton]

I would like you to add some more code that will get the location (path) of
the current mdb.

Wherever "D:\path\file.ICO" is used, replace that with:

CurrentProject.Path & "\file.ICO"