Discussion :

[aliboubou]

Re-bonjour,
Est-il possible de personnaliser l'icone d'une application access?
Merci

[helas]

Voici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim i As Long
 
If Dir( "C:\monChemin\icone.ico") <> "" Then
  i = AjouteProprApp("AppIcon", dbText, "C:\monChemin\icone.ico")
 End If

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Function AjouteProprApp(chNom As String, varType As Variant, varValeur As Variant) As Integer
    Dim db As dao.Database, prp As Property
    Const conErreurPropNonTrouvée = 3270
 
    Set db = CurrentDb
    On Error GoTo AjoutePropr_Err
    db.Properties(chNom) = varValeur
    AjouteProprApp = True
AjoutePropr_Sortie:
    Exit Function
 
AjoutePropr_Err:
    If Err = conErreurPropNonTrouvée Then
        Set prp = db.CreateProperty(chNom, varType, varValeur)
        db.Properties.Append prp
        Resume
    Else
        AjouteProprApp = False
        Resume AjoutePropr_Sortie
    End If
End Function

[cafeine]

Hello,

c'est aussi faisable sans aucun code ... et trouvable en 5 seconde dans la FAQ :
http://access.developpez.com/faq/?rechercher=icone