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 :
75 :
76 :
77 :
78 :
79 :
80 :
81 :
82 :
83 :
84 :
|
class= de
class= cmdAttach_Click secondaire de >Private " de l'id= " codeSnippet692167 de 0 puis
Le 'annuaire existe
Autrement
'Créer la chemise
MkDir GBLnetworkStoragePath et « \ » et « documents »
Finir si
CheckAgain :
'vérifier si le nom de fichier existe, avant de copier le nouveau dossier
Si "" de <> de Dir (DestinationPathAndName et « \ » et fname) alors
'existe, ainsi nous laisser demandent à l'utilisateur à
AhEmptyName :
fname = InputBox (« écrire svp un nouveau nom de fichier. Vous devez inclure le dossier extension.")
Si Len (équilibre (fname)) = 0 puis
MsgBox « écrivent svp un nom de fichier »
AhEmptyName GoTo
Finir si
'vérifions encore sur la nouvelle existence de nom de fichier
CheckAgain GoTo
Autrement
'ne fait pas existe, ainsi laisser l'écoulement de code continuer
Finir si
FileCopy Me.document_path, DestinationPathAndName et copie « \ » et de fname 'le dossier à la nouvelle destination
rs.AddNew
rs (« document_desc ») = Me.document_desc
rs (« company_id ») = pany_id de Me.com
rs (« file_type ») = Me.file_type
rs (« attachement ») = Me.chkAttachment
les rs (« document_path ») = DestinationPathAndName et » \ « et fname 'assignent le nouvel endroit au Tableau
rs. Mise à jour
Autrement
MsgBox « que vous devez passer en revue pour un document et choisir un type de dossier. », vbCritical, « erreur »
Me.document_desc.SetFocus
Finissent si
rs. Fin
DB. Fin
Document de MsgBox le « a été sauvé à ce contact de compagnie. », vbInformation, « document d'attache »
Placer les rs = rien
Placer DB = rien
DoCmd.Close
exitline :
Sortir le sous-marin
errline :
Choisir le cas Err.Number
Affaire 94
MsgBox « là sont les champs blancs », vbExclamation, « erreur… »
Affaire 2450
MsgBox « ContactPLUS doit se remettre en marche », vbExclamation, « erreur… »
Relancement d'appel
Cas autrement
MsgBox « une erreur s'est produit. Veuillez informer l'administrateur de base de données du numéro de message d'erreur suivant : » Et Err.Number et vbCrLf et « le message d'erreur est : » Et Err.Description
Exitline GoTo
Extrémité choisie
Sous-marin d'extrémité
|
