Discussion :

[pat17]

Bonjour le forum,

Pour ouvrir le formulaire j'utilise une macro. Lors de la fermeture du formulaire en cliquant sur le bouton "Annuler", j'ai 2 messages qui apparaissent (l'objet n'est pas ouvert) puis (l'action a échoué) et je voudrais les supprimer.

J'ai essayé ce code mais cela ne fonctionne pas

Code :

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

1
2
3
4
5
Private Sub btnAnnuler_Click()
On Error Resume Next
    DoCmd.Close
 
End Sub

Merci de votre aide et bonne journée à tous

[ClaudeLELOUP]

Bonjour,

Je ne comprends pas ce que tu veux faire avec ton bouton "annuler".

Tu veux simplement fermer ton formulaire ?
Si oui, pourquoi un bouton et pas simplement la voie "naturelle" : la croix dans le coin supérieur droit ?

D'autre part : l'origine de ton problème, s'il y en a un, n'est-elle pas dans l'événement "sur fermeture" ?

[pat17]

Bonjour ClaudeLELOUP et merci de ton aide.

C'est vrai que je n'est pas été très clair. Le bouton annuler sert pour sortir du formulaire.
Je pensais contourner le problème des messages d'erreur en utilisant un bouton car la voie "naturelle" génère aussi des messages d'erreur.

Je joins le code de ce petit formulaire d'identification

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
Option Compare Database
 
Private Sub btnOK_Click()
If IsNull(Me.txtMotDePasse) Then
        MsgBox "Tapez un mot de passe !", vbInformation
        Me.txtMotDePasse.SetFocus
        Exit Sub
End If
If Me.txtMotDePasse = "xxxx" Or Me.txtMotDePasse = "xxxxxx" Then
        ' Fermer la boîte de dialogue "Identification"
        DoCmd.Close
        blnPasswordOK = True
Else
        MsgBox "Mot de passe incorrect.", vbExclamation
        Me.txtMotDePasse.SetFocus
        End If
 
End Sub
Private Sub btnAnnuler_Click()
On Error Resume Next
DoCmd.Close
 
End Sub
 
Private Sub Form_Open(Cancel As Integer)
' Réinitialiser l'état du mot de passe
' (blnPasswordOK est une variable globale)
blnPasswordOK = False
End Sub

Bonne journée

[ClaudeLELOUP]

Si tu supprimes le bouton "btnAnnuler" et son code :

Code :

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

1
2
3
Private Sub btnAnnuler_Click()
On Error Resume Next
DoCmd.Close

et que tu fermes via la croix, je ne vois pas ce qui pourrait provoquer une erreur.

[pat17]

Re,

Je ne sais pas, je penses que s'est peut être provoqué par la macro qui ouvre le formulaire.

[pat17]

Bonjour le forum,

J'ai peut être trouvé la solution en supprimant la macro qui permet d'ouvrir le formulaire et qui pointe sur "nouveau enregistrement".

Je pensais intégrer la commande directement dans le code d'ouverture du formulaire, voir code joint

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
Private Sub Commande0_Click()
On Error GoTo Err_Commande0_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Saisie habilitation"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Commande0_Click:
    Exit Sub
 
Err_Commande0_Click:
    MsgBox Err.Description
    Resume Exit_Commande0_Click
 
End Sub

Mais quelle serait la syntaxe du code et à quel endroit l'intégrer???

Merci et bonne journée à tous.