Plantage de programme VB avec zone non valide dans winntRésolu

Question

Bonjour,

j'ai &#233;cris un petit programme, qui pour chaque compte NT, me dit le dernier logon du compte

       Set oDomain = GetObject("WinNT://" & sTabPDCCaisse(iCaisseTravail))
       oDomain.Filter = "User"
       For Each oNewUser In oDomain
           iUser = iUser + 1
           If oNewUser Is Nothing Then
               Exit For
           Else
               If oNewUser.AccountDisabled Then                   txtDivers.Text txtDivers.Text & oNewUser.Name & " - " & vbTab & oNewUser.FullName & vbTab & oNewUser.Description & vbTab & "> compte verrouill&#233;."
                     txtDivers.Text = txtDivers.Text & "Dernier LOGON:" & oNewUser.LastLogin & vbCrLf
               End If
           End If
           lblDivers.Caption = i & "/" & iUser
           DoEvents
       Next
       Set oDomain = Nothing

Mon probl&#232;me est que certaines zones non pas de valeurs et font planter le programme malgr&#233; le On Error GoTo Err1 plac&#233; 
et le message est "<La propri&#233;t&#233; Active Directory n'est pas pr&#233;sente dans le cache.
>"

Comment g&#233;rer ce type de message ou de zone??
Comment &#233;viter que le programme plante??
Merci par avance pour vos r&#233;ponses

Cordialement
Pascal

mrdep1978 · Accepted Answer

Ca plante dans le .exe ou quand tu es en debug ?
Si c'est en debug, c'est peut-&#234;tre simplement un pb d'environnement.
Va dans le menu "Outils", "Options"
Onglet "G&#233;n&#233;ral". Pour ne pas avoir de pb, tu dois avoir coch&#233; "Arr&#234;t sur les erreurs non g&#233;r&#233;es".

zerpas · Answer

Merci pour la r&#233;ponse rapide
j'&#233;tais bien en mode debug et en cochant cette option, je n'ai plus de probl&#232;me.

Cordialement
Pascal

Plantage de programme VB avec zone non valide dans winnt

2 réponses

Discussions similaires