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