Discussion :

[azertix]

Oulà, ça me dépasse là
J'espère que quelqu'un de plus expérimenté pourra t'aider

[Luisito31]

je l'ai trouver sur le forum ...

[Domi2]

Bonjour,

Regarde peut-être ce post...

Domi2

[Luisito31]

la ca ne met rien du tout

[Domi2]

Re,

Cela m'étonnerait beaucoup que LedZeppII donne des solutions non fonctionnelles...

Tu peux poster l'entier du code que tu as installé et indiquer comment ?

Domi2

[Luisito31]

j'ai resussi mais toujours meme probleme du début ! probableme ce que je veux faire est impossible...

[Luisito31]

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
23
Public Sub SetDBprop(propName As String, propType As DAO.DataTypeEnum, propVal As Variant)
Dim db As DAO.Database, p As DAO.Property
 
 Set db = CurrentDb
 Set p = Nothing
 On Error Resume Next
 Set p = db.Properties(propName)
 On Error GoTo 0
 If p Is Nothing And Not IsNull(propVal) Then
    Set p = db.CreateProperty(propName, propType, propVal)
    db.Properties.Append p
 End If
 
 If Not (p Is Nothing) Then
    If IsNull(propVal) Then
       db.Properties.Delete propName
    Else
       p = propVal
    End If
 End If
 
 db.Close
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Load()
Dim strIcon As String
 
strIcon = "C:\Documents and Settings\Stagiaire_DILT\Bureau\interv.bmp"
SetDBprop "AppIcon", dbText, strIcon
Application.RefreshTitleBar
 
' pour supprimer l'icône :
SetDBprop "AppIcon", dbText, Null
Application.RefreshTitleBar
End Sub

en gros la ca me garde l'icone Access meme quand je me connecte alors que j'ai garder l'icone dans outil démarrage...

[Domi2]

Tu as mis le code de l'événement Sur Chargement sur chacun de tes formulaires ?

Domi2

[Luisito31]

non mais bon meme sur le formulaire ou je l'ai mis ca ne marche pas............