salut tout le monde,je suis en cours de création d'une applicatio au sein de mon stage.
je souhaite créer un bouton de suppression qui permet de supprimer un enregistrement bien precisé par son identifiant voilà mon code:
Private Sub Command1_Click()
If (Text2.Text = "") Then
MsgBox "Aucn identifiant n'est saisie", vbInformation, ""
Text2.Text = ""
Else
Adodc1.RecordSource "select * from Voiture where Identifiant '" & Text2.Text & "';"
Dim Warning As Integer
Warning = MsgBox("étes vous sûr de vouloir supprimer cette voiture?", vbCritical + vbYesNo, "Warning!!!")
If (Warning = vbYes) Then
Adodc1.Refresh
Adodc1.Recordset.Delete
MsgBox ("votre voiture est supprimée")
Else
MsgBox ("suppression annulée")
End If
End If
End Sub
quand je passe à l'execution,il m'affiche le msgbox de confirmation de supression,qu'on je clique sur ok un message d'erraur s'ffiche en disant types de données incompatible.
je trouve pas la source du probléme,pouvez vous SVP m'aider?
Merci d'avance