les amis,
j'ai écrit le code suivant sur l'événement Sur_click d'un bouton de commande:
pour me faire une recherche de nom de fichier dans la table TblFichier.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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
Partager