Ocean[size=3]mon code est le suivant
le module1 se lance au démarrage
Public cnx As New ADODB.Connection
Public Sub main()
cnx.Provider = "Microsoft.Jet.OLEDB.4.0"
cnx.ConnectionString = ".\GESTION DES PROJETS.mdb"
cnx.Open
Form1.Show
End Sub
et l'évènement de la suppression est la suivante
Private Sub supprimer_Click()
Dim ch As Integer
ch = Val(Text1.Text)
cnx.Execute "Delete from controleur where cod_cont='" & ch & "'"
Beep
Call RemplissageMSFlexGrid1
Call initchamps
End Sub
le problème se trouve dans la ligne de cnx.execute .....
il affiche le probleme suivant
Erreur d'exéution'-2147217913 (80040e07)
Data type mismatch in criteria expression.
sachant que la table controleur (cod_cont,nom_cont)
s il vous plait aider moi pour corriger ce code