Frage : Frage (oder VBA) aktualisieren die eine Datenbank mit dem Datum der letzten Akte aktualisiert, die in einem Faltblatt hergestellt wird

Ich habe den folgenden Code, den BlueDevilFan schrieb.

So dieser Code untersucht ein Faltblatt und findet die neueste Akte hergestellt in diesem Faltblatt. Und subtrahiert, das heutiges Datum herr5uhren von.

So, das ich diesen Code O verwenden möchte etwas, das, um eine Tabelle auf der Datenbank zu aktualisieren ähnlich ist. So überprüft die Frage jede Kapital in der Tabelle und im entsprechenden Faltblatt. Sie überprüft die späteste Akte und ergreift das Datum. Und eine Tabelle mit den entsprechenden Daten aktualisieren.

So,
The Updatefrage untersucht Fundinfo! FundName (Name der Kapitals) und FundInfo! Faltblatt (Position des Faltblatts mögen c:\aa\loca). Es überprüft das Datum der letzten Akte, die darunter hergestellt wird (c:\aa\loca). Dann geht es zum modhist! FundName (fundname) und modhist! LastFileDate (Datum der letzten Akte verursachte in einem Faltblatt) und aktualisieren das modhist! LastFileDate mit dem Erstellungsdatum der neuesten Akte unter c:\aa\loca)

I Hoffnung dieses ist einfach zu verstehen. Wenn Sie Fragen ließen mich know




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

Public Funktion DateNewestFileInFolder (strFolderPath als Schnur) als ganze Zahl
    Schwaches objFSO als FileSystemObject, objFolder als Gegenstand, objFile als Akte, intTemp als ganze Zahl, bolFirstPass, wie Boolesch
    objFSO = CreateObject („Scripting.FileSystemobject“) einstellen
    objFolder = objFSO.GetFolder (strFolderPath) einstellen
    bolFirstPass = richten aus
    Für jedes objFile in objFolder.Files
        intTemp = DateDiff („d“, objFile.DateCreated, Datum)
        Wenn bolFirstPass dann
            NewestFileInFolder = intTemp
            bolFirstPass = falsch
        Sonst
            Wenn intTemp < NewestFileInFolder dann NewestFileInFolder = intTemp
            
        Beenden wenn
    Zunächst
    Gesetztes objFile = nichts
    objFolder einstellen = nichts
    objFSO einstellen = nichts
Funktion beenden

Antwort : Frage (oder VBA) aktualisieren die eine Datenbank mit dem Datum der letzten Akte aktualisiert, die in einem Faltblatt hergestellt wird

Meinen Typos verzeihen….
1:
2:
3:
4:
5:

Rs = CurrentDb.OpenRecordset („auserwähltes fundname, Faltblatt von FundInfo“, dbOpenSnapshot) einstellen

Tun während nicht rs.EOF
     CurrentDb.Execute („Update modHist gesetztes LastFileDate = # '“ u. DateNewestFileInFolder (rs („Faltblatt“)) u.“ „# wo fundName =“ „u. rs („fundname“) u.“ '")
Schleife
Weitere Lösungen  
 
programming4us programming4us