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 :
Pouvez-vous m'aider s'il vous plais ???
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
Partager