Slt
j'ai un pb dans le recordset que j'ai crée il me donne le message suivat:
"type de données incopatible dans l'expression du critére "
voila mon script
Option Explicit
Dim RecMod As New Recordset
Dim BndMod As New BindingCollection
Private Sub Form_Load()
MsgBox "" & Module1.Id1 & ""
' *** Connexion avec la base de données
Connex.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & App.Path & "\bourse.mdb;"
RqSql = "SELECT * FROM AGENTT WHERE MATRICULE = " & Module1.Id1 & " "
'On Error Resume Next
RecMod.CursorLocation = adUseClient
'On Error Resume Next
RecMod.Open RqSql, Connex, adOpenStatic, adLockOptimistic, adCmdText
Set BndMod.DataSource = RecMod
With BndMod
.Add Text1, "Text", "MATRICULE", , "matricule"
.Add Text2, "Text", "NOM_A", , "nom"
.Add Text3, "Text", "PRENOM_A", , "prenom"
.Add Text4, "Text", "SALAIRE_A", , "salaire"
.Add Text5, "Text", "DATE_RECRUTEMENT", , "date de recrutement"
.Add Text6, "Text", "REFERENCE", , "reference"
.Add Text7, "Text", "echelle", , "echelle"
.Add Text8, "Text", "echelon", , "echelon"
.Add Text9, "Text", "NB_ENFANT", , "nombre d'enfant"
End With
End Sub
aider moi svp ,merci !