Vraag : Vraag gebruiker of wensen zij om bestaand dossier te beschrijven

Hallo, heeft

I de volgende code inzake een cmdknoop die een document in mijn gegevensbestand bewaart.  AhEmptyName: de sectie laat de gebruiker een nieuwe naam voor het document ingaan als een document met de zelfde naam reeds in de folder is.  Hoewel dit o.k. werk, ik de gebruiker de optie zou willen hebben of om het bestaande document te beschrijven of een nieuwe naam te kiezen.  Gelijkaardig aan sparen functie in andere programma's wanneer het een dossier met de zelfde aanwijzingen name.

Any vindt?  Omvat ik enkel een dodenmethode om het exisitngdossier dan met de rest van de code verder te gaan te verwijderen en?

Thanks,
Tom
" codeBody " 
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:
van 
Private SubcmdAttach_Click ()
'Op errline van GoTo van de Fout
    
    Schemerige db als dao. Gegevensbestand
    Schemerige rs als dao. Recordset
    Schemerige LastSlash als Geheel
    Schemerige fname als Koord
    Schemerige DestinationPathAndName als Koord
    Schemerige strFolder als Koord
    
    
    Vastgesteld db = CurrentDb
    Reeks rs = db.OpenRecordset („tbl_documents“, dbOpenDynaset, dbSeeChanges, dbOptimistic)
    
    Als niet IsNull (Me.document_path) of niet IsNull (Me.file_type) toen
    
     LastSlash = InStrRev (Me.document_path, „\“) de 'plaats van de laatste schuine streep vóór het dossier - naam
     fname = Medio (Me.document_path, LastSlash + 1) het 'dossier - naam zonder weg
     
     DestinationPathAndName = GBLnetworkStoragePath & „\“ & „documenten“
     Als Len (Dir (GBLnetworkStoragePath & „\“ & „documenten“, vbDirectory)) > 0 toen
    'Folder er bestaat
Anders
    'Cre�ër de omslag
    MkDir GBLnetworkStoragePath & „\“ & „documenten“
Eind als
         
 
CheckAgain:
'controleer als het dossier - naam er bestaat, alvorens het nieuwe dossier te kopiëren
Als Dir (DestinationPathAndName & „\“ & fname) <> "" toen
   'bestaat, zodat vraag de gebruiker aan
AhEmptyName:
    fname = InputBox („te gaan gelieve een nieuw dossier in - naam.  U moet de dossieruitbreiding omvatten. “)
    Als Len (Versiering (fname)) = 0 toen
    MsgBox „te gaan gelieve een dossier in - naam“
    GoTo AhEmptyName
Eind als

   'controleer opnieuw op het nieuwe dossier - noem bestaan
   GoTo CheckAgain
Anders
   'niet bestaat, zodat laten de codestroom verdergaan
Beëindig als
 
 
     FileCopy Me.document_path, DestinationPathAndName & „\“ & fname 'exemplaar het dossier aan de nieuwe bestemming
   
        rs.AddNew
        rs („document_desc“) = Me.document_desc
        rs („company_id“) = Me.com pany_id
        rs („file_type“) = Me.file_type
        rs („bijlage“) = Me.chkAttachment
        rs („document_path“) = wijzen DestinationPathAndName &“ \ „& fname 'de nieuwe plaats aan de Lijst toe

        rs. Update
    Anders
        MsgBox „u moet voor een document doorbladeren en een dossiertype selecteren. “, vbCritical, „Fout“
        Me.document_desc.SetFocus
    Eind als
    rs. Sluit
    db. Sluit
    Document van MsgBox is het „bewaard aan dit bedrijfcontact. “, maakt vbInformation, „Document vast“
    
    Reeks rs = niets
    Vastgesteld db = niets
    DoCmd.Close


exitline:
  Sub van de uitgang
     
errline:
Selecteer Geval Err.Number
Geval 94
MsgBox „Er zijn lege gebieden“, vbExclamation, „Fout…“
Geval 2450
MsgBox „ContactPLUS moet opnieuw beginnen“, vbExclamation, „Fout…“
Het Nieuwe begin van de vraag
Geval anders
MsgBox is een „Fout voorgekomen.  Gelieve te brengen de Beheerder van het Gegevensbestand van het volgende foutenaantal op de hoogte: “ & Zijn Err.Number & vbCrLf & „de foutenmelding: “ & Err.Description
Exitline van GoTo
Uitgezocht eind
Sub van het eind

Antwoord : Vraag gebruiker of wensen zij om bestaand dossier te beschrijven

Hallo opnieuw,

liep u eigenlijk „cfgmgr - v fcs0“?

Omdat dit een syntaxisfout is (het correcte formaat zou „cfgmgr - v - l fcs0“ geweest zijn)
het is geen wonder die cfgmgr deed wat niet u… verwachtte maar u zou een foutenmelding moeten gezien hebben!

„- De v“ vlag betekent slechts „breedsprakig“ en heeft geen invloed op de functionaliteit van cfgmgr!

In elk geval, „- de l (naam)“ parameter instrueert cfgmgr om het apparaat (naam) en al zijn kinderen te vormen,
zo met het bovengenoemde formaat zou u de kinderen fscsix0 van fcsx minstens moeten gezien hebben, en met de configuratiemethode van HDLM zouden de aangewezen wegen daar, ook moeten zijn.

„cfgmgr“ alleen (of met“ - v ") enerzijds zou proberen om om het even welk apparaat te vormen het vindt.

Zo als u „cfgmgr - v - werkelijk l fcs0“ zonder succes gebruikte zou het kunnen zijn dat Hitachi DLM één of andere speciale methode zou hebben die niet samen met de fcsxconfiguratie wordt teweeggebracht.

Het is sommige jaren geleden dat onze laatste Bliksem HDS, zodat ik afgedankt werd vreest u de output van „lsdev zult moeten posten - C“ of zelfs „lscfg“ voor me om te controleren, als u dieper in dit zou willen graven.


wmp
Andere oplossingen  
 
programming4us programming4us