Este procedimiento cambia o crea, si no existe, la propiedad Icono de la
base de datos actual.
Sub CambiarIconoBD(Icono As String)
Dim db As DAO.Database
Dim prp As DAO.Property
Set db = CurrentDb
On Error GoTo err_CambiarIconoBD
db.Properties("AppIcon").Value = Icono
exit_CambiarIconoBD:
Set db = Nothing
Application.RefreshTitleBar
Exit Sub
err_CambiarIconoBD:
If Err.Number = 3270 Then 'la propiedad no existe
Set prp = db.CreateProperty("AppIcon", dbText, Icono)
db.Properties.Append prp
Set prp = Nothing
Resume Next
Else
MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
GoTo exit_CambiarIconoBD
End If
End Sub
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)