Fermeture de formulaire après msgbox

Invité · 16/02/2007, 11h07

Bonjour à tous! je vous explique mon problème: j'ai voulu mettre un mot de passe sur un formulaire spécial en appliquant la méthode décrite sur cette page:

http://support.microsoft.com/kb/209871/fr

Tout fonctionne parfaitement mis à part une chose: Lorsque je saisi un mot de passe erroné, il m'affiche bien le message d'erreur : Désolé, vous avez entré un mot de passe incorrect. Réessayez

Cependant quand je clique sur OK, toute ma base se ferme alor qu'il faudrait juste garder le focus sur le champ de saisie...

De plus je voudrais rajouter un bouton menu précédent mais cela ne fonctionne pas non plus, j'ai le même message en sortant de la page et en revenant
enfin quand je refais précedent mas base se ferme complètement.

Merci de m'aider c'est super important

**Jeannot2** · 16/02/2007, 12h49

Bonjour.

Le module "Private Sub Form_Open(Cancel as Integer)" contient, dans les dernieres lignes :

Code :

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

1
2
 
db.close

As tu enleve cette ligne ?

Si cette ligne est encore presente, c'est normal que ta base Access se ferme.

Dans la ligne contenant :

Code :

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

1
2
 
Set db = CurrentDb

tu definies db comme la base Access. Puis tu la ferme par :

Code :

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

1
2
 
db.close

D'autre part, il me semble plus simple, au lieu de :

Code :

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

1
2
3
 
Set db = CurrentDb
Set rs = db.OpenRecordset("tblPassword", dbOpenTable)

de mettre :

Code :

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

1
2
 
Set rs = currentdb.OpenRecordset("tblPassword", dbOpenTable)

"Currentdb" remplace "db". Et il n'est plus besoin de definir db.

Cdlt.
Jeannot2

Invité · 16/02/2007, 13h51

meme en supprimant le db.close la base se ferme quand même...c'est à n'y rien comprendre

**Jeannot2** · 19/02/2007, 09h46

Bonjour.

Est-ce que le fichier Access est un fichier *.mde ou un *.mdb ?

Est-ce que le formulaire a un module attache sur fermeture qui demande a la base de se fermer ?

Comme ca, j'ai du mal a comprendre pourquoi la base se ferme si la ligne db.close est supprimee ou desactivee.

Cdlt.
Jeannot2.

Invité · 19/02/2007, 09h49

la base est en mdb et il n'y a aucun module relatif à la fermeture de la base de données non plus

**Domi2** · 19/02/2007, 10h11

Bonjour,

Pourrais-tu poster l'entier de ton code...

Je pense que ce sera plus simple de se faire une idée.

Domi2

Invité · 19/02/2007, 10h35

Donc j'ai ce code sur le formulaire de saisie du mot de passe

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
Option Compare Database
 
Private Sub CheckPassword_Click()
If IsNull(Forms!frmPassword!Texte0.Value) Then
                 MsgBox "Vous ne pouvez pas entrer un mot de passe vide. Réessayez."
                 Me!Texte0.SetFocus
            Else
                 MyPassword = Me!Texte0.Value
                 DoCmd.Close acForm, "frmPassword"
            End If
 
End Sub
 
Private Sub Form_Load()
DoCmd.Maximize
End Sub
 
Private Sub Commande7_Click()
On Error GoTo Err_Commande7_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
    DoCmd.Close
    stDocName = "2 - MENU REFERENCES CHANTIER"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
 
Exit_Commande7_Click:
    Exit Sub
 
Err_Commande7_Click:
    MsgBox Err.Description
    Resume Exit_Commande7_Click
 
End Sub
Private Sub Commande8_Click()
On Error GoTo Err_Commande8_Click
    DoCmd.Quit
Exit_Commande8_Click:
    Exit Sub
 
Err_Commande8_Click:
    MsgBox Err.Description
    Resume Exit_Commande8_Click
 
End Sub

Ensuite ça doit m'ouvrir ce formulaire où j'ai ce code:

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
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
Option Compare Database

