Discussion :

[L'AMI Yves]

Encore moi... mais bonsoir quand-même.

Tout est dans le titre. J'aurais bien voulu répondre moi même tout seul, mais je n'ai as réussi : je vois bien mon formulaire qui marche, maintenant, mais tout l'écran est pris par Access, alors que je l'ai fait exprès aussi petit que possible, pour qu'il apparaisse seul.

Merci de votre aide.

AMIcalement.

[star]

Bonjour,
Une solution possible est de maximiser la fenêtre du formulaire à l'ouverture de ce dernier pour qu'elle occupe toute la surface de l'écran d'affichage

Code :

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

DoCmd.Maximize

Il faut pour cela s'assurer que l'option Access : Overlapping Windows est activée.
Bon DEV
.

[L'AMI Yves]

Merci de répondre.

Mais justement, je veux que l'appli tourne en tâche de fond, en "encombrant" le moins possible le bureau.

AMIcalement.

[star]

Bonjour,

justement, je veux que l'appli tourne en tâche de fond

Ce n'était pas l'expression du besoin initial

Ouvrir un formulaire access sans l'environnement de développement

Il y a une différence entre un formulaire, qui est un objet d'interface utilisateur, et une tâche de fond beaucoup plus assimilable à un Job.
Il serait bon de clarifier précisément ce qui est attendu avant de pouvoir suggérer des solutions.
Bon DEV
.

[deedolith]

Mais justement, je veux que l'appli tourne en tâche de fond, en "encombrant" le moins possible le bureau.

Salut,

Ms Access n'est absolument pas adapté pour ce genre de chose.
Les tâches de fond doivent entre autre être capable de répondre aux messages de Windows, ce qu'Access ne sais pas faire.
Elles doivent en plus être rapide afin de minimiser leur impacte sur le système d'exploitation, VBA, comme tous les langages interprété, est particulièrement lent.
Il y a certainement d'autres arguments détrimentaires.

Bref, ce n'est simplement pas la bonne technologie pour ce genre d'opération.

[Thumb down]

Bonjour,

• Pour afficher une icône de notification (ou icône de la zone de notification) à côté de l'heure dans la barre des tâches pour un formulaire Access, vous devrez utiliser un peu de code VBA et les API Windows. Voici les étapes détaillées :
• Créer l'icône de notification :
• Préparez une image d'icône (.ico) que vous souhaitez utiliser pour la zone de notification.
• Ajouter un module VBA pour gérer les notifications :
• Ouvrez l'éditeur VBA (Alt + F11) dans Access.
• Ajoutez un nouveau module et collez-y le code suivant :

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
103
Option Compare Database
Option Explicit
 
 
 
 
#If VBA7 Then
    Private Declare PtrSafe Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
    Private Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr
#Else
    Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
    Private Declare Function GetActiveWindow Lib "user32" () As Long
#End If
 
 
 
 
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
 
 
 
 
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
 
 
 
 
#If VBA7 Then
    Private Type NOTIFYICONDATA
        cbSize As Long
        hWnd As LongPtr
        uID As Long
        uFlags As Long
        uCallbackMessage As Long
        hIcon As LongPtr
        szTip As String * 64
    End Type
#Else
    Private Type NOTIFYICONDATA
        cbSize As Long
        hWnd As Long
        uID As Long
        uFlags As Long
        uCallbackMessage As Long
        hIcon As Long
        szTip As String * 64
    End Type
#End If
 
 
 
 
Dim tNotifyIconData As NOTIFYICONDATA
 
 
 
 
Public Sub AddTrayIcon()
    With tNotifyIconData
        .cbSize = Len(tNotifyIconData)
        .hWnd = GetActiveWindow()
        .uID = vbNull
        .uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
        .uCallbackMessage = &H200 ' Une valeur définie par l'utilisateur pour les messages de rappel
        .hIcon = LoadPictureIcon("C:\chemin\vers\votre\icone.ico")
        .szTip = "Votre Application Access" & vbNullChar
    End With
    Shell_NotifyIcon NIM_ADD, tNotifyIconData
End Sub
 
 
 
 
Public Sub RemoveTrayIcon()
    Shell_NotifyIcon NIM_DELETE, tNotifyIconData
End Sub
 
 
 
 
Private Function LoadPictureIcon(sPath As String) As LongPtr
    Dim pic As IPictureDisp
    Dim hIcon As LongPtr
 
 
 
 
    On Error Resume Next
    Set pic = LoadPicture(sPath)
    If Not pic Is Nothing Then
        hIcon = OleCreatePictureIndirect(pic, IID_IPictureDisp, True)
    End If
 
 
 
 
    Set pic = Nothing
    LoadPictureIcon = hIcon
End Function

• Afficher l'icône de notification au chargement du formulaire :
• Ouvrez le formulaire en mode Conception.
• Dans les propriétés du formulaire, allez dans l'onglet "Événement" et trouvez l'événement "Sur Ouverture" ou "Sur Chargement".
• Cliquez sur le bouton "..." à côté de cet événement pour ouvrir l'éditeur VBA.
• Ajoutez le code suivant pour appeler la fonction AddTrayIcon :

Code :

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

1
2
3
Private Sub Form_Load()
    AddTrayIcon
End Sub

• Supprimer l'icône de notification lors de la fermeture du formulaire :
• Dans l'éditeur VBA du formulaire, ajoutez le code suivant pour l'événement "Sur Fermer" :

Code :

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

1
2
3
Private Sub Form_Unload(Cancel As Integer)
    RemoveTrayIcon
End Sub

Vérifiez que le chemin de votre icône est correct dans le code LoadPictureIcon et ajustez-le si nécessaire.
Tester le formulaire :
Enregistrez et fermez le formulaire.
Ouvrez le formulaire pour voir si l'icône de notification apparaît dans la zone de notification à côté de l'horloge dans la barre des tâches.
En suivant ces étapes, vous devriez être en mesure d'ajouter une icône de notification pour votre application Access.



Pour transformer une base de données Access en une application exécutable, vous pouvez utiliser Microsoft Access Runtime et les outils de développement fournis avec Microsoft Access. Voici les étapes à suivre pour créer une application autonome à partir de votre base de données Access :
1. Créer une Interface Utilisateur (UI)


Assurez-vous que votre base de données Access a une interface utilisateur bien conçue, comprenant des formulaires, des rapports, et éventuellement des macros ou du code VBA pour la logique de l'application.
2. Configurer les Paramètres de Démarrage


Configurez votre base de données pour qu'un formulaire spécifique s'ouvre automatiquement au démarrage :
Ouvrez votre base de données Access.
Allez dans Fichier > Options > Base de données actuelle.
Dans la section Options de l'application, définissez le formulaire de démarrage dans Formulaire d'affichage.
3. Compacter et Réparer la Base de Données


Avant de créer le fichier exécutable, il est recommandé de compacter et réparer la base de données pour optimiser les performances :
Allez dans Fichier > Informations > Compacter et réparer la base de données.
4. Enregistrer la Base de Données en tant que Fichier ACCDE


Un fichier ACCDE est une version compilée de votre base de données Access qui ne permet pas de voir ou de modifier le code source :
Allez dans Fichier > Enregistrer sous.
Sous Types de fichiers de base de données, sélectionnez Créer ACCDE.
Enregistrez le fichier ACCDE dans l'emplacement souhaité.
5. Utiliser Microsoft Access Runtime


Microsoft Access Runtime est une version gratuite d'Access qui permet d'exécuter les applications Access sans nécessiter une licence complète d'Access. Vous pouvez distribuer votre fichier ACCDE avec Access Runtime pour créer une application exécutable.
Téléchargement de Microsoft Access Runtime


Téléchargez Microsoft Access Runtime à partir du site web de Microsoft.
Installez Access Runtime sur les ordinateurs où vous souhaitez exécuter votre application.
6. Création d'un Installateur (Optionnel)


Pour une expérience plus professionnelle, vous pouvez créer un package d'installation qui inclut votre fichier ACCDE et Access Runtime :
Utilisez des outils de création de package comme Inno Setup, Advanced Installer, ou Microsoft Visual Studio Installer Projects.
Configurez le package pour inclure votre fichier ACCDE et vérifier la présence d'Access Runtime sur l'ordinateur de l'utilisateur.
Conclusion


En suivant ces étapes, vous pouvez transformer votre base de données Access en une application exécutable en utilisant les outils intégrés de Microsoft Access. Cela permet de distribuer votre application avec une interface utilisateur personnalisée et de la protéger en tant que fichier ACCDE. En utilisant Access Runtime, vous assurez que vos utilisateurs peuvent exécuter l'application sans avoir besoin d'une version complète de Microsoft Access.

[star]

Bonjour,

Bref, ce n'est simplement pas la bonne technologie pour ce genre d'opération.

Je n'irai pas jusque là.
Il est toujours possible de faire appel à une fonction VBA sous Access pour exécuter une tâche de fond sans qu'il n'y ait besoin d'une intervention utilisateur à un moment ou à un autre.
En recourant au planificateur de tâches sous Windows, il est toujours possible de "schejuler" une opération à une date et une heure donnée sans autre nécessité.
Donc, je dirais qu'à partir du moment où la tâche s'exécute sous Access en VBA, ou sous tous autres moteurs d'exécution tel que JVM en Java ou l'interpréteur PHP par exemple, la fin justifie les moyens.
C'est le résultat attendu qui prime au final
Bon DEV
.

[L'AMI Yves]

Ouh là là ! J'ai encore dû mal m'exprimer.

Ce que j'entends par "tâche de fond", c'est qu'elle se lance au démarrage de l'ordinateur et qu'elle 'vit sa vie" sans intervention régulière. Mais elle affiche un petit formulaire sur lequel défilent certaines information (des rendez-vous). Elle est susceptible de déclencher une alarme si l'heure du rendez-vous approche, et de répondre à un clic pour valider l'alarme : rien de plus compliqué.

Je pense que la plupart des applications Access ne sont pas très différentes, dans le sens où leurs utilisateurs finaux n'ont aucun besoin de l'interface de développement. Qu'elles soient lancées au démarrage ou à le demande ne doit pas faire beaucoup de différence.

Me suis-je mieux expliqué ?

AMIcalement.

[Ric500]

Bonjour Yves,

Cacher Access est une fonctionnalité possible que j'utilise depuis longtemps grâce à ce code développé par Thierry GASPERMENT (Arkham46).

Je pense que tu trouveras ton bonheur ici.

J'utilise également la solution proposée par STAR

[L'AMI Yves]

Ça a l'air très intéressant pour "aller plus loin", merci.

Mais pour ce qui est d'ouvrir une application Access sans l'environnement de développement, c'est quel sujet ? J'avoue que je n'ai pas tout regardé (y'a du monde !), mais je n'ai pas trouvé de titre d'article qui ait l'air de traiter ce sujet.

AMIcalement.

[Ric500]

- Tu importes les objets de la base ci-jointe dans ton projet
- A l'ouverture du 1er formulaire de ta base, tu intègres les lignes suivantes dès le début:

Code :

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

1
2
  DoCmd.OpenForm "FrmSysTray", , , , , acHidden
Form_FrmSysTray.HideAccessWindow

Puis après, à volonté dans ton application:

Code :

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

1
2
3
Sub AfficheAccess()
    Form_FrmSysTray.ShowAccessWindow
End Sub

(par exemple lors d'un aperçu avant impression, pour avoir le ruban...)
ou

Code :

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

1
2
3
Sub CacheAccess()
    Form_FrmSysTray.HideAccessWindow
End Sub

EDIT: J'oubliais, tous tes formulaires doivent être indépendants...

[L'AMI Yves]

"Indépendants", ça veut dire que les contenus des contrôles ne proviennent pas d'une table ou d'une requête ? Peux-tu me dire, alors, le mécanisme pour les charger STP.

AMIcalement.

[Ric500]

Bonsoir,

Un petit croquis vaut mieux qu'un ...



Tant qu'à faire autant mettre le formulaire en "modal" aussi !

[Ric500]

Décidément j'oublie le principal: les objets à intégrer dans ton code:

HideAccess.zip

[L'AMI Yves]

Ca va me faire un week-end bien occupé. Merci.

Je rends compte quand ça marche.

AMIcalement.

[L'AMI Yves]

Bonjour.

Alors j'avais promis de revenir quand ça marcherait... mais je suis tombé sur un os, dans ce code :

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Form_Open(Cancel As Integer)
    Dim ctr As Control
    DoEvents
    Mode = ""
    Autoris
    For Each ctr In Me.Controls
      Debug.Print ctr.ControlType & " " & ctr.Name & " = " & ctr.Value
    Next
End Sub

Code qui est bien entendu censé s'exécuter à l'ouverture d'un formulaire. Dieu sait pourquoi j'ai voulu m'assurer que j'étais capable de boucler sur l'ensemble des contrôles de ce formulaire.

Eh bien je ne le suis pas ! Ou alors, au moment où je lance ce code, il n'y a qu'un seul contrôle dans le formulaire (alors que j'en vois plus d'une demi-douzaine !)

Merci à qui pourra me débloquer.

AMIcalement.

[tee_grandbois]

bonjour,
tu dois certainement avoir un message d'erreur à l'exécution (information que tu n'as pas précisé dans ton post), les propriétés peuvent varier selon le type de contrôle : par exemple les étiquettes ont la propriété Caption mais pas Value, il faut donc tester Controltype pour afficher la propriété Value:

Code :

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

1
2
3
4
5
    For Each ctr In Me.Controls
        If ctr.ControlType = acTextBox Or ctr.ControlType = acComboBox Or ctr.ControlType = acListBox Then
          Debug.Print ctr.ControlType & " " & ctr.Name & " = " & ctr.Value
        End If
    Next

[L'AMI Yves]

Merci de ta réponse. Et non, je n'ai pas de message d'erreur, ce dont je me plains d'ailleurs depuis que je suis revenu à Access. Est-ce que ça peut être une question de configuration ?

Il y a en effet un étiquette devant chaque textbox. Il est vrai que je n'ai pas pensé à cette éventualité. Mais il est surprenant que la première textbox passe avant son étiquette.

Je vais en effet vérifier qu'il s'agit bien de textebox, mais j'espère une réponse pour les messages d'erreur. Debugger à l'aveugle, je ne trouve pas ça drôle !

AMIcalement.

[tee_grandbois]

Et non, je n'ai pas de message d'erreur, ce dont je me plains d'ailleurs depuis que je suis revenu à Access. Est-ce que ça peut être une question de configuration ?

étonnant, c'est un message de débogage qui devrait s'afficher:



donc si il n'y a pas l'instruction On Error Resume Next en début de code tu devrais l'avoir aussi ...

Éventuellement, à vérifier dans le menu VBA: onglet Outils / Options, onglet Général ce qui est coché dans la partie "Récupération d'erreur" (personnellement je n'y ai jamais touché et c'est "Arrêt sur les erreurs non gérées" qui est coché)
et je ne vois pas quelle autre option pourrait empêcher l'affichage d'un message de débogage ...

[L'AMI Yves]

J'ai cherché ça et j'ai coché "arrêt sur toutes les erreurs", mais il ne s'arrête toujours pas.

Je suis surpris que tu obtiennes ce que tu dis si VBA ne s'arrête que sur les erreurs non gérées, car "On error resume next" me semble signifier que toutes les erreurs sont gérées, non ?

Et on dirait qu'on tourne autours d'un truc qui me gène depuis longtemps : pourquoi VBA ne s'exécute pas, sans rien dire ?

Mais qu'est-ce que je peux faire, si les cadors ne savent pas ? Ton message d'erreur, tu l'as trouvé dans quelle fenêtre de VBA ?

AMIcalement.