cs_guitooo
Messages postés16Date d'inscriptionlundi 18 avril 2005StatutMembreDernière intervention18 mai 2005
-
11 mai 2005 à 10:43
cs_guitooo
Messages postés16Date d'inscriptionlundi 18 avril 2005StatutMembreDernière intervention18 mai 2005
-
12 mai 2005 à 09:12
Salut à tous!!!
Je fais actuellement dans mon application une feuille de recherche pour trouver les utilisateurs rentrés dans ma base Access. Mon code me parait bon toutefois j'ai une erreur de type 91 au niveau de mes recordset voici mon code :
Private Sub Form_Activate()
List1.Enabled = False
dtaRechercher.DatabaseName = gDataBaseName
dtaRechercher.Refresh
If (dtaRechercher.Recordset.RecordCount > 0) Then
Screen.MousePointer = vbHourglass
dtaRechercher.Recordset.MoveFirst
While Not dtaRechercher.Recordset.EOF
List1.AddItem dtaRechercher.Recordset.Fields(0) & ""
dtaRechercher.Recordset.MoveNext
Wend
List1.Enabled = True
DoEvents
End If
lblCompteur = "Il y a " & dtaRechercher.Recordset.RecordCount & " enregistrements"
Screen.MousePointer = vbDefault
End Sub
Ceci permet de charger ma feuille. Mais à partir de mon If à chaque ligne où il y a un Recordset j'ai une erreur 91.
Si vous avez une idée de où cela pourrait venir.
Merci de votre aide
cs_guitooo
Messages postés16Date d'inscriptionlundi 18 avril 2005StatutMembreDernière intervention18 mai 2005 12 mai 2005 à 09:12
Salut!!!
Ma feuille rechercher est en fait réutilisable je l'utilise pour plusieurs recherches.
Il me semble que ma base est ouverte maisj'arrive vraiment pas à corriger cette erreur j'ai besoin d'aide