Private Sub Commande110_Click()
On Error GoTo Err_Commande110_Click


    DoCmd.GoToRecord , , acFirst

Exit_Commande110_Click:
    Exit Sub

Err_Commande110_Click:
    MsgBox Err.Description
    Resume Exit_Commande110_Click
    
End Sub
Private Sub Commande111_Click()
On Error GoTo Err_Commande111_Click


    DoCmd.GoToRecord , , acPrevious

Exit_Commande111_Click:
    Exit Sub

Err_Commande111_Click:
    MsgBox Err.Description
    Resume Exit_Commande111_Click
    
End Sub
Private Sub Commande112_Click()
On Error GoTo Err_Commande112_Click


    DoCmd.GoToRecord , , acNext

Exit_Commande112_Click:
    Exit Sub

Err_Commande112_Click:
    MsgBox Err.Description
    Resume Exit_Commande112_Click
    
End Sub
Private Sub Commande113_Click()
On Error GoTo Err_Commande113_Click


    DoCmd.GoToRecord , , acLast

Exit_Commande113_Click:
    Exit Sub

Err_Commande113_Click:
    MsgBox Err.Description
    Resume Exit_Commande113_Click
    
End Sub
Private Sub Commande114_Click()
On Error GoTo Err_Commande114_Click


    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Commande114_Click:
    Exit Sub

Err_Commande114_Click:
    MsgBox Err.Description
    Resume Exit_Commande114_Click
    
End Sub
Private Sub Commande115_Click()
On Error GoTo Err_Commande115_Click


    DoCmd.GoToRecord , , acNewRec

Exit_Commande115_Click:
    Exit Sub

Err_Commande115_Click:
    MsgBox Err.Description
    Resume Exit_Commande115_Click
    
End Sub
Private Sub Commande116_Click()
On Error GoTo Err_Commande116_Click


    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Commande116_Click:
    Exit Sub

Err_Commande116_Click:
    MsgBox Err.Description
    Resume Exit_Commande116_Click
    
End Sub
Private Sub Commande117_Click()
On Error GoTo Err_Commande117_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Commande117_Click:
    Exit Sub

Err_Commande117_Click:
    MsgBox Err.Description
    Resume Exit_Commande117_Click
    
End Sub
Private Sub Commande118_Click()
On Error GoTo Err_Commande118_Click


    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Commande118_Click:
    Exit Sub

Err_Commande118_Click:
    MsgBox Err.Description
    Resume Exit_Commande118_Click
    
End Sub
Private Sub Commande119_Click()
On Error GoTo Err_Commande119_Click


    DoCmd.GoToRecord , , acFirst

Exit_Commande119_Click:
    Exit Sub

Err_Commande119_Click:
    MsgBox Err.Description
    Resume Exit_Commande119_Click
    
End Sub
Private Sub Commande120_Click()
On Error GoTo Err_Commande120_Click


    DoCmd.GoToRecord , , acPrevious

Exit_Commande120_Click:
    Exit Sub

Err_Commande120_Click:
    MsgBox Err.Description
    Resume Exit_Commande120_Click
    
End Sub
Private Sub Commande121_Click()
On Error GoTo Err_Commande121_Click


    DoCmd.GoToRecord , , acNext

Exit_Commande121_Click:
    Exit Sub

Err_Commande121_Click:
    MsgBox Err.Description
    Resume Exit_Commande121_Click
    
End Sub
Private Sub Commande122_Click()
On Error GoTo Err_Commande122_Click


    DoCmd.GoToRecord , , acLast

Exit_Commande122_Click:
    Exit Sub

Err_Commande122_Click:
    MsgBox Err.Description
    Resume Exit_Commande122_Click
    
End Sub
Private Sub Commande123_Click()
On Error GoTo Err_Commande123_Click


    DoCmd.GoToRecord , , acNewRec

Exit_Commande123_Click:
    Exit Sub

Err_Commande123_Click:
    MsgBox Err.Description
    Resume Exit_Commande123_Click
    
