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 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88
| Sub Trw_PDT_Init(ByVal Langue As Boolean, treeview As Control, Id_PDT As Integer)
Dim Dbs As Database: Set Dbs = CurrentDb
Dim stSql1, stSql2, stSql3 As String
Dim Rst1, Rst2, Rst3 As Recordset
Dim Crit1, Crit2, Crit3 As String
Dim Key1, Key2, Key3 As String
Dim Noeud As Node
treeview.Nodes.Clear
If Langue = True Then
Set Noeud = treeview.Nodes.Add(, , "Vide1", "")
Set Noeud = treeview.Nodes.Add(, , "AD", "Ajouter un nouveau test à ce plan de tests -{Cliquez ici}-")
Noeud.image = "NEW"
Set Noeud = treeview.Nodes.Add(, , "Vide2", "")
stSql1 = "SELECT Tbl_PlanDeTest___Test.ID_TEST, Tbl_PlanDeTest___Test.Id_Plan_De_Tests, Tbl_PlanDeTest___Test.Id_Procedure, " & _
"Tbl_PlanDeTest___Test.Id_CodeControle, Tbl_PlanDeTest___Test.Code_Procédure, Tbl_PlanDeTest___Test.Nom_Procédure_F, " & _
"Tbl_PlanDeTest___Test.Nom_Procédure_E, Tbl_PlanDeTest___Test.Controle_Procédure, Tbl_PlanDeTest___Test.Nom_Code_Contrôle_F, " & _
"Tbl_PlanDeTest___Test.Nom_Code_Contrôle_E, Tbl_PlanDeTest___Test.txt_CODE_TEST, Tbl_PlanDeTest___Test.txt_Libellé_TEST_VF, " & _
"Tbl_PlanDeTest___Test.txt_Libellé_TEST_VO, Tbl_PlanDeTest___Test.TestEffectué, Tbl_PlanDeTest___Test.TestApplicationOk, " & _
"Tbl_PlanDeTest___Test.TestEfficaciteOk, Tbl_PlanDeTest___Test.TestKO, Tbl_PlanDeTest___Test.TestCancel " & _
"FROM Tbl_PlanDeTest___Test WHERE (((Tbl_PlanDeTest___Test.Id_Plan_De_Tests) = " & Id_PDT & ")) " & _
"ORDER BY Tbl_PlanDeTest___Test.txt_CODE_TEST;"
Set Rst1 = Dbs.OpenRecordset(stSql1, dbOpenDynaset)
If Rst1.RecordCount <> 0 Then
Set Noeud = treeview.Nodes.Add(, , "Vide0", Nz(Rst1.RecordCount & " Tests de définis pour ce plan de tests", "Aucun test de défini"))
Noeud.Bold = True
Noeud.BackColor = RGB(255, 200, 0)
Noeud.ForeColor = RGB(255, 255, 255)
Set Noeud = treeview.Nodes.Add(, , "Vide3", "")
Rst1.MoveFirst
Do Until Rst1.EOF
Key1 = "GC" & Rst1!ID_TEST
Set Noeud = treeview.Nodes.Add(, , Key1, Rst1!txt_CODE_TEST & " - " & Nz(Rst1![txt_Libellé_TEST_VF], "à traduire : " & Rst1![txt_Libellé_TEST_VO]))
Noeud.image = "B1"
Noeud.Bold = True
Noeud.Expanded = True
Noeud.ForeColor = 555
stSql2 = "SELECT Tbl_PlanDeTest__Detail_Test.ID_Detail_Test, Tbl_PlanDeTest__Detail_Test.ID_TEST, " & _
"Tbl_PlanDeTest__Detail_Test.Txt_Code_detail, Tbl_PlanDeTest__Detail_Test.Detail_Description, Tbl_PlanDeTest__Detail_Test.ApplicationOk, " & _
"Tbl_PlanDeTest__Detail_Test.EfficaciteOk, Tbl_PlanDeTest__Detail_Test.EtapeKO, Tbl_PlanDeTest__Detail_Test.TechniquesTest, " & _
"Tbl_PlanDeTest__Detail_Test.TypologieTest, Tbl_PlanDeTest__Detail_Test.FichierEchantillon, Tbl_PlanDeTest__Detail_Test.Commentaire1, " & _
"Tbl_PlanDeTest__Detail_Test.Commentaire2 FROM Tbl_PlanDeTest__Detail_Test " & _
"WHERE (((Tbl_PlanDeTest__Detail_Test.ID_TEST) = " & Rst1!ID_TEST & ")) " & _
"ORDER BY len(Tbl_PlanDeTest__Detail_Test.Txt_Code_detail), Tbl_PlanDeTest__Detail_Test.Txt_Code_detail;"
Set Rst2 = Dbs.OpenRecordset(stSql2, dbOpenDynaset)
If Rst2.RecordCount <> 0 Then
Rst2.MoveFirst
Do Until Rst2.EOF
Key2 = "CS" & Rst2!ID_Detail_Test
Set Noeud = treeview.Nodes.Add(Key1, tvwChild, Key2, Rst2![Txt_Code_detail] & " - " & Rst2!Detail_Description)
Noeud.image = "B2"
Noeud.Bold = False
Noeud.Expanded = True
Rst2.MoveNext
Loop
End If
Set Noeud = treeview.Nodes.Add(Key1, tvwChild, "NE" & Key1, "Ajouter une nouvelle séquence à ce test -{Cliquez ici}-")
Noeud.image = "NEW"
Set Noeud = treeview.Nodes.Add(, , "Vide2" & Key1, "")
Rst1.MoveNext
Loop
End If
End If
End Sub |
Partager