Вопрос : Как могу я сделать доступ для того чтобы вызвать сигнал тревога когда один из скоросшивателей (например c: /folder) не имеет никакие архивы было создано в последних 90 днях?

Я строю базу данных доступа. Я хотел был бы иметь поле основно вызывает сигнал тревога когда специфически скоросшиватель не будет иметь никакие архивы был создан в последних 90 днях.

Is это достижимое? class=

Ответ : Как могу я сделать доступ для того чтобы вызвать сигнал тревога когда один из скоросшивателей (например c: /folder) не имеет никакие архивы было создано в последних 90 днях?

Никогда не помните, я те проблему.  Огорченно.  Замените Кодего с вариантом ниже.

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

Приватная функция NewestFileInFolder (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="" Then="" NewestFileInFolder="intTemp" End="" If="" Next="" Set="" objFile="Nothing" Set="" objFolder="Nothing" Set="" objFSO="Nothing" End="" Function="">