Poner (Colocar) Icono a Nuestra Aplicacion

Sub PonMiIcono()

'***************************************************************

'& &*

'& &*

'& &*

'& &*

'& Jefferson Jimenez (JJJT) &*

'& Cabimas - Venezuela &*

'& Marzo - 2010 &*

'& &*

'& &*

'& &*

'& &*

'& &*

'***************************************************************

'El archivo icono debe estar en la misma carpeta donde esta la aplicacion access

Dim ElNombreIcono As String: ElNombreIcono = "TuIcono" & ".ico"

Dim db As Object, ProPiedaD As Object

On Error GoTo err_MiIcono

Set db = DBEngine.OpenDatabase(CurrentProject.Path _

& "\" & CurrentProject.Name)

db.Properties("AppIcon").Value = CurrentProject.Path _

& "\" & ElNombreIcono

db.Properties.Refresh

exit_MiIcono:

Err.Clear

err_MiIcono:

If Err.Number = 3270 Then

Set ProPiedaD = db.CreateProperty("AppIcon", _

DB_TEXT, CurrentProject.Path _

& "\" & ElNombreIcono)

db.Properties.Append ProPiedaD

Set ProPiedaD = Nothing

Application.RefreshTitleBar

End If

End Sub