Code vba qui fait quitter/crasher l'application

Fermé
eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 - 24 mars 2015 à 08:39
benol3 Messages postés 569 Date d'inscription lundi 29 juillet 2013 Statut Membre Dernière intervention 7 mai 2015 - 24 mars 2015 à 11:15
Bonjour,

J'ai un formulaire qui créé des projet (il créé un enregistrement dans un table) et qui fait quitter l'application (sous access 2010) sans que je sache pourquoi..

Avez-vous une idée ?

merci

Private Sub FermerCreerProjet_Click()
Select Case MsgBox("Est-ce une affaire de raccordement ?", vbYesNo)
Case vbYes
Me.Cocher34.Value = True
Case vbNo
Me.Cocher34.Value = False
End Select
If Me.Cocher34.Value = True Then
'mail thunderbird
Sujet = "Suivi de votre demande de raccordement"
'msg = "Bonjour" & "%0A" & "%0A" & "Nous accusons réception de l'affaire : " & Me.Code_Projet & "%0A" & "%0A" & "La personne en charge de votre dossier est : " & "%0A" & Me.AgentResponsable & "%0A" & "Téléphone : " & DLookup("[Tél]", "[T Agents]", "[Nom]=""" & Me.AgentResponsable & """") & "%OA" & "Mail : " & DLookup("[Mail]", "[T Agents]", "[Nom]=""" & Me.AgentResponsable & """") & "%0A" & "%0A" & "Cordialement"
msg = "Bonjour" & vbLf & vbLf & "Nous accusons réception de l'affaire : " & Me.Code_Projet & vbLf & vbLf & "La personne en charge de votre dossier est : " & vbLf & Me.AgentResponsable & vbLf & "Téléphone : " & DLookup("[Tél]", "[T Agents]", "[Nom]=""" & Me.AgentResponsable & """") & vbLf & "Mail : " & DLookup("[Mail]", "[T Agents]", "[Nom]=""" & Me.AgentResponsable & """") & vbLf & vbLf & "Cordialement"
toto = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird -compose attachment=" & ",body=" & msg & ",subject=" & Sujet & ",to=" & ""
Call Shell(toto)
End If
DoCmd.Close
End Sub

A voir également:

1 réponse

Bonjour,
As-tu fais un pas à pas pour savoir quelle ligne de code accroche?
0
eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 153
24 mars 2015 à 11:10
docmd.close agit comme un docmd.quit apparemment..

Je vais regarder de ce coté merci
0
benol3 Messages postés 569 Date d'inscription lundi 29 juillet 2013 Statut Membre Dernière intervention 7 mai 2015 87 > eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022
24 mars 2015 à 11:15
Salut,

Si c'est un formulaire que tu souhaites fermer, utilise ce code :

DoCmd.Close acForm, "LeNomDeTonFormulaire"
0