Erreur 91 variable objet non définie

:salut: les amis,
j'ai écrit le code suivant sur l'événement Sur_click d'un bouton de commande:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim rdd As Recordset Dim cnnx As New ADODB.Connection cnnx.Provider = "Microsoft.Jet.OLEDB.4.0" cnnx.ConnectionString = App.Path & "\bdFlash97.mdb" cnnx.Open rdd.Open "SELECT * FROM TblFichier;", cnnx rdd.Find "nomFichier=" & CStr(Text2.Text) If Not (rdd.EOF Or rdd.BOF) Then If MsgBox("Ce fichier est déjà chargé, voulez-vous continuer?", vbYesNo) = vbNo Then Exit Sub End If End If

---

pour me faire une recherche de nom de fichier dans la table TblFichier.
Le débogueur s'arrête sur la ligne en gras avec l'erreur 91 :"Variable objet ou variable bloc with non définie".
Franchement, je ne comprends pas le problème; Veuillez m'aider SVP.Merci

Ton objet rdd .. n'est pas créé .. rajoute la ligne

Code:

---

1 2	Set rdd = New ADODB.Recordset

---

avant ta ligne en gras..

Merci beaucoup bbil.
Je l'ai appliqué et l'erreur 91 ne vient plus.
Maintenant c'est l'erreur 3001 que j'ai: "Les arguments sont de type incorrect, en dehors des limites autorisées ou en conflit les uns avec les autres".C'est sur la ligne ci-dessous en gras.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim rdd As Recordset Dim cnnx As New ADODB.Connection cnnx.Provider = "Microsoft.Jet.OLEDB.4.0" cnnx.ConnectionString = App.Path & "\bdFlash97.mdb" cnnx.Open set rdd=New ADODB.Recordset rdd.Open "SELECT * FROM TblFichier;", cnnx rdd.Find "nomFichier=" & CStr(Text2.Text) If Not (rdd.EOF Or rdd.BOF) Then If MsgBox("Ce fichier est déjà chargé, voulez-vous continuer?", vbYesNo) = vbNo Then Exit Sub End If End If

---

J'ai vérifié la taille du champs en question, elle est de 100 caractères.
Merci de m'aider.

manquerai pas les ' autour de ton nom de fichier..?

Merci.Mais quand je fais :

Code:

---

rdd.Find "nomFichier= '" & Text2.Text & "'"

---

l'erreur

Citation:

---

L'ensemble de lignes ne prend pas en charge le défilement arrière.

---

s'affiche sur la même ligne.

Encore une fois merci.

http://support.microsoft.com/kb/294139/fr

Code:

---

1 2 3 4 5

............. Set rdd = New ADODB.Recordset rdd.CursorLocation = adUseClient rdd.Open "SELECT * FROM ........

---

;)

Tu es bon bbil, je te remercie beaucoup.:yaisse2:
ça marche bien.
J'ai deux(2) petites préoccupations pour finir:
- Quand on utilise la méthode Find comment savoir si le résultat de la recherche est positif ou négatif puisqu'il n'y a pas ici la méthode nomatch comme en VBA?
- Je voudrais des tutoriels sur les curseurs qui sont vraiment pour débutant car j'ai lu un tutoriel sur ce site dont je n'ai rien compris.Je veux dire:

Citation:

---

Comprendre les Recordset ADO
par Jean-Marc Rabilloud (La page à Jean-Marc RABILLOUD) http://vb.developpez.com/bidou/recordset-ado/.

---

Merci beaucoup.