Bonjour à tous,

J'ai une application a développer en vb.net 2010 (Visual Studio) avec une base MS Access 2010.
La première partie de mon programme était de permettre aux rééducateurs de pouvoir enregistrer les actes de la semaine dans une table appeler "acte".
La deuxième partie est de s'occuper de la modification (pour le chef de service).
Voici le problème :
Quand le rééducateur rentre dans son espace pour enregistrer ses actes de la semaine, il a dans cette interface un bouton permettant d'aller dans un autre formulaire dans lequel il y a un listbox auquel on doit sélectionner l'enregistrement a modifier mais rien ne s'affiche.

Voici le code :
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
'_________________________REMPLIR LA LISTE D'ENREGISTREMENT A MODIFIER________________________________________________________________________________________
 
        'Récupérer le numéro du rééducateur afin d'afficher ses enregistrements
        fourthSQL = "SELECT DISTINCT * FROM reeducateur"
        dta.SelectCommand.CommandText = fourthSQL
        dta.Fill(dts, "reeducateur")
 
        For i = 0 To dts.Tables("reeducateur").Rows.Count - 1
            Dim nomReeducateur As String = frmBReeducateur.lblAfficherReeducConnecter.Text
            If nomReeducateur = dts.Tables("reeducateur").Rows(i).Item("nomReeduc") Then
                Dim noReeducateur As Integer = dts.Tables("reeducateur").Rows(i).Item("noReeduc")
 
                'Liste des enregistrements de la table Actes
                firstSQL = "SELECT DISTINCT * FROM acte WHERE noReeduc =" & noReeducateur & " ORDER BY nomUsager ASC"
                dta.SelectCommand.CommandText = firstSQL
                dta.Fill(dts, "acte")
 
                For j = 0 To dts.Tables("acte").Rows.Count - 1
                    'Récupérer tous les champs de la table acte dans des variables
                    Dim varNoUsager = dts.Tables("acte").Rows(i).Item("noUsager")
                    Dim varNomUsager = dts.Tables("acte").Rows(i).Item("nomUsager")
                    Dim varPrenomUsager = dts.Tables("acte").Rows(i).Item("prenomUsager")
                    Dim varNoReeduc = dts.Tables("acte").Rows(i).Item("noReeduc")
                    Dim varNoSem = dts.Tables("acte").Rows(i).Item("noSem")
                    Dim varMois = dts.Tables("acte").Rows(i).Item("mois")
                    Dim varTypeSemaine = dts.Tables("acte").Rows(i).Item("typeSemaine")
                    Dim varDeplacements = dts.Tables("acte").Rows(i).Item("deplacements")
                    Dim varVisitesMedicales = dts.Tables("acte").Rows(i).Item("visitesMedicales")
                    Dim varJourneesExceptionnelles = dts.Tables("acte").Rows(i).Item("journeesExceptionnelles")
                    Dim varRencontreFamilles = dts.Tables("acte").Rows(i).Item("rencontreFamilles")
                    Dim varReunions = dts.Tables("acte").Rows(i).Item("reunions")
                    Dim varInterventiontsTelephoniques = dts.Tables("acte").Rows(i).Item("nbActe")
                    Dim varNbActes = dts.Tables("acte").Rows(i).Item("nbActe")
 
                    frmSelectActe.lstSelectActes.Items.Add(varNomUsager & " " & _
                                                            varPrenomUsager & " " & _
                                                            varNoSem & " " & _
                                                            varMois & " " & _
                                                            varNbActes)
 
                Next
            End If
        Next
Pouvez-vous m'aider s'il vous plais ???