Frage : Benutzer fragen, ob sie vorhandene Akte überschreiben möchten

Hallo, haben

I den folgenden Code auf einem cmd Knopf, der ein Dokument in meine Datenbank sichert.  Das AhEmptyName: Abschnitt lässt den Benutzer einen neuen Namen für das Dokument eintragen, wenn ein Dokument mit dem gleichen Namen bereits im Verzeichnis ist.  Obgleich dieses o.k. arbeitet, möchte ich, dass der Benutzer die Wahl entweder zu das vorhandene Dokument überschreiben oder einen neuen Namen wählen lässt.  Ähnlich der Sicherungsfunktion in anderen Programmen, wenn sie eine Akte mit den gleichen name.

Any Anhaltspunkten findet?  Schließe ich gerade eine Tötungmethode ein, um die exisitng Akte zu entfernen und mit dem Rest des Codes dann fortzufahren?

Thanks,
Tom 
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:
6:
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:

Private VorcmdAttach_Click ()
'Auf Störung Goto- errline
    
    Schwaches DB als dao. Datenbank
    Schwache rs als dao. Recordset
    Schwaches LastSlash als ganze Zahl
    Schwaches fname als Schnur
    Schwaches DestinationPathAndName als Schnur
    Schwaches strFolder als Schnur
    
    
    Einstellen DB = CurrentDb
    Rs = db.OpenRecordset („tbl_documents“, das dbOpenDynaset, dbSeeChanges, dbOptimistic) einstellen
    
    Wenn nicht IsNull (Me.document_path) oder nicht IsNull (Me.file_type) dann
    
     LastSlash = InStrRev (Me.document_path, „\ ") 'die Position des letzten Schrägstriches vor dem Dateinamen
     fname = mittler (Me.document_path, LastSlash + 1) 'der Dateiname ohne Weg
     
     DestinationPathAndName = GBLnetworkStoragePath u. „\“ u. „Dokumente“
     Wenn Len (Dir (GBLnetworkStoragePath u. „\“ u. „Dokumente“, vbDirectory)) > 0 dann
    'Verzeichnis existiert
Sonst
    'Das Faltblatt herstellen
    MkDir GBLnetworkStoragePath u. „\“ u. „Dokumente“
Beenden wenn
         
 
CheckAgain:
vor der Kopie der neuen Akte ', ob der Dateiname existiert, überprüfen
Wenn Dir (DestinationPathAndName u. „\“ u. fname) <> "" dann
   'existiert, also uns lassen fragen den Benutzer zu
AhEmptyName:
    fname = InputBox („einen neuen Dateinamen bitte eintragen.  Sie müssen die Akte extension.") mit einschließen
    Wenn Len (Ordnung (fname)) = 0 dann
    MsgBox „tragen bitte einen Dateinamen“ ein
    Goto- AhEmptyName
Beenden wenn

   'uns auf dem neuen Dateinamebestehen wieder überprüfen lassen
   Goto- CheckAgain
Sonst
   'tut nicht existiert, also den Codefluß fortfahren lassen
Beenden wenn
 
 
     FileCopy Me.document_path, DestinationPathAndName u. „\“ u. fname 'Kopie die Akte zum neuen Bestimmungsort
   
        rs.AddNew
        rs („document_desc“) = Me.document_desc
        rs („company_id“) = Me.com pany_id
        rs („file_type“) = Me.file_type
        rs („Zubehör“) = Me.chkAttachment
        rs („document_path“) = DestinationPathAndName u.“ \ „u. fname 'weisen die neue Position dem Tabelle zu

        rs. Update
    Sonst
        MsgBox, „, das Sie für ein Dokument grasen und eine Aktenart vorwählen müssen. “, vbCritical, „Störung“
        Me.document_desc.SetFocus
    Beenden wenn
    rs. Abschluss
    DB. Abschluss
    MsgBox „Dokument ist zu diesem Firmakontakt gesichert worden. “, vbInformation, „Befestigungs-Dokument“
    
    Rs einstellen = nichts
    Einstellen DB = nichts
    DoCmd.Close


exitline:
  Unterseeboot herausnehmen
     
errline:
Fall Err.Number vorwählen
Rechtssache 94
MsgBox „dort sind unbelegte Felder“, vbExclamation, „Störung…“
Rechtssache 2450
MsgBox „ContactPLUS muss wiederbeginnen“, vbExclamation, „Störung…“
Anruf-Wiederanlauf
Fall sonst
MsgBox „eine Störung ist aufgetreten.  Den Datenbankverwalter über der folgenden Störungszahl bitte benachrichtigen: “ U. ist Err.Number u. vbCrLf u. „die Fehlermeldung: “ U. Err.Description
Goto- exitline
Ende auserwählt
Enden-Unterseeboot

Antwort : Benutzer fragen, ob sie vorhandene Akte überschreiben möchten

Hallo wieder,

ließen Sie wirklich „cfgmgr - v fcs0“ laufen?

Weil dieses eine Syntaxstörung ist (das korrekte Format würde „cfgmgr - v - L fcs0“ gewesen sein)
es ist kein Wunder, dem cfgmgr nicht tat, was Sie… erwarteten, aber Sie eine Fehlermeldung gesehen haben sollten!

Die „- v-“ Markierungsfahne bedeutet nur „ausführliches“ und hat keinen Einfluss auf Funktionalität der cfgmgrs!

Sowieso „- L (Name)“ Parameter weist cfgmgr an, um die Vorrichtung (Namen) und alle seine Kinder zusammenzubauen,
so mit dem oben genannten Format sollten Sie die Kinder fscsix0 von fcsx mindestens gesehen haben, und mit Konfigurationsmethode HDLMS sollten die passenden Wege dort sein, auch.

„cfgmgr“ alleine (oder mit“ - v ") einerseits würde versuchen, jede mögliche Vorrichtung zusammenzubauen, die es findet.

So, wenn Sie wirklich „cfgmgr - v - L fcs0“ ohne Erfolg benutzten, könnte es sein, dass Hitachi DLM irgendeine spezielle Methode haben würde, die nicht zusammen mit der fcsx Konfiguration ausgelöst wird.

Vor es ist einigen Jahren das, das unser letzter HDS Blitz ausrangiert erhält, also fürchte mich ich, dass Sie den Ausgang von „lsdev bekannt geben müssen - C“ oder sogar „lscfg“, damit ich überprüfe, wenn Sie tieferes in dieses graben möchten.


wmp
Weitere Lösungen  
 
programming4us programming4us