Fråga : Fråga användaren, om de önskar att överskriva existerande sparar

Hi

I har efter kodifiera på en cmd att knäppas som sparar ett dokument in i min databas.  AhEmptyNamen: dela upp låter användaren skriva in ett nytt namnger för dokumentet, om ett dokument med det samma känt är redan i arkivet.  Eller att välja ett nytt namnge, även om detta fungerar ok, jag skulle något liknande användaren för att ha alternativet till endera att överskriva det existerande dokumentet.  Liknande till räddningen fungera i andra program, när den finner en spara med de samma ledtrådarna för name.

Any?  I inkluderar precis en bytemetod för att ta bort exisitngen sparar och fortsätter därefter med vila av kodifiera?

Thanks,
Tom > för

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:

" codeBody " " class= undercmdAttach_Click " för Private () 'På GoTo errline för fel Dunkel db som dao. Databas Dunkla rs som dao. Recordset Dunkla LastSlash som heltal Dunkel fname som stränger Dunkla DestinationPathAndName som stränger Dunkel strFolder som stränger Uppsättning db = CurrentDb Fastställda rs = db.OpenRecordset (”tbl_documents”, dbOpenDynaset, dbSeeChanges som, är dbOptimistic) Om inte IsNull (Me.document_path) eller inte IsNull (Me.file_type) därefter LastSlash = InStrRev (Me.document_path, ”\”) 'som läget av jumbon hugger för spara - namnge fname = mitt- (Me.document_path, LastSlash + 1) 'spara - namnge utan banan DestinationPathAndName = GBLnetworkStoragePath & ”\” & ”dokument”, Om Len (Dir (GBLnetworkStoragePath & ”\” & ”dokument” som, är vbDirectory)) > 0 därefter 'Arkivet finns Annars 'Skapa mappen MkDir GBLnetworkStoragePath & ”\” & ”dokument”, Avsluta om CheckAgain: 'kontrollera om den kända spara - finns, innan att kopiera det nytt, sparar Om Dir (DestinationPathAndName & ”\” & fname) <>"" därefter 'finns, så låt oss frågar användaren till AhEmptyName: fname = InputBox (”behaga skriver in ett nytt sparar - namnge. Du måste inkludera sparaf8orlängningen. ”) Om Len (klippning (fname)) = 0 därefter MsgBox ”behar skriver in en spara - namnge”, GoTo AhEmptyName Avsluta om 'låt oss kontrollera igen på det nytt sparar - känd existens GoTo CheckAgain Annars 'gör inte finns, så låt kodifieraflödet fortsätta Avsluta om FileCopy Me.document_path, DestinationPathAndName & ”\” & fname 'kopierar spara till den nya destinationen rs.AddNew rs (”document_desc”) = Me.document_desc rs (”company_id”) = Me.com pany_id rs (”file_type”) = Me.file_type rs (”tillbehör”) = Me.chkAttachment rs (”document_path”) = DestinationPathAndName &” \ ”& fname 'tilldelar det nya läget till bordlägga rs. Uppdatering Annars MsgBox, ”som du behöver att bläddra för ett dokument och att välja en filtyp. ” vbCritical, ”fel”, Me.document_desc.SetFocus Avsluta om rs. Nära db. Nära Det MsgBox ”dokumentet har sparats till denna företagskontakt. ” vbInformation, ”bilagadokument”, Fastställda rs = ingenting Uppsättning db = ingenting DoCmd.Close exitline: Gå ut suben errline: Välj fallet Err.Number Fall 94 MsgBox ”där är tom sätter in”, vbExclamationen, ”felet…”, Fall 2450 MsgBox ”ContactPLUS behöver att starta om igen”, vbExclamationen, ”felet…”, Appellomstart Fall annars MsgBox ”ett fel har uppstått. Behaga meddelar databasadministratören av felet numrerar efter: ” & Err.Number & vbCrLf & ”felmeddelandet är: ” & Err.Description GoTo exitline Avsluta valt Avsluta suben " klar "

Svar : Fråga användaren, om de önskar att överskriva existerande sparar

Hi igen,

du körde faktiskt ”cfgmgr - v fcs0”?

Formatera skulle har varit ”cfgmgr - v - därför att detta är ett syntaxfel (det korrekt, l fcs0”),
det är ingen under som cfgmgr inte gjorde vad du förväntade… men du bör ha sett ett felmeddelande!

”- V” sjunker endast ”verbose” hjälpmedel och har inte någon påverkan på cfgmgrs funktionsduglighet!

På något sätt ”- l (namnge),” parametern instruerar cfgmgr att konfigurera apparaten (namnge) och alla dess barn,
så med det ovannämnt formatera dig bör åtminstone ha sett barnen fscsix0 av fcsx, och med HDLMS konfigurationmetod anslåbanorna bör vara där, för.

”ensam cfgmgr” (eller med” - v ") skulle å ena sidan försök att konfigurera någon apparat som det finner.

, om så du använde faktiskt ”cfgmgr - v - l fcs0” utan framgång, det kunde vara att skulle Hitachi DLM har någon special metod som inte startas tillsammans med fcsxkonfigurationen.

Det är några år, sedan som den vår blixt för jumbon HDS får skrotad, så jag fruktar dig ska måste att posta som tillverkas av ”lsdev - C” eller även ”lscfg” för att mig ska kontrollera, om du skulle något liknande för att gräva djupare in i detta.


wmp