Vraag : De Vraag van de update (of VBA) die een gegevensbestand met de datum van het laatste dossier cre�ërden in een omslag bijwerken

Ik heb de volgende code die BlueDevilFan schreef.

So deze code onderzoekt een omslag en vindt het meest recente die dossier in die omslag wordt gecre�ërd. En trekt die datum van de datum van vandaag af.

So die ik heb willen om deze code o gebruiken gelijkaardig iets om een lijst aangaande het gegevensbestand bij te werken. Zo, zal de vraag elk fonds in de lijst en de overeenkomstige omslag controleren. Het zal het recentste dossier controleren en zal de datum grijpen. En werk een lijst met de overeenkomstige data bij.

So,
The updatevraag zal Fundinfo onderzoeken! FundName (naam van het fonds) en FundInfo! Omslag (plaats van de omslag zoals c:\aa\loca). Het zal de datum van het laatste onder gecre�ërde dossier (c:\aa\loca) controleren. Dan, zal het naar modhist gaan! FundName (fundname) en modhist! LastFileDate (datum van het laatste die dossier in een omslag wordt gecre�ërd) en werkt modhist bij! LastFileDate met de verwezenlijkingsdatum van het meest recente dossier onder c:\aa\loca)/>I hoop





" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Public Functie DateNewestFileInFolder (strFolderPath als Koord) als Geheel
    Schemerige objFSO als FileSystemObject, objFolder als Voorwerp, objFile als Dossier, intTemp als Geheel, bolFirstPass zoals Van Boole
    Reeks objFSO = CreateObject („Scripting.FileSystemobject“)
    Reeks objFolder = objFSO.GetFolder (strFolderPath)
    bolFirstPass = Waar
    Voor elk objFile in objFolder.Files
        intTemp = DateDiff („D“, objFile.DateCreated, Datum)
        Als bolFirstPass toen
            NewestFileInFolder = intTemp
            bolFirstPass = Vals
        Anders
            Als intTemp < NewestFileInFolder toen NewestFileInFolder = intTemp
            
        Eind als
    Daarna
    Vastgestelde objFile = niets
    Reeks objFolder = niets
    Reeks objFSO = niets
De Functie van het eind

Antwoord : De Vraag van de update (of VBA) die een gegevensbestand met de datum van het laatste dossier cre�ërden in een omslag bijwerken

Vergeef mijn typos….
1:
2:
3:
4:
5:

Reeks rs = CurrentDb.OpenRecordset („selecteer fundname, omslag van FundInfo“, dbOpenSnapshot)

Doe terwijl niet rs.EOF
     CurrentDb.Execute („updatemodHist vastgestelde LastFileDate = # '“ & DateNewestFileInFolder (rs („omslag“)) &“ „# waar fundName =“ „& rs („fundname“) &“ '„)
Lijn
Andere oplossingen  
 
programming4us programming4us