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