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
|
Private Sub Commande9_Click()
'je teste si l'utilisateur à selectionner un ordinateur
If (IsNull(Modifiable6.Value) = True) Then
MsgBox ("Veuillez choisir un ordinateur dans la liste déroulante")
Else
MsgBox ("un pc a été selectionné")
'je déclare mes variables
Dim db As DAO.Database
Dim rs1, rs2 As DAO.Recordset
Set db = CurrentDb
Set rs1 = db.OpenRecordset("SELECT * FROM Item WHERE ReportID=" & Modifiable6.Value)
Set rs2 = db.OpenRecordset("SELECT * FROM Temp")
Set rs3 = db.OpenRecordset("SELECT * FROM Conf")
'je vide ma table temporaire
While Not (rs2.EOF)
rs2.Delete
rs2.MoveLast
Wend
MsgBox ("table Temp vidée!")
'je remplis ma table temporaire avec mes données
While Not (rs1.EOF)
rs2.AddNew
rs2("ID") = rs1("ID")
rs2("IPage") = rs1("IPage")
rs2("IDevice") = rs1("IDevice")
rs2("IGroup") = rs1("IGroup")
rs2("IField") = rs1("IField")
rs2("IValue") = rs1("IValue")
rs2("IIcon") = rs1("IIcon")
rs2("IID") = rs1("IID")
rs2("ReportID") = rs1("ReportID")
rs2.Update
rs1.MoveNext
Wend
MsgBox ("table Temp remplie")
'je teste si l'ordinateur choisi est déjà dans ma table Conf
If (IsNull(DLookup("ID", "Conf", "ID=" & Modifiable6.Value))) Then
'la configuration de ce pc n'existe pas donc je l'ajoute
MsgBox ("la configuration de ce pc n'existe pas donc je l'ajoute")
rs3.AddNew
rs3("ID") = Modifiable6.Value
rs3("Nom-PC") = DLookup("IValue", "Temp", "IID=" & 514)
rs3("OS") = DLookup("IValue", "Temp", "IID=" & 513)
rs3("Service-pack") = DLookup("IValue", "Temp", "IID=" & 540)
rs3("Version-IE") = DLookup("Ivalue", "Temp", "IID=" & 564)
rs3("Processeur") = DLookup("IValue", "Temp", "IID=" & 517)
rs3("Memoire") = DLookup("IValue", "Temp", "IID=" & 520)
rs3("Ecran") = DLookup("IValue", "Temp", "IID=" & 525)
rs3("DD") = DLookup("IValue", "Temp", "IID=" & 528)
rs3("MAC-Adress") = DLookup("IValue", "Temp", "IID=" & 539)
rs3("Carte-reseau") = DLookup("IValue", "Temp", "IID=" & 534)
rs3("Constructeur-PC") = DLookup("IValue", "Temp", "IID=" & 2569)
rs3("Modele-PC") = DLookup("IValue", "Temp", "IID=" & 2570)
rs3("Version-materiel") = DLookup("IValue", "Temp", "IID=" & 2571)
rs3("SN-PC") = DLookup("IValue", "Temp", "IID=" & 2572)
rs3("ID-PC") = DLookup("IValue", "Temp", "IID=" & 2573)
rs3("Constructeur-CM") = DLookup("IValue", "Temp", "IID=" & 2575)
rs3("Modele-CM") = DLookup("IValue", "Temp", "IID=" & 2576)
rs3("SN-CM") = DLookup("IValue", "Temp", "IID=" & 2578)
rs3("Memoire-maxi-par-slot") = DLookup("IValue", "Temp", "IID=" & 2596)
rs3("Nb-slots") = DLookup("IValue", "Temp", "IID=" & 2597)
rs3("Moteur-Norton") = DLookup("IValue", "Temp", "IID=" & 2305)
rs3("Date-antivirus") = DLookup("IValue", "Temp", "IID=" & 2306)
rs3.Update
Else
MsgBox ("l'entrée existe déjà : code à faire !!")
End If
End If
End Sub |
Partager