problème avec Adodc

Bonjour à tous,
C'est ma première participation ici , j'éspère trouver l'aide pour mon problème.
Je viens de développer une petite application et tout va bien sauf que je reçois ce méssage d'érreur à chaque fois que je clique sur mon bouton 'rechercher".

Citation:

---

Run time error "3256"
Impossible de trouver l'objet sur la collection correspondant au nom ou à la réference ordinale demandé.

---

Pourtant je suis certain que les nom se correspondent.

Voici le code sur le bouton 'rechercher'.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub rechercher_Click() If Text1.Text <> "" Then If IsNumeric(Text1) = False Then Set DB = New ADODB.Connection Set RS = New ADODB.Recordset DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database password=123; Data Source=" & App.Path & "\database.mdb"   RS.Open "select * from table1 where nom like '%" & Text1.Text & "%' And prenom like '%" & Text2.Text & "%'", DB, adOpenStatic, adLockOptimistic If RS.RecordCount > 0 Then     Text1.Text = RS!Nom Text2.Text = RS!Prenom Text3.Text = RS!age   Text5.Text = RS!tel Text6.Text = RS!credit End If Text1.SetFocus End If End If End Sub

---

Citation:

---

Private Sub Form_Load()
With Me.Adodc1
.ConnectionString = "F:\logicièl\Nouveau dossier (2)\database.mdb"

End With
On Error Resume Next

Set DB = New ADODB.Connection
Set RS = New ADODB.Recordset
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database password=123; Data Source=" & App.Path & "\database.mdb"

End Sub

---

merci de votre aide

Bienvenue sur DVP

Code:

---

1 2 3 4 5 6

RS.Open "select * from table1 where nom like '%" & Text1.Text & "%' And prenom like '%" & Text2.Text & "%'", DB, adOpenStatic, adLockOptimistic If RS.RecordCount > 0 Then     Text1.Text = RS!Nom'<========= première lettre en MAJUSCULE Text2.Text = RS!Prenom '<====== première lettre en MAJUSCULE

---

RS.Open "select * from table1 where nom like '%" & Text1.Text & "%' And prenom like '%" & Text2.Text & "%'", DB, adOpenStatic, adLockOptimistic
Text1.Text = RS.Nom
Text2.Text = RS!Prenom

Citation:

---

Pourtant je suis certain que les nom se correspondent.

---

Il y a moyen de vérifier les champs de ta table et d'en savoir l'orthographe exact.

Code:

---

1 2 3 4 5 6 7 8

RS.Open "table1", DB, adOpenStatic, adLockOptimistic If Not RS.EOF Then Dim T As Integer For T = 0 To RS.Fields.Count - 1 Debug.Print RS.Fields(T).Name Next T TableTemporaire.Close End If

---

Dans la fenêtre Exécution de l'éditeur, tu peux regarder si les noms de champs sont bien les mêmes que ceux de ta requête, et/ou ceux de ton attribution aux TextBoxs.

Merci beaucoup
Le problème est résolu