[RESOLU] [ACCESS] Parcour de tables et récupération de ligne

Marsh Posté le 23-06-2008 à 13:49:59

Bonjour à tous,

Je suis junior en VBA et je cherche à manipuler des tables Access, plus particulièrement à parcourir une table, mais j'obtiens l'erreur suivante : Erreur d'exécution '3265' : Item not found in collection Pourtant ma requête est bonne semblerait il... Cela fait maintenant quelques temps que je cherche une solution mais rien... alors pouvez vous m'aider?

Voici mon bout de code :

Code :

Public Function newInsert()
Dim Db As DAO.Database
Set Db = CurrentDb
Dim ImportTable As DAO.Recordset
Set ImportTable = Db.Recordsets("Select * from TOTO" )
If ImportTable.RecordCount > 0 Then
ImportTable.MoveFirst
Do While Not ImportTable.EOF
Loop
End If
End Function

Message édité par baloote le 23-06-2008 à 14:34:27

Marsh Posté le 23-06-2008 à 13:49:59

Marsh Posté le 23-06-2008 à 14:33:42

En fait, voila, j'ai trouvé une solution :

Code :

Public Function newInsert()
Dim db As DAO.Database, rs As DAO.Recordset, rs2 As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("TOTO", dbOpenDynaset)
With rs
If .RecordCount <> 0 Then
.MoveFirst
Do
.MoveNext
Loop
End If
End With
End Function

Merci quand meme

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *