Discussion :

[tyjez]

Bonjour amis développeur,

J'ai créé un applicatif sur access 2003 qui fonctionne parfaitement sur ma version d'access mais qui plante sur le runtime...

Pour info les references outlook sont bien cochés.


Voici un des codes qui empêche l'ouverture de l'applicatif.
Pour info, il s’exécute sur le chargement d'un formulaire lui même ouvert par la macro autoexec.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Form_Open(Cancel As Integer)
    'Vérification si une instance d'outlook existe
    Dim oLInstance As Outlook.Application
    On Error Resume Next
    Set oLInstance = GetObject(, "Outlook.Application")
    On Error GoTo 0
    If oLInstance Is Nothing Then
        MsgBox ("L'application à besoin d'outlook pour fonctionner." & Chr(10) & "Veuillez attendre que l'ouverture soit terminée pour relancer cette application SVP")
        Application.Quit
    End If
 
End Sub

Pourriez vous m'éclairer SVP ?