Discussion :

[Lealeal]

Bonjour,

En déboguant mon code, je me trouve devant une erreur de type

NullReferenceException was unhandled

disant

Variable objet ou variable d'un bloc With non définie.

Quelqu'un peut m'aider à corriger cette erreur, je suis bloquée devant. En attachement, vous trouverez l'image de l'erreur.

Merci bcp de m'aider, j'attends impatiement votre réponse.

[Pol63]

m_ensemble est vide (=nothing) donc nothing.quelquechose plante
ou m_ensemble.listCDAH vaut nothing, donc nothing.count n'existe pas non plus

[Lealeal]

Merci d'avoir me répondre, mais pouvez vous me montrer comment faire pour la corriger??

[Pol63]

non, il faut être devant le code pour savoir comment corriger ...
mais voici un exemple du problème et la solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dim b as button
b.text = "un bouton" ' plante car button ne contient rien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dim b as new button
b.text = "un bouton" ' ne plante pas car button a été instancié via new

[Lealeal]

J'ai essayé de le corriger en fonction de l'exemple, mais l'erreur persiste. Par ce que moi je l'ai déclaré comme Private, voilà comment :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private m_ensembleClientCdahvehicule As sets

... ou bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Public Property ensembleClientCdahvehicule() As sets
    Get
           If m_ensembleClientCdahvehicule Is Nothing Then
                m_ensembleClientCdahvehicule = New sets
            End If
           Return m_ensembleClientCdahvehicule
        End Get
      Set(ByVal value As sets)
            m_ensembleClientCdahvehicule = value
        End Set
    End Property

En arrivant à la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Ol(m_ensembleClientCdahvehicule.ListeCDAH.count - 1) As IIntVar

L'erreur que je vous ai parlé hier, s'affiche.

Avez vous saisi mon probléme?

[Pol63]

remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Ol(m_ensembleClientCdahvehicule.ListeCDAH.count - 1) As IIntVar

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if m_ensembleClientCdahvehicule is nothing then msgbox ("étrange")
if m_ensembleClientCdahvehicule.ListeCDAH is nothing then msgbox ("l'erreur vient de là")
Dim Ol(m_ensembleClientCdahvehicule.ListeCDAH.count - 1) As IIntVar

pas de MP svp, les participants d'un topic sont avertis d'un ajout de réponse

vous pouvez aussi voir que vos messages sont moches et les miens jolis, donc merci d'utiliser le bouton # de l'interface qui ajoute la balise code pour la mise en forme de celui ci