Questione : Chiedere ad utente se desiderano scrivere sopra la lima attuale

Ciao, il

I ha il seguente codice su un tasto del cmd che conserva un documento nella mia base di dati.  Il AhEmptyName: la sezione lascia l'utente introdurre un nuovo nome per il documento se un documento con lo stesso nome è già nell'indice.  Anche se questo funziona bene, vorrei l'utente fare scegliere l'opzione a scrivere sopra il documento attuale o un nuovo nome.  Simile alla funzione di risparmio in altri programmi quando trova una lima con gli stessi indizi di name.

Any?  Comprendo appena un metodo di uccisione per rimuovere la lima del exisitng ed allora per continuare con il resto del codice?

Thanks,
Tom class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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= cmdAttach_Click secondario " del id= " codeSnippet692167 del 
Private " notpretty " ()
'Sul errline di avanzamento di errore
    
    Db fioco come dao. Base di dati
    Rs fiochi come dao. Recordset
    LastSlash fioco come numero intero
    Fname fioco come stringa
    DestinationPathAndName fioco come stringa
    strFolder fioco come stringa
    
    
    Regolar db = CurrentDb
    Regolare i rs = db.OpenRecordset (“tbl_documents„, dbOpenDynaset, dbSeeChanges, dbOptimistic)
    
    Se non IsNull (Me.document_path) o non IsNull (Me.file_type) allora
    
     LastSlash = InStrRev (Me.document_path, “\ ") 'la posizione di ultimo taglio prima del nome di schedario
     fname = metà di (Me.document_path, LastSlash + 1) 'il nome di schedario senza percorso
     
     DestinationPathAndName = GBLnetworkStoragePath & “\„ & “documenti„
     Se Len (Dir (GBLnetworkStoragePath & “\„ & “documenti„, vbDirectory)) > 0 allora
    'L'indice esiste
Altrimenti
    'Generare il dispositivo di piegatura
    MkDir GBLnetworkStoragePath & “\„ & “documenti„
Concluder se
         
 
CheckAgain:
'controllare se il nome di schedario esiste, prima della copiatura della lima nuova
Se "" del <> di Dir (DestinationPathAndName & “\„ & fname) allora
   'esiste, in modo da lasciarli chiedono all'utente a
AhEmptyName:
    fname = InputBox (“entrare prego in un nuovo nome di schedario.  Dovete includere la lima extension.")
    Se Len (disposizione (fname)) = 0 allora
    MsgBox “entra prego in un nome di schedario„
    AhEmptyName di avanzamento
Concluder se

   'controlliamo ancora sulla nuova esistenza di nome di schedario
   CheckAgain di avanzamento
Altrimenti
   'non fa esiste, in modo da lasciare il flusso di codice continuare
Concluder se
 
 
     FileCopy Me.document_path, DestinationPathAndName & copia del fname &„ '“\ la lima alla nuova destinazione
   
        rs.AddNew
        rs (“document_desc„) = Me.document_desc
        rs (“company_id„) = pany_id di Me.com
        rs (“file_type„) = Me.file_type
        rs (“collegamento„) = Me.chkAttachment
        i rs (“document_path„) = DestinationPathAndName &„ \ “& fname 'assegnano la nuova posizione alla Tabella

        rs. Aggiornamento
    Altrimenti
        MsgBox “che dovete passare in rassegna per un documento e selezionare un tipo di lima. „, vbCritical, “errore„
        Me.document_desc.SetFocus
    Si concludono se
    rs. Fine
    db. Fine
    Il documento di MsgBox “è stato conservato a questo contatto dell'azienda. „, vbInformation, “documento dell'attaccatura„
    
    Regolare i rs = niente
    Regolar db = niente
    DoCmd.Close


exitline:
  Uscire il sommergibile
     
errline:
Selezionare il caso Err.Number
Caso 94
MsgBox “là è campi in bianco„, vbExclamation, “errore…„
Caso 2450
MsgBox “ContactPLUS deve ricominciare„, vbExclamation, “errore…„
Nuovo inizio di chiamata
Caso altrimenti
MsgBox “un errore ha accaduto.  Informare prego il coordinatore di base di dati di seguente numero di errore: „ & Err.Number & il vbCrLf & “il messaggio di errore è: „ & Err.Description
Exitline di avanzamento
Estremità prescelta
Sommergibile dell'estremità
class= del

Risposta : Chiedere ad utente se desiderano scrivere sopra la lima attuale

Ciao ancora,

realmente avete fatto funzionare “il cfgmgr - la v fcs0„?

Poiché questo è un errore di sintassi (la disposizione corretta sarebbe stata “cfgmgr - v - l fcs0„)
è meraviglia che il cfgmgr non ha fatto che cosa avete preveduto… ma dovreste vedere un messaggio di errore!

“- La bandierina di v„ significa soltanto “verbose„ e non ha alcun'influenza su funzionalità dei cfgmgr!

In ogni modo, “- la l (nome)„ il parametro insegna al cfgmgr per configurare il dispositivo (nome) e tutti i relativi bambini,
così con la disposizione di cui sopra dovreste vedere almeno i bambini fscsix0 di fcsx e con il metodo di configurazione del HDLM i percorsi adatti dovrebbero essere là, anche.

“il cfgmgr„ da solo (o con„ - la v ") da un lato proverebbe a configurare tutto il dispositivo che trova.

Così se realmente usaste “il cfgmgr - v - l fcs0„ senza successo potrebbe essere che Hitachi DLM avrebbe avuta certo metodo speciale che non è innescato con la configurazione del fcsx.

È determinati anni fa quello il nostro ultimo lampo di HDS ottiene scartato, in modo da temo che dobbiate inviare l'uscita “di lsdev - C„ o persino “lscfg„ affinchè me controlliate, se abbiate voluto scavare più profondo in questo.


wmp
Altre soluzioni  
 
programming4us programming4us