VBA ACCESS extraction Données (Débutant)

Signaler
Messages postés
57
Date d'inscription
lundi 2 avril 2007
Statut
Membre
Dernière intervention
3 janvier 2010
-
Messages postés
57
Date d'inscription
lundi 2 avril 2007
Statut
Membre
Dernière intervention
3 janvier 2010
-
Bonjour a tous,

Quelqu'un saurait-il m'expliquer ce qui ne tourne pas rond
dans ce bout de code : RS.recordcount = -1 alors que j'ai 25
lignes entrées dans ma table chambres ?
Merci !

Sub Test()

Dim Conn As Connection
Dim Rs As Recordset
Dim SQLstr As String

Set Conn = CurrentProject.Connection
Set Rs = CreateObject("ADODB.Recordset")

SQLstr = "SELECT * FROM Chambres"

Rs.Open SQLstr, Conn

MsgBox Rs.Fields("Nom_Hôtel"), , "recordcount=" & Rs.RecordCount

Rs.Close

Set Rs = Nothing

End Sub

1 réponse

Messages postés
57
Date d'inscription
lundi 2 avril 2007
Statut
Membre
Dernière intervention
3 janvier 2010

Je viens de trouver ... options open ...

merci