bonjour,
je vous explique en deux mots mon soucis, j'ai créé un formulaire de recherche multicritère avec un bouton Suppr pour supprimer une ligne dans la table pièce (c'est une base de donnée pour une gestion de pièce de monnaies). Et lorsque je clic sur le bouton suppr il me met "type de données incompatible dans l'expression du critère". j'ai coché la case réference de microsoft DAO 3.6 object library.
je ne sais pas d'ou peut venir le problème.
le code de mon bouton Suppr est le suivant:
Merci d'avance
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 Private Sub Suppr_Click() On Error GoTo err_Suppr_Click Dim i As Integer Dim db As DAO.Database Dim reponse As Integer Set db = CurrentDb With Listeresult For i = 0 To .ListCount - 1 If .Selected(i) Then reponse = MsgBox("Voulez-vous supprimez la pièce " & .Column(0, i) & " ?", vbQuestion + vbYesNo, "Suppression d'une pièce") If reponse = vbYes Then db.Execute "DELETE PIÈCE.* FROM PIÈCE WHERE ID_PIÈCE= " & _ Chr(34) & .Column(0, i) & Chr(34) .Requery End If End If Next i End With exit_Suppr_Click: Exit Sub err_Suppr_Click: MsgBox Err.Description Resume exit_Suppr_Click End Sub
Partager