Fråga : Att bearbeta för kontakter för utbyte 2007 utfärdar

Vi har en användare med en Droid att ringa som duplicerade hans kontakter. Hans kontakter fick upp till visning 145.000 i framtidsutsikt. Igår jag torkade his ringer för att förhindra fördubblingen från att fortsätta, och försökt att ta bort alla dubblett kontaktar från hans framtidsutsikt. Han är besegrar nu till 1.000 kontakter visning i framtidsutsikt. På det peka vår utbytesserver startar först att sakta för att besegra och att försena e-post vid 10-15 noterar. Jag stängde därefter hans framtidsutsikt som verkade för att bearbeta kontaktändringen som hoppas för att stoppa slownessen. Ta fram, efter stoppat flöda för timme e-posten och vi alls måste att starta om utbyte till återkomsten. I morse vi försökte att öppna hans framtidsutsikt för att uppdatera kontakterna, men det samma tinget händde. Hur kan jag fixa denna utfärdar och, utan röra upp av utbytesserveren samtidigt? " klar "

Svar : Att bearbeta för kontakter för utbyte 2007 utfärdar

Så långt, som jag vet att combobox'sna listar, måste vara de laddad *before* som comboboxen klickas.
Så det verkar att du kan måste att finna another långt för att aktivera det primat.
Kanske du kunde försök det, när bilda initialiseras, eller skapar en alternativgrupp, eller gör ledar- combobox,…,
(Igen, detta illustrerar endast varför denna är icke-standard funktionsduglighet.),

I någon händelse… kodifiera kunde vara något något liknande detta:

'Skapa variabeln
Dunkel strWhatList som stränger
   
    'Ladda variabeln med, allt vad text som användaren skriver in i inputboxen
    strWhatList = InputBox (”vad listar?”, & vbCrLf & ”(skriv in: them för anställda eller ”EQ”, för Equiptment)”)
   
    'Om användaren klickar ”annulleringen”,
    'gå ut suben med inget listar laddat in i comboboxen
    Om strWhatList = "" därefter
        'Visa ett meddelande, då öppna bilda
        '(utan en lista i comboboxen)
        Ingen MsgBox ”listar utvalt för att ladda comboboxen. ” vbInformation
        'Gå ut
        Gå ut suben
    ElseIf strWhatList = ”EM” eller strWhatList = ”em” därefter
        'Ladda anslå listar spänner
        Me.cboWhatList.RowSource = ”=Sheet1! A2: A8”,
        'Uppsättning comboboxetiketten
        Me.lblWhatList.Caption = ”anställda”,
    ElseIf strWhatList = ”EQ” eller strWhatList = ”eq” därefter
        Me.cboWhatList.RowSource = ”=Sheet1! B2: B6”,
        Me.lblWhatList.Caption = ”Equiptment”,
    Annars
        Ogiltiga MsgBox ”värderar, inget listar laddat i comboboxen. ” vbInformation
        Gå ut suben
    Avsluta om

Förmiddag I sure du som du ska, är kompetent att anpassa detta till arbete i din databas.


Jag har fäst en ta prov

; -)

JeffCoachman