1 pièce(s) jointe(s)
Erreur d'execution de code
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.
Pièce jointe 188769
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:
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 ?
