Pytanie : Pytać użytkownik jeżeli życzyć overwrite istniejący kartoteka

Cześć,

I mieć the następujący kod na cmd guzik che ratować dokument w mój baza danych.  The AhEmptyName: sekcja pozwalać the użytkownik nowy imię dla the dokument jeżeli dokument z the ten sam imię być już w the książka telefoniczna.  Chociaż imię pracować to, i polubić the użytkownik the opcja lub overwrite the istniejący dokument lub nowy imię.  Jednakowy the jednakowy funkcja w inny program gdy ono znajdować kartoteka z the ten sam name.

Any wskazówka?  I właśnie zawierać zwłoki metoda the exisitng kartoteka i wtedy z the odpoczynek the kod?

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:
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:

Private Okręt podwodny cmdAttach_Click ()
'Na Błąd Rozpoczynający errline
    
    Ciemnawy db Jako dao. Baza danych
    Ciemnawy rs Jako dao. Recordset
    Ciemnawy LastSlash Jako Integer
    Ciemnawy fname Sznurek
    Ciemnawy DestinationPathAndName Sznurek
    Ciemnawy strFolder Sznurek
    
    
    Set db = CurrentDb
    Ustalony rs = db.OpenRecordset ("tbl_documents", dbOpenDynaset, dbSeeChanges, dbOptimistic)
    
    Jeśli nie IsNull (Me.document_path) Lub Nie IsNull (Me.file_type) Wtedy
    
     LastSlash = InStrRev (Me.document_path, "\ ") 'the lokacja the ostatni cięcie przed the kartoteka - imię
     fname = W połowie (Me.document_path, LastSlash + 1) 'the kartoteka - imię bez ścieżka
     
     DestinationPathAndName = GBLnetworkStoragePath & "\" & "dokument"
     Jeżeli Len (Dir (GBLnetworkStoragePath & "\" & "dokument", vbDirectory)) > (0) Wtedy
    'Książka telefoniczna Istnieć
Inny
    'Tworzyć the falcówka
    MkDir GBLnetworkStoragePath & "\" & "dokument"
Kończyć Jeżeli
         
 
CheckAgain:
'sprawdzać jeżeli the kartoteka - imię istnieć, przed the nowy kartoteka
Jeżeli Dir (DestinationPathAndName & "\" & fname) <> "" Wtedy
   'the istnieć, więc pozwalać pytać the użytkownik
AhEmptyName:
    fname = InputBox ("Zadawalać wchodzić do nowy kartoteka - imię.  Ty musieć the kartoteka extension.")
    Jeżeli Len (Podstrzyżenie (fname)) = (0) Wtedy
    MsgBox "Zadawalać wchodzić do kartoteka - imię"
    Rozpoczynający AhEmptyName
Kończyć Jeżeli

   'pozwalać znowu na the nowy kartoteka - wymieniać istnienie
   Rozpoczynający CheckAgain
Inny
   'istnieć, więc pozwalać the kod przepływ
Kończyć Jeżeli
 
 
     FileCopy Me.document_path, DestinationPathAndName & "\" & fname 'kopia the kartoteka the nowy miejsce przeznaczenia
   
        rs.AddNew
        rs ("document_desc") = Me.document_desc
        rs ("company_id") = Me.com pany_id
        rs ("file_type") = Me.file_type
        rs ("doczepianie") = Me.chkAttachment
        rs ("document_path") = DestinationPathAndName &" \ "& fname 'wyznaczać the nowy lokacja the Stół

        rs. Aktualizacja
    Inny
        MsgBox "Ty potrzebować dla dokument i kartoteka typ. ", vbCritical, "Błąd"
        Me.document_desc.SetFocus
    Kończyć Jeżeli
    rs. Zakończenie
    db. Zakończenie
    MsgBox "Dokument ratować ten firma kontakt. ", vbInformation, "Dołączać Dokument"
    
    Ustalony rs = Nic
    Set db = Nic
    DoCmd.Close


exitline:
  Wyjście Okręt podwodny
     
errline:
Wybrany Skrzynka Err.Number
Skrzynka 94
MsgBox "Tam  być pusty pole", vbExclamation, "Błąd…"
Skrzynka 2450
MsgBox "ContactPLUS potrzeba", vbExclamation, "Błąd…"
Wywoławczy Wznowienie
Skrzynka Inny
MsgBox "Błąd zdarzać się.  Zadawalać zawiadamiać the Baza danych Administrator the następujący błąd liczba: " & Err.Number & vbCrLf & "The błąd wiadomość być: " & Err.Description
Rozpoczynający exitline
Końcówka Wybiórka
Końcówka Okręt podwodny

Odpowiedź : Pytać użytkownik jeżeli życzyć overwrite istniejący kartoteka

Cześć znowu,

ty właściwie biegać "cfgmgr - v fcs0"?

Ponieważ fcs0 być składnia błąd (the poprawny format być "cfgmgr - v - l fcs0")
ono być żadny cud który cfgmgr zrobić ono ty oczekiwać… ale ty musieć błąd wiadomość!

The "- v" chorągwiany tylko środek "mowny" i mieć jakaś oddziaływanie na cfgmgr's funkcjonalność!

Jakkolwiek, the "- l (imię)" parametr instruować cfgmgr the przyrząd (imię) i wszystkie swój dziecko,
w ten sposób z the w ten sposób format ty musieć przynajmniej the fscsix0 dziecko fcsx, i z HDLM'S konfiguracja metoda the odpowiedni ścieżka musieć tam, zbyt.

"cfgmgr" samotnie (lub z" - v ") z jednej strony próbować jakaś przyrząd ono znajdować.

W Ten Sposób jeżeli ty właściwie używać "cfgmgr - v - l fcs0" bez sukces ono móc że Hitachi DLM mieć niektóre specjalny metoda che wywoływać wraz z the fcsx konfiguracja.

Ono być niektóre rok temu dostawać nasz ostatni HDS Błyskawica dostać przeznaczać do rozbiórki, więc I bać się ty musieć the wydajność "lsdev - C" albo nawet "lscfg" dla, jeżeli ty polubić głęboki w głęboki.


wmp
Inne rozwiązania  
 
programming4us programming4us