Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Possible to change the database icon? 1

Status
Not open for further replies.

Spyder757

Technical User
Aug 29, 2002
129
US
Is it possible to change the database icon from the access one to a custom one?

We've got this program at work that runs on Access '97 and it has it's own icon.

I'd like to do the same for my 2000 application.

Spyder757
 
Hi

Not really an Access thing, in W98:

Right click the short cut used to to run the application, choose properties, click the change icon button on the shortcut tab.

May be slight variation in W2K, WXP but same basic idea

Regards
Ken Reay
Freelance Developer
kenneth.reay@talk21.com
 
But i'd have to do that to each machine I installed my application on correct?

Spyder757
 
Hi

Yes, or you could make the shortcut, put it on the server then copy it to each client desktop, possibly using a login script, don't ask me how to do the login script thing, I am a developer not a Windows expert!! <joke>

Regards
Ken Reay
Freelance Developer
kenneth.reay@talk21.com
 
In AC2K, its Tools, Startup, Application Icon. Set path to icon you want to use.
 
Votegop, its the same in AC97!
You know that you can change the Access startup splash screen, don't you?
You will need to do this on installation, but:
Create a new bitmap (BMP) and save it in the same folder where your database resides. Name the bitmap the same as your database. For example
C:\MyApp\SuperApp.MDB
C:\MyApp\SuperApp.BMP
WARNING!! I have seen this cause a Blue Screen under WinNT 4.0, but not under Win 9X
 
Spyder757,
Give this a try in VBA

Function SetAppIcon
Call SetApplicationIcon(&quot;AppIcon&quot;, dbText, &quot;IconFullPath&quot;)
End Function

Function SetApplicationIcon(strName As String, _
varType As Variant, varValue As Variant) _
As Integer

Dim ThisDb As Database
Dim Prpty As Property
On Error GoTo ErrorHandler

Set ThisDb = CurrentDb
ThisDb.Properties(strName) = varValue
SetApplicationIcon = True
RefreshTitleBar

ExitAppIconSet:
Exit Function

ErrorHandler:
If err.Number = 3270 Then
SetApplicationIcon = False
Resume ExitAppIconSet
End If
End Function

RGB
 
Hello RGB,

How do I use your code? Can you please give me a detailed explanation? Thanks!!!
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top