Bonsoir,
Je veux savoir comment créer un fichier accde sans volet de navigation et qui ne perd pas mes commandes ou macros.
Merci de me répondre
Suzanne
Bonsoir,
Je veux savoir comment créer un fichier accde sans volet de navigation et qui ne perd pas mes commandes ou macros.
Merci de me répondre
Suzanne
Bonjour Suzanne,
Voici un exmple de code pour créer un fichier accde.
Pour appeler le code :
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 Sub CreateACCDE(sBaseACCDB As String) '******************** Création du fichier *.accde *************************** Dim appAccess As Access.Application Dim sBaseACCDE As String Dim extAccessCompil As String: extAccessCompil = ".accde" If Dir(sBaseACCDB) <> "" Then 'Si le fichier source du accde existe 'Nom du fichier de sortie sBaseACCDE = Left(sBaseACCDB, InStrRev(sBaseACCDB, ".") - 1) & extAccessCompil 'Nouvelle instance Access Set appAccess = New Access.Application appAccess.visible = False 'L'instance est invisible appAccess.SysCmd 603, sBaseACCDB, sBaseACCDE 'Création du Accde appAccess.Quit acQuitSaveNone 'Fermeture de l'instance Set appAccess = Nothing 'Libération de l'objet 'MsgBox "La base à été convertie..." Else 'Ici, on utilise MsgBox car le accde n'est pas encore chargé MsgBox "La création du fichier *" & extAccessCompil & " a échouée.", vbCritical + vbOKOnly, "Fermeture" Application.Quit End If End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part Call CreateACCDE(CheminDeLaBaseAccdb)
Cordialement
Christophe
N'oubliez pas de mettre pour en faire profiter tout le monde.
Bonjour,
Avec ce code, cela se produira à chaque ouverture?
De plus, comment fait-on pour défaire un fichier accde?
J'aimerais apporter des changements minimes au programme et je ne peux revenir à mon accdb de base.
Merci
Bonsoir,
Tout d"abord, saches que lorsque ton accdb est compilé en accde, c'est fini, tu ne peux plus éditer le accde.
D'où l'intérêt de conserver précieusement cette source.
Ensuite, tu peux très bien prévoir une analyse au démarrage de l'application pour savoir si ton fichier source existe et si c'est le cas générer ton accde.
Après modification de ton accdb, tu le mets dans le même répertoire que ton accde.
Au démarrage de l'application :
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 'Si le fichier accdb existe If Dir("CheminDeLaBaseAccdb")<>"" Then 'Si le fichier accde existe If Dir(CheminDeLaBaseAccde<>"" Then 'On décroche la référence Call DelRef("CheminDeLaBaseAccde") 'On détruit le accde Kill "CheminDeLaBaseAccde" End If 'Création du nouveau accde Call CreateACCDE("CheminDeLaBaseAccdb") End If Private Sub Delete_Ref(RefName as String) 'Décrochage de la référence Dim DelRef As Reference For Each DelRef In References 'Balaie toutes les références 'Si on trouve le nom que l'on recherche If DelRef.Name= RefName Then 'On décroche la référence Application.References.Remove DelRef End If Next DelRef End Sub
Cordialement
Christophe
N'oubliez pas de mettre pour en faire profiter tout le monde.
Bonjour,
Pourquoi passer par VBA plutôt que le menu Fichier ?
Ce message vous a été utile ? Si oui, cliquez sur
Mes tutoriels Access
La rubrique Microsoft Access
Cours et tutoriels pour apprendre Access
La FAQ Access
Le Forum Access
Offres d'emploi développeur Access
Je sais que je pourrais passer par le menu fichier sauf que présentement j'ai un fichier accdb où le menu ne m'indique que fermer la base de données, développeur ou quitter access.....
Avant de faire mon accde, je suis allée dans les options d'access pour annuler l'affichage du volet de navigation et inscrire mon formulaire d'accueil.
Après avoir fait l'accde, mon module accent est perdu et une autre macro pour un intervalle de date.
Pouvez-vous m'aider à récupérer toutes les fonctions et ainsi pouvoir faire mon accde?
Merci beaucoup de votre aide
Pour avoir accès à l'ensemble des menus, démarrer votre base de données en maintenant la touche SHIFT appuyée lors du lancement d'Access
Ce message vous a été utile ? Si oui, cliquez sur
Mes tutoriels Access
La rubrique Microsoft Access
Cours et tutoriels pour apprendre Access
La FAQ Access
Le Forum Access
Offres d'emploi développeur Access
Le .accde est compilé.
Tu peux aussi renommer ton fichier en .accdr, celui-ci ce comportera alors comme avec le runtime. LE fait de le renommer .accdb revient en mode normal. Pratique pour tester.
Ma page sur developpez.com : http://chrtophe.developpez.com/ (avec mes articles)
Mon article sur le P2V, mon article sur le cloud
Consultez nos FAQ : Windows, Linux, Virtualisation
Bonsoir Tofalu,
En fait, cette méthoe n'est pas si idiote, je l'utilise moi même.
Comme je développe sur un PC qui n'a pas le même environnement que les PC qui vont recevoir mes applications je déroule le procédure suivante :
Je place, sur les PC destinataires, ma frontale et la source (accdb) de mon futur accde en ayant les référence décochées.
Ce futur accde (ma librairie) me sert à avoir mes fonctions de bases (boite de dialogue sélection de fichiers, de répertoire etc.).
Au démarrage de ma frontale, elle execute un AutoExec dans ma librairie afin de définir les références en fonction de l'environnement PC.
Ensuite, ma librairie est compilée en accde et la source accdb est supprimée.
Pour finir, les références sont ensuite activées dans ma frontale en fonction de l'environnement PC et la libriairie est activée elle aussi en tant que référence.
J'utilise ce principe depuis de nombreuses années et cela fonctionne très bien.
Cordialement
Christophe
N'oubliez pas de mettre pour en faire profiter tout le monde.
Un GROS merci à tous ceux qui m'ont apporté leur aide. Je vous en suis très reconnaissante!
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager