Question : Comment est-ce que je peux remplir boîte de liste qui montre si aucun contact n'ont été établis en 90 derniers jours et aucun dossier n'a été ajouté à une chemise spécifique en 90 derniers jours sous des formes de MS Access avec VBA ?

J'ai les ensembles de code suivants. Ces codes produisent des alertes quand il n'y a pas eu contact en 90 derniers jours, ou la chemise n'a pas été mise à jour en 90 jours.

la présente partie est pour les contacts

  Si DateDiff (« d », DMax (« DateTime1 », « ComCon », « FundName='" et Me.FundName et « '"), date) > 90

la présente partie est pour les dossiers (contrôle si un nouveau dossier créé dans une chemise spécifique en 90 derniers jours ou pas)
Fonction publique NewestFileInFolder (strFolderPath comme corde) comme nombre entier
    Faible objFSO comme FileSystemObject, objFolder comme objet, objFile comme dossier, intTemp comme nombre entier, bolFirstPass comme booléens
    Placer l'objFSO = le CreateObject (« Scripting.FileSystemobject »)
    Placer l'objFolder = l'objFSO.GetFolder (le strFolderPath)
    les bolFirstPass = rectifient
    Pour chacun objFile dans objFolder.Files
        intTemp = DateDiff (« d », objFile.DateCreated, date)
        Si bolFirstPass alors
            NewestFileInFolder = intTemp
            bolFirstPass = faux
        Autrement
            Si extrémité < NewestFileInFolder="" Then="" NewestFileInFolder="intTemp        d'intTemp si
    Après
    objFile réglé = rien
    Placer l'objFolder = rien
    Placer l'objFSO = rien
Finir la fonction

Ces tous les deux introduisent dans un Form10 qui est spécifique pour une entrée (spécifique pour des fonds). Ceux-ci sont seulement pour un fonds.

Je voudrais créer la même chose qui disparaît et recherche tous les fonds, et mets en évidence tous les champs priés par attention dans la base de données entière. Et les énumère sur une boîte de liste.

merci

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 :

Form_Current secondaire privé () Si DateDiff (« d », DMax (« DateTime1 », « ComCon », « FundName='" et Me.FundName et « '"), date) > 90 puis Me.lstAlerts.AddItem (« UpdateContacts, mettent à jour les contacts : il a été plus de 90 jours ») Finir si Si >= 90 de NewestFileInFolder (Me.Folder) puis Me.lstAlerts.AddItem (« UpdateFiles, mettent les dossiers : il a été plus de 90 jours ») 'Me.lstAlerts.AddItem (« UpdateFiles, mettent les dossiers : il a été plus de 90 jours ») Finir si Finir le sous-marin Form_Load secondaire privé () Faible intX comme nombre entier Pour l'intX = 0 à Me.lstAlerts.ListCount - 1 Me.lstAlerts.RemoveItem (intX) Prochain intX Sous-marin d'extrémité lstAlerts_DblClick secondaire privé (annulation comme nombre entier) Choisir le cas Me.lstAlerts.Value Enfermer « UpdateContacts » DoCmd.OpenForm « comform », « FundName='" et Me.FundName et « ' », acDialog Extrémité choisie Sous-marin d'extrémité Fonction publique NewestFileInFolder (strFolderPath comme corde) comme nombre entier Faible objFSO comme FileSystemObject, objFolder comme objet, objFile comme dossier, intTemp comme nombre entier, bolFirstPass comme booléens Placer l'objFSO = le CreateObject (« Scripting.FileSystemobject ») Placer l'objFolder = l'objFSO.GetFolder (le strFolderPath) les bolFirstPass = rectifient Pour chacun objFile dans objFolder.Files intTemp = DateDiff (« d », objFile.DateCreated, date) Si bolFirstPass alors NewestFileInFolder = intTemp bolFirstPass = faux Autrement S'intTemp < NewestFileInFolder="" Then="" NewestFileInFolder="intTemp" End="" If="" Next="" Set="" objFile="Nothing" Set="" objFolder="Nothing" Set="" objFSO="Nothing" End="" Function="" with="" help="" from="">

Réponse : Comment est-ce que je peux remplir boîte de liste qui montre si aucun contact n'ont été établis en 90 derniers jours et aucun dossier n'a été ajouté à une chemise spécifique en 90 derniers jours sous des formes de MS Access avec VBA ?

Vous pourriez établir tous les deux contrôles dans des critères de question.  Vous pouvez passer l'information nécessaire de fonds dans chaque fonction et elle peut renvoyer en arrière le nombre de jours.  Cependant, selon combien de fonds vous avez, ceci pourrait être vraiment lent pour faire en marche.  Il pourrait être meilleur de construire une table de travail avec l'information et puis de permettre à l'utilisateur de la régénérer si nécessaire.  Alors vous pouvez baser le listbox sur cette table de travail.

Ou, vous pouvez denormalize un peu et stocker le LastContactDate et le LastFileDate dans la table de fonds, régénérant ceux selon les besoins.  Ce serait probablement ma préférence.  Dans notre magasin, nous indiquons les zones avec un suffixe de _CALC de sorte que personne ne permette de manière erronée à l'utilisateur de le changer dans l'UI.