Discussion :

[dalmasma]

Bonjour,

Une commande me permet de supprimer un enregistrement mais le code ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub cmd_remove_equipment_Click()
 
Dim db As DAO.DATABASE
Dim Requete As String
    Set db = DBEngine.OpenDatabase("\\192.168.1.100\data\ENG\DATABASE2\Equipments database.mdb")
    ' Exécution de la requête
    Requete1 = "DELETE FROM Equipmentcharacteristics WHERE Equipmentcharacteristics.IDEquipment = " & IDEquipment & ";"
    db.Execute Requete1
    Debug.Print "Records Affected = " & db.RecordsAffected
    db.Close
 
DoCmd.SetWarnings False
 
End Sub

[bruno28]

Regarde ton instruction SQL "DELETE FROM Equipmentcharacteristics WHERE..."

Il faut dire ce que tu delete. L'instruction doit être : DELETE * FROM ou alors DELETE nomtable.nomchamps FROM

Salutations

Bruno

[dalmasma]

j'ai mi * dans ma requete et j'en ai rajouter une 2e mail il ya une

erreur de compilation , type défini par l'utilisateur non défini

et on me souligne la ligne suivante: (celle soulignée en vert fluo dans 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
Private Sub cmd_remove_equipment_Click()

Dim db As DAO.DATABASE
Dim Requete As String
    Set db = DBEngine.OpenDatabase("\\192.168.1.100\data\ENG\DATABASE2\Equipments database.mdb")
    ' Exécution de la requête
    Requete1 = "DELETE * FROM Equipmentcharacteristics WHERE Equipmentcharacteristics.IDEquipment = " & IDEquipment & ";"
    Requete2 = "DELETE * FROM Equipments WHERE Equipments.IDEquipment = " & IDEquipment & ";"
    db.Execute Requete1
    db.Execute Requete2
    Debug.Print "Records Affected = " & db.RecordsAffected
    db.Close

DoCmd.SetWarnings False

End Sub

Merci

[AlainTech]

Il te manque probablement la référence à DAO.

[Tofalu]

Regarde ton instruction SQL "DELETE FROM Equipmentcharacteristics WHERE..."

Il faut dire ce que tu delete. L'instruction doit être : DELETE * FROM ou alors DELETE nomtable.nomchamps FROM

Salutations

Bruno

On delete un enregistrement complet et non un champ. Si l'* fonctionne sous Access ce n'est pas pour autant qu'elle est normalisée SQL

[dalmasma]

AlainTech dit :
Il te manque probablement la référence à DAO.

C'est à dire coché la library Microsoft DAO 3.6 Library ou un truc comme ça ? (parce que ça c'est fait)

Tofalu dit: On delete un enregistrement complet et non un champ. Si l'* fonctionne sous Access ce n'est pas pour autant qu'elle est normalisée SQL

En clair ça veut dire que je change quoi dans mon "DELETE *" ?

[dalmasma]

j'ai un autre problème dans une procédure dans laquelle il y a "SELECT * FROM..." il se peut que ça soit aussi dû à l'astérisque ?

[Tofalu]

Non, vu l'erreur surligné, c'est un problème de compilation, vérifie que la référence DAO est correctement cochée, car le problème semble réellement venir de là

[dalmasma]

La bibliothèque était bien cochée, il n'y a plus d'erreur aujourd'hui mais la suppression ne s'est pas effectuée :s

[Tofalu]

Si la suppression ne s'effectue pas c'est que la requête n'est pas bonne. As tu essayé de l'exécuter directement dans access ? Peut être que la clause Where ne concerne aucun enregistrement

[dalmasma]

Re,

Ah non c'est bon désolé c'était la DB sui était pas bonne...

Merci