Discussion :

[Treuze]

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:

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

Merci d'avance

[973thom]

quelle est la ligne mise en surbrillance dans le mode débug ?

[Tofalu]

A priori, ID_PIECE est numérique

db.Execute "DELETE FROM PIÈCE WHERE ID_PIÈCE= " & .Column(0, i)