Discussion :

[FreeAccess]

Bonjour......

...Quand je clique sur l'appli pour l'ouvrir (appli qui a toujours le logo access violet et que je ne veux plus... avis aux pro...),

.....je pense que tu ne lis pas complétement les réponses qui te sont faites......

.....pour ce qui concerne la gestion des barres de menus, tu trouveras un excellent tutorial sur le site de starec.....
http://starec.developpez.com/

Bonne lecture.....

[Nessie37]

Bonjour......

.....je pense que tu ne lis pas complétement les réponses qui te sont faites......

Mais si rhôôô ! mais je n'ai pas réussi à faire ce que tu as décrit ! Vu que je ne voulais pas être lourde, c'était ma manière à moi de demander un peu plus d'explication ! Voilà !
Ne sois pas dur avec moi

[Domi2]

Bonsoir Nessie...

Petite question toutefois. SI je fais cela, je n'aurai plus la possibilité d'ouvrir ma base sur la fenêtre de base de données, non ? (au cas où j'aurais envie de modifier ma base ultérieurement....)

Si, en enfonçant la touche Maj pendant l'ouverture de l'application...

Ne sois pas dur avec moi

Si si Nessie, FreeAccess a raison de d'être dur ! c'est comme ça qu'on progresse...

Courage, tu ne dois pas être loin du but...

Bon dév...

Domi2

[gilou1301]

Bonjour......

.....pour ce qui concerne la gestion des barres de menus, tu trouveras un excellent tutorial sur le site de starec.....
http://starec.developpez.com/

Bonne lecture.....

Bonjour,

Effectivement FreeAccess a raison, le tutorial de Starec est excellent.
Moi, j'avais modifié mes menus avec des macros il y a 10 ans (eh oui...)
Si tu ne t'en sors pas, on est là

Et comme tu dis si bien
Tous ensemble, tous ensemble...

[Nessie37]

Bonsoir Nessie...


Si si Nessie, FreeAccess a raison de d'être dur ! c'est comme ça qu'on progresse...


Domi2

Mais euh ! Pourquoi vous vous acharnez sur moi !!!!!!! Pas cool !

[Domi2]

Bonjour Nessie,

Mais non, ce n'est pas de l'acharnement... Désolé si tu l'as pris comme tel...

Tu as essayé de démarrer ton appli en maintenant la touche Shift enfoncée, pour voir ?

Domi2

[Nessie37]

Oui ! lol ! Ce matin même à la lecture de ton message.
Bah rien ! lol !

PS : Je ne l'ai pas mal pris. C'était de l'humour !

[Nessie37]

Bonjour.....

...oui là c'est beaucoup plus clair...........en plus ça figure dans la ..
Donc pour éviter d'afficher le logo ACCESS au lancement de l'application, il suffit simplement de créer une image au format BMP, que tu nomme avec le même nom que ta base de données.....
..Base de données = Agenda.mdb
..Image = Agenda.bmp

Désolée mais je ne vois pas là ! J'ai créé mon image mais....

[FreeAccess]

.....Le retour du père fouettard...

Il faut que l'image au format *.BMP, soit dans le même répertoire ou se situe ton fichier Access (*.MDB)........et bien sur que l'application et l'image posséde le même nom....

[Nessie37]

Aaaaaaaahhhhhhhhh ! Père fouettard ! Arrière !!!!!
Tout cela je l'ai fait. J'ai pris un image au pif que j'ai mise en BMP et elle se situe pil poil dans le dossier où se trouve ma base et a exactement le même nom.

Alors docteur ? c'est grave ?

[FreeAccess]

..........peut-être ton format d'image qui n'est pas correct....

Change ton image BMP de type 200 x 300 pixels...

..a voir.....

[Nessie37]

.........

Passe pô..........

[Invité]

Bonjour

Comment as-tu crée ton image, avec qu'elle logiciel ?
Est-elle bien dans le même répertoire que ton fichier mdb ?
Porte-t-elle bien le même nom ?

Starec

[Nessie37]

Bonjour Starec et bon WE de Paques !

Mon image, j'ai juste pris le logo de ma boite qui était en JPEG que j'ai enregistré sous en BMP là où ma BDD se trouve, avec le même nom de fichier.....
Alors ?

[Invité]

Bonjour

Peux-tu ouvrir ce fichier BMP en double-cliquant dessus ?

[Nessie37]

Oui, je l'ouvre en double cilquant et j'ai le logo qui s'ouvre.

[Invité]

Bonjour

L'affichage du fichier BMP peut-être très rapide, et même trop.

Un peu de lecture pour une autre solution : http://loufab.developpez.com/splashscreen/

Starec

[Nessie37]

Pas encore eu le temps de m'y pencher mais je te tiens au courant.
Merci

[bruno28]

Voilà un peu d'aide.
Prend bien le temps de regarder le code.

Ce code est à placer dans un module (tu peut l'appeler ouverture appli)
Il n'y a plus q'à mettre le bon code au bon endroit pour que ça s'ouvre comme tu veut (je le met dans un autre post

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
 
Option Compare Database
 
'Tout d'abord, ajouter une référence Microsoft DAO à votre projet (sous VBA, outils, références)
 
Public Enum Demarrage
    AutoriserMenuContextuel
    NomTitreApplication
    AutoriserMenuComplet
    AutoriserTouchesSpeciales
    AfficherFenetreBD
    AfficherBarreEtat
    AfficherBarreOutils
    AutoriserModificationBarreOutils
    NomIcone
    NomFormualireDemarrage
    NomMenuContextuel
    NomBarreMenu
End Enum
 
Public Sub ChangerPropriete(nom As Demarrage, Valeur)
Dim Db As DAO.Database
Set Db = CurrentDb
Dim NomProp As String
NomProp = NomPropriete(nom)
If testProperty(Db, NomProp) Then
    Db.Properties(NomProp).value = Valeur
Else
    Db.Properties.Append Db.CreateProperty(NomProp, TypePropriete(nom), _
       Valeur, False)
End If
'Si on modifie le titre, alors prendre la modification
'   en compte immédiatement
'If NomProp = 1 Then Application.RefreshTitleBar
 
End Sub
 
Private Function testProperty(Objet As Object, nom As String) As Boolean
On Error GoTo err
Dim Prop As DAO.Property
Set Prop = Objet.Properties(nom)
testProperty = True
err:
End Function
 
Private Function NomPropriete(Valeur As Demarrage) As String
Select Case Valeur
    Case 0
        NomPropriete = "AllowShortcutMenus"
    Case 1
        NomPropriete = "AppTitle"
    Case 2
        NomPropriete = "AllowFullMenu"
    Case 3
        NomPropriete = "AllowBypassKey"
    Case 4
        NomPropriete = "StartupShowDBWindow"
    Case 5
        NomPropriete = "StartupShowStatusBar"
    Case 6
        NomPropriete = "AllowBuiltInToolbars"
    Case 7
        NomPropriete = "AllowToolbarChanges"
    Case 8
        NomPropriete = "AppIcon"
    Case 9
        NomPropriete = "StartupForm"
    Case 10
        NomPropriete = "StartupShortcutMenuBar"
    Case 11
        NomPropriete = "StartupMenuBar"
End Select
End Function
 
Private Function TypePropriete(Valeur As Demarrage) As Integer
Select Case Valeur
    Case 1, 8, 9, 10, 11
        TypePropriete = dbText
    Case Else
        TypePropriete = dbBoolean
End Select
End Function
 
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'Exemple d'utilisation à placer dans la sub qui va bien
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
''choisir l'icone
'ChangerPropriete NomIcone, "c:\fich.ico"
''Choisir la barre de menu
'ChangerPropriete NomBarreMenu, "MaBarre"
''Choisir le nom de l'application
'ChangerPropriete NomTitreApplication, "MonApplication"
''masquer le fenêtre de BD au démarrage
'ChangerPropriete AfficherFenetreBD, False
''interdire la modification des barres d'outils
'ChangerPropriete AutoriserModificationBarreOutils, False
 
 
'Même si les informations sont enregistrées à la fin de ce traitement, celles-ci _
ne prendront effet qu'au prochain démarrage de l'application. _
Exception : la modification du titre de la fenêtre Access peut _
être prise en compte immédiatement grâce à la méthode RefreshTitleBar.

voilà.

Bruno

[bruno28]

Voilà ce qu'il faut placer dans ton form que tu souhaite avoir en plein écran

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
24
25
26
27
28
 
Private Sub Form_Open(Cancel As Integer)
 
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'Modifie les paramètres de démarrage (utilise le module METTRE LE NOM DU MODULE CREE AVEC LE POST PRECEDENT)
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
    'Récupère le chemin de la base de donnée
        Dim MaBD1
        MaBD1 = Application.CurrentProject.Path 'chemin du fichier sans nom ni extension
        'choisir l'icone
        ChangerPropriete NomIcone, MaBD1 & "\tfx.ico"
        'Choisir le nom de l'application
        ChangerPropriete NomTitreApplication, "Région Bretagne - Gestion du Chiffre d'Affaires"
        'masquer le fenêtre de BD au démarrage
        ChangerPropriete AfficherFenetreBD, False
        'interdire la modification des barres d'outils
        ChangerPropriete AutoriserModificationBarreOutils, False
 
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'Interdire le click droit dans le formulaire
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
Me.ShortcutMenu = False
 
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'Fin de Modification des paramètres de démarrage
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Perso, j'utilise un fichier .ICO, ca va très bien

Passons maintenant aux propriétés du formulaire pour qu'il s'ouvre comme souhaité, dans le post suivant

Bruno