Discussion :

[vins111282]

Bonjour
je travaille sous Access 2k3 SP2 avec un PC sous windows XP Pro.
J'ai une base de données très simple avec un petit code.
Lorsque je lance mon code, tout se passe bien sauf qu'à la fin access me met un message en me disant qu'il a rencontré un problème et qu'il doit fermer.
Il me demande si je veux réparer la base.
Je ne comprends pas, mon code fonctionne et il n'a pas l'air si pourri que ça.
Si quelqu'un peut m'aider.
Merci d'avance.
Vincent
PS:Voici mon 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
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

[Lou Pitchoun]

Salut

rs3 n'est pas déclaré (serait-ce la source du problème ?!?)

Remarques diverses :
Je n'ai pas trop compris l'utilité de rs1 et rs2

De plus, tu travailles sur une requête pour rs3. pourquoi ne pas utiliser directement la table ?

[loufab]

Bonjour,

Je ne sais pas si cela va résoudre ton problème mais la moindre des choses serais de fermer tes recordset à mesure que tu n'en as plus besoin.

C'est comme les portes les recordsets... ça se ferme.

En prime le petit bout de code, mais je pense que tu dois déjà connaitre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
rst.close
set rst = nothing

Cordialement,

[vins111282]

Merci mon erreur est partie.
Par contre, je voudrais bie que kikof m'explique comment faire pour travailler directement dans ma table.
Merci encore.

[Lou Pitchoun]

C'est la même chose qu'avec une requête sauf qu'au lieu de mettre le SQL tu mets le nom de la table. Ni plus ni moins...
Un tuto utile pour l'utilisation des données avec DAO