Bonjour !

J'ai crée un formulaire qui lit les résultats d'un tableau access, ligne par ligne et n'affichant que ce qui est utile.... Mais inconvénient il y a un message et je n'arrive pas à le résoudre....

"La référence d'objet n'est pas définie à une instance d'un objet"

J'ai déja recherché et j'ai trouvé des cas similaires, disons avec la même phrase erreur, mais bon ça ne m'a pas beaucoup aidé...

Je vais vous donner le code afin de mieux visualiser... (c'est le code qui s'affiche lors du chargement de la page)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
62
63
64
65
Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim TableInci As New DataTable
        Dim LeDataSet As New DataSet
        Dim i As Integer
        'Gestion des erreurs
        Try
            'Ouverture de la connexion créee
            OleDbConnection2.Open()
            Try
                OleDbDataAdapter1.Fill(LeDataSet, "Table des incidents")
                TableInci = LeDataSet.Tables(0)
                'Table récupérée
                Try
 
                    Call AfficheIncident()
                    Call majPosition()
 
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        OleDbConnection2.Close()
 
    End Sub
 
 
 
 
 Private Sub AfficheIncident()
 
        Dim ResReq As DataTable
        Dim UnEnreg As DataRow
        Dim LeDataSet As New DataSet
        ResReq = LeDataSet.Tables("Liste des incidents")
 
        UnEnreg = ResReq.Rows(0)
        'Affecter les champs de la base à l’interface
        txt_date.Text = UnEnreg(1)
        txt_num_incident.Text = UnEnreg(0)
        txt_desc_courte.Text = UnEnreg("Description courte")
        txt_desc_longue.Text = UnEnreg("Description (Dernière mise à jour)" & "Description (Historique)")
 
    End Sub
 
 
 
Private Sub majPosition()
 
        Dim LeDataSet As New DataSet
        Dim imax, icur As Integer
        imax = Me.BindingContext(LeDataSet, "Query4").Count
        If imax = 0 Then
            affPos.Text = "(0)"
        Else
            icur = Me.BindingContext(LeDataSet, "Query4").Position + 1
            affPos.Text = icur.ToString & " / " & imax.ToString
        End If
 
    End Sub
Merci d'avance pour votre aide.