application icon

  • Thread starter Thread starter iccsi
  • Start date Start date
I

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,
 
iccsi said:
My application is MS Access icon.

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


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
 
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
 
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,
Click to expand...

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
 
Irshad said:
I would like you to add some more code that will get the location (path) of
the current mdb.
Click to expand...


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

CurrentProject.Path & "\file.ICO"
 
Back
Top