End Sub
Private Sub Commande124_Click()
On Error GoTo Err_Commande124_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

Exit_Commande124_Click:
    Exit Sub

Err_Commande124_Click:
    MsgBox Err.Description
    Resume Exit_Commande124_Click
    
End Sub
Private Sub Commande125_Click()
On Error GoTo Err_Commande125_Click


    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Commande125_Click:
    Exit Sub

Err_Commande125_Click:
    MsgBox Err.Description
    Resume Exit_Commande125_Click
    
End Sub
Private Sub Commande126_Click()
On Error GoTo Err_Commande126_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Commande126_Click:
    Exit Sub

Err_Commande126_Click:
    MsgBox Err.Description
    Resume Exit_Commande126_Click
    
End Sub

Private Sub Form_Load()
DoCmd.Maximize
End Sub

Private Sub Form_Open(Cancel As Integer)

   Dim Hold As Variant
   Dim tmpKey As Long
   Dim I As Integer
   Dim rs As DAO.Recordset
   Dim db As DAO.Database

   On Error GoTo Error_Handler
   ' Demande le mot de passe à l'utilisateur.
   DoCmd.OpenForm "frmPassword", acNormal, , , , acDialog
            Hold = MyPassword
' Ouvre la table qui contient le mot de passe.
   Set rs = CurrentDb.OpenRecordset("tblPassword", dbOpenTable)
   rs.Index = "PrimaryKey"
   rs.Seek "=", Me.Name
   If rs.NoMatch Then
      MsgBox "Désolé, informations de mot de passe introuvables. Réessayez."
      Cancel = -1
   Else
      ' Teste si la clé générée correspond à celle de la
      ' table ; s'il n'y a pas de correspondance, arrête
      ' l'ouverture du formulaire.
      If Not (rs![KeyCode] = KeyCode(CStr(Hold))) Then
         MsgBox "Désolé, vous avez entré un mot de passe incorrect." & _
            "Réessayez.", vbOKOnly, "Mot de passe incorrect"         Cancel = -1
      End If
   End If
   rs.Close
   db.Close
   Exit Sub

Error_Handler:
   MsgBox Err.Description, vbOKOnly, "Error #" & Err.Number
   Exit Sub
End Sub
Private Sub Commande128_Click()
On Error GoTo Err_Commande128_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "0 - MENU"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Commande128_Click:
    Exit Sub

Err_Commande128_Click:
    MsgBox Err.Description
    Resume Exit_Commande128_Click
    
End Sub

et j'ai également ce module ci :

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
Option Compare Database
Public MyPassword
Public Function KeyCode(Password As String) As Long
   ' Cette fonction produit une clé unique pour la
   ' chaîne qui est transmise en tant que mot de passe.
   Dim I As Integer
   Dim Hold As Long
 
   For I = 1 To Len(Password)
      Select Case (Asc(Left(Password, 1)) * I) Mod 4
      Case Is = 0
         Hold = Hold + (Asc(Mid(Password, I, 1)) * I)
      Case Is = 1
         Hold = Hold - (Asc(Mid(Password, I, 1)) * I)
      Case Is = 2
         Hold = Hold + (Asc(Mid(Password, I, 1)) * _
            (I - Asc(Mid(Password, I, 1))))
      Case Is = 3
         Hold = Hold - (Asc(Mid(Password, I, 1)) * _
            (I + Len(Password)))
   End Select
   Next I
   KeyCode = Hold
End Function

**Domi2** · 19/02/2007, 14h35

Re,

Sorry, je ne vois pas trop...

Cependant, à quoi correspond le contrôle Commande8 ?

Domi2

Invité · 19/02/2007, 14h47

c un bouton pour fermer la base mais il n'a rien a voir, le problème datait d'avant que je le mette

**Jeannot2** · 20/02/2007, 08h32

Bonjour.

Dans la partie du programme que je mentionne ci-dessous il y a bien db.close actif :

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
 
Private Sub Form_Open(Cancel As Integer)
 
   Dim Hold As Variant
   Dim tmpKey As Long
   Dim I As Integer
   Dim rs As DAO.Recordset
   Dim db As DAO.Database
 
   On Error GoTo Error_Handler
   ' Demande le mot de passe à l'utilisateur.
   DoCmd.OpenForm "frmPassword", acNormal, , , , acDialog
            Hold = MyPassword
' Ouvre la table qui contient le mot de passe.
   Set rs = CurrentDb.OpenRecordset("tblPassword", dbOpenTable)
   rs.Index = "PrimaryKey"
   rs.Seek "=", Me.Name
   If rs.NoMatch Then
      MsgBox "Désolé, informations de mot de passe introuvables. Réessayez."
      Cancel = -1
   Else
      ' Teste si la clé générée correspond à celle de la
      ' table ; s'il n'y a pas de correspondance, arrête
      ' l'ouverture du formulaire.
      If Not (rs![KeyCode] = KeyCode(CStr(Hold))) Then
         MsgBox "Désolé, vous avez entré un mot de passe incorrect." & _
            "Réessayez.", vbOKOnly, "Mot de passe incorrect"         Cancel = -1
      End If
   End If
   rs.Close
   db.Close
   Exit Sub

Il faut enlever ce db.close.
Cdlt.
Jeannot2.

**Oleff** · 20/02/2007, 09h33

Normalement db.close ferme l'occurence db déclarée en début de sub.
Ce qui ferme access c'est la méthode quit.

Quelle est ta version d'access ?
J'ai eu le même problème sur du 97. En fait, j'avais une erreur dans le code qui n'était pas levée et qui plantait la base.
As-tu le message Windows "L'appli blablablabla a rencontré un problème..." ?

**Jeannot2** · 20/02/2007, 10h35

Je viens de tester et db.close, effectivement, ne ferme pas la base.

Lorsque j'ouvre d'autres fichiers Access a partir du fichier en cours et que j'utilise db.close, le fichier tiers ouvert se ferme.
C'est pourquoi je suis parti la dessus. Priere de m'en excuser.

Par contre, autant l'enlever quand meme selon moi car il n'est pas utile. Y compris le :

Code :

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

1
2
 
Dim db As DAO.Database

Jeannot2

Invité · 20/02/2007, 10h38

Le db.close que je le mette ou pas c'est là meme chose. Je n'ai aucune erreur de windows et je travaille sous access 2000.

Par contre j'ai essayé de modifier le dernier Cancel=-1 en Cancel=0 ou =1 et au lieu de me fermer la base, ça maffiche le formulaire qui est censé etre protégé (meme si le mot de passe est erroné...) C'est peut être une piste

**Oleff** · 20/02/2007, 10h55

Sans être sur : tu peux peut-être passer le cancel à 0 et rappeler la méthode formopen() pour réinitialiser le processus d'initialisation.

Pour moi le problème du currentdb réside dans la création d'objets temporaires qui font exploser la taille de ta base. Le fait de déclarer une variable db te permet ensuite de la fermer et de détruire l'objet par un

Code :

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

Set db = Nothing.

Si des expert peuvent confirmer...

Invité · 20/02/2007, 13h56

j'ai pas tout compris moi...

**Oleff** · 20/02/2007, 14h59

Essaie peut être d'enlever le cancel = -1 après le msgbox "mot de passe incorrect"
Sinon à la place de

Code :

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

cancel = -1

tu peux relancer un appel à la méthode form_open

Code :

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

1
2
Msgbox...
form_open(0)

Invité · 20/02/2007, 15h17

Lorsque je supprime le Cancel= -1 j'ai le message d'erreur mais je vais ensuite sur la page qui ne devrait pas être acessible.

Par contre remplacer le Cancel= -1 par Form_Open (0) fonctionne!!!

Oleff t'es un cheff

Par contre une petite explication serait pas de refus

**Oleff** · 20/02/2007, 16h04

En fait l'appel form_open(0) te renvoie au début de la procédure d'ouverture du formulaire.

Fermeture de formulaire après msgbox

IHM

Discussions similaires

Partager

Partager