Вопрос : Уточните вопрос (или VBA) уточняет базу данных с датой последнего архива созданного в скоросшивателе

Я имею следующий Кодего BlueDevilFan написало. это Кодий

So смотрит в скоросшиватель и считает самый недавний архив после того как оно создано в том скоросшивателе. И вычитает ту дату от сегодняшней даты.

So, котор я хочу использовать это Кодего o что-то подобное для уточнения таблицы на базе данных. Так, вопрос проверит каждый фонд в таблице и соответствуя скоросшивателе. Он проверит самый последний архив и схватит дату. И уточните таблицу с соответствуя датами.

So, вопрос уточнения
The посмотрит в Fundinfo! FundName (имя фонда) и FundInfo! Скоросшиватель (положение скоросшивателя любит c:\aa\loca). Он проверит дату последнего архива созданного вниз (c:\aa\loca). После этого, он идет к modhist! FundName (fundname) и modhist! LastFileDate (дата последнего архива создалась в скоросшивателе) и уточняет modhist! LastFileDate с датой создания самого недавнего архива под упованием

I c:\aa\loca) это легко для того чтобы понять. Если вы имеете вопросы препятствовали мне know




class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

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

функция DateNewestFileInFolder " class= " id= " codeSnippet965111 Public (strFolderPath как шнур) как интежер Тусклое objFSO как FileSystemObject, objFolder как предмет, objFile как архив, intTemp как интежер, bolFirstPass как булевско Установите objFSO = CreateObject («Scripting.FileSystemobject») Установите objFolder = objFSO.GetFolder (strFolderPath) bolFirstPass = True Для каждого objFile в objFolder.Files intTemp = DateDiff («d», objFile.DateCreated, дата) Если bolFirstPass после этого NewestFileInFolder = intTemp bolFirstPass = ложно Еще Если intTemp < NewestFileInFolder после этого NewestFileInFolder = intTemp Закончитесь если Затем Установленное objFile = ничего Установите objFolder = ничего Установите objFSO = ничего Закончите функцию

class=

Ответ : Уточните вопрос (или VBA) уточняет базу данных с датой последнего архива созданного в скоросшивателе

Простите моим typos….

1: 2: 3: 4: 5:

Установите rs = CurrentDb.OpenRecordset («отборное fundname, скоросшиватель от FundInfo», dbOpenSnapshot) Сделайте пока не rs.EOF CurrentDb.Execute («modHist установленное LastFileDate = # '» & DateNewestFileInFolder уточнения (rs («скоросшиватель»)) &» «# где fundName =» «& rs («fundname») &» '") Петля