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
Partager