class= " lineNumbers " de
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 :
|
class= de
fonction >Public " de l'id= " codeSnippet808021 de 0 d'Err.Number puis
ExitRoutine GoTo
Finir si
Sur l'erreur ErrorHandler GoTo
'Si la forme n'a aucun RecordSource, aucun besoin de continuer.
Si Format$ (frm.RecordSource) = "" alors
ExitRoutine GoTo
Finir si
'Si c'est un nouveau record, aucun besoin de continuer.
Si frm.NewRecord alors
ExitRoutine GoTo
Finir si
'Tous si bien, faire ainsi ce que nous sommes venus ici pour faire.
gstrActiveFormForDeleteRecord = frm. Nom
'Envoyer le F2 pour s'assurer que l'utilisateur n'a pas choisi tous les disques.
SendKeys « {F2} », vrai
'Choisir l'article courant (et assurer que seulement un est choisi !)
Sur l'erreur reprendre après
acCmdSelectRecord de RunCommand
Si <> 0 d'Err.Number puis
ExitRoutine GoTo
Finir si
Sur l'erreur ErrorHandler GoTo
'Faire l'option record de menu de « suppression régulière ».
'Sur le résumé d'erreur après
Si frm. Sale = rectifier alors
frm. Défaire
Finir si
acCmdDeleteRecord de DoCmd.RunCommand
'SendKeys « {SUPPRESSION} », vraie
gobjLastError.Save errent, strProcedureName
Sur l'erreur ErrorHandler GoTo
Choisir le cas gobjLastError.Number
Pas affaire 0 'aucunes erreurs
'Ne faire rien
Enfermer autrement
'Donner une erreur système pour toute autre chose.
gobjLastError.Raise gobjLastError.Number et « : » et gobjLastError.Description
Extrémité choisie
ExitRoutine :
Sur le résumé d'erreur après
gstrActiveFormForDeleteRecord = ""
Sortir la fonction
ErrorHandler :
gobjLastError.Save errent, strProcedureName
Choisir le cas gobjLastError.Number
Enfermer autrement
gobjLastError.Show
Reprendre ExitRoutine
Finir choisi
Finir la fonction
|
