Question : Contacts de l'échange 2007 traitant l'issue

Nous avons un utilisateur avec un téléphone de Droid qui reproduisait ses contacts. Ses contacts se sont levés à 145.000 montrant dans les perspectives. Hier j'ai essuyé son téléphone pour empêcher la duplication de continuer et ai essayé d'enlever tous les contacts doubles de ses perspectives. Il est avalent maintenant à 1.000 contacts montrant dans les perspectives. À ce point notre serveur d'échange commencent d'abord le ralentissement, retardant l'email par 10-15 minutes. J'ai alors clôturé ses perspectives qui ont semblé traiter le changement de contacts espérant arrêter la lenteur. Après qu'un écoulement arrêté par email d'heure du tout et nous ait dû recharger l'échange pour regagner l'accès. Ce matin nous avons essayé d'ouvrir ses perspectives pour mettre à jour les contacts mais la même chose s'est produite. Comment est-ce que je peux fixer cette issue et sans salir vers le haut le serveur d'échange en même temps ? class= de

Réponse : Contacts de l'échange 2007 traitant l'issue

Dans la mesure où je sais que la liste des combobox doit être *before* chargé le combobox est cliqué.
Ainsi il semble que vous pouvez devoir trouver une autre manière d'activer le choix.
Peut-être vous pourriez l'essayer quand la forme est initialisée, ou créer un groupe d'option, ou faire le combobox principal,…
(Encore, ceci illustre seulement pourquoi c'est fonctionnalité non standard.)

Quoi qu'il arrive,… le code a pu être n'importe quoi de pareil :

'Créer la variable
Obscurcir le strWhatList comme corde
   
    'Charger la variable avec quelque texte l'utilisateur entre dans dans l'inputbox
    strWhatList = InputBox (« quelle liste ? » et vbCrLf et « (entrer : them pour des employés, ou « EQ », pour Equiptment) ")
   
    'Si les clics « annulation » d'utilisateur,
    'sortir le sous-marin sans des listes chargées dans le combobox
    Si strWhatList = puis ""
        'Afficher un message, puis ouvrir la forme
        '(sans liste dans le combobox)
        MsgBox « aucune liste choisie pour charger le combobox.  », vbInformation
        'Sortie
        Sortir le sous-marin
    strWhatList d'ElseIf = « fin de support » ou strWhatList = « fin de support » puis
        'Charger la gamme appropriée de liste
        Me.cboWhatList.RowSource = « =Sheet1 ! A2 : A8 »
        'Placer l'étiquette de combobox
        Me.lblWhatList.Caption = « employés »
    strWhatList d'ElseIf = « EQ » ou strWhatList = « eq » puis
        Me.cboWhatList.RowSource = « =Sheet1 ! B2 : B6 »
        Me.lblWhatList.Caption = « Equiptment »
    Autrement
        La valeur inadmissible de MsgBox « , aucune liste a chargé dans le combobox.  », vbInformation
        Sortir le sous-marin
    Finir si

Je suis sûr que vous vous pourrez adapter ceci au travail dans votre base de données.


J'ai attaché un échantillon

; -)

JeffCoachman