Вопрос : Как могу я заполнить коробку списка показывает если никакой контакт не был сделан в последних 90 днях и никакой архив не был добавлен к специфически скоросшивателю в последних 90 днях в формах доступа MS с VBA?


Я имею следующий комплекты Кодего. Эти Кодие производят сигналы тревога когда не было контакта в последних 90 днях, или скоросшиватель не обновлен в 90 днях.

эта часть для контактов

  Если DateDiff («d», DMax («DateTime1», «ComCon», «FundName='" & Me.FundName & «'"), дата) > 90

эта часть для архивов (проверки если новый архив созданный в специфически скоросшивателе в последних 90 днях или не), то
Общественная функция 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 = ложно
        Еще
            Если конец < NewestFileInFolder="" Then="" NewestFileInFolder="intTemp        intTemp если
    Затем
    Установленное objFile = ничего
    Установите objFolder = ничего
    Установите objFSO = ничего
Закончите функцию

Эти оба подают в Form10 специфически для входа (специфически для фонда). Эти только для одного фонда.

Я хотел был бы создать такую же вещь идет и ищет все фонды, и приношу вне все поля требуемые вниманием в всей базе данных. И перечисляет их на коробке списка.

спасибо
 
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:

Приватное Sub Form_Current ()
        
    Если DateDiff («d», DMax («DateTime1», «ComCon», «FundName='" & Me.FundName & «'"), дата) > 90 после этого
        Me.lstAlerts.AddItem («UpdateContacts, уточняет контакты: больше чем 90 дней»)
    Закончитесь если
    
    Если >= 90 NewestFileInFolder (Me.Folder) после этого

     Me.lstAlerts.AddItem («UpdateFiles, уточняет архивы: больше чем 90 дней»)
'Me.lstAlerts.AddItem («UpdateFiles, уточняет архивы: больше чем 90 дней»)

    Закончитесь если

    
    
    

Закончите подводную лодку

Приватное Sub Form_Load ()

    Тусклое intX как интежер
    
    Для intX = 0 к Me.lstAlerts.ListCount - 1
        Me.lstAlerts.RemoveItem (intX)
    Следующее intX
    
    
    Подводная лодка конца

Приватное Sub lstAlerts_DblClick (Cancel как интежер)

    Выберите случай Me.lstAlerts.Value
        Покрывайте «UpdateContacts»
            DoCmd.OpenForm «comform», «FundName='" & Me.FundName & «'», acDialog
    Конец отборный
    
     
Подводная лодка конца


Общественная функция 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="" with="" help="" from="">

Ответ : Как могу я заполнить коробку списка показывает если никакой контакт не был сделан в последних 90 днях и никакой архив не был добавлен к специфически скоросшивателю в последних 90 днях в формах доступа MS с VBA?

Вы smogли построить обе из этих проверок в критерю по вопроса.  Вы можете пройти обязательно данные по фондом в каждую функцию и они могут возвратить назад число дней.  Однако, в зависимости от сколько фонды вы имеете, это smogло быть реально медленно сделать дальше - - муху.  Могло быть более лучше построить таблицу работы с информацией и после этого позволить потребителя освежить ее когда обязательно.  После этого вы можете основать listbox на той таблице работы.

Или, вы можете denormalize бит и сохранить LastContactDate и LastFileDate в таблице фондом, освежая те по необходимости.  То вероятно было бы мое предпочтение.  В нашем магазине, мы обозначаем высчитанные поля с суффиксом _CALC так, что никто ошибочный позволит потребителю изменить его в UI.
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us