Balayage d'une table sous Access en vba Résolu/Fermé

Question

Bonjour, j'aimerais avoir la possibilité de balayer les enregistrements d'une table(T_produit_projet) grâce à un code(vba) pour pouvoir faire différentes action tant que ma table n'est pas au dernier enregistrement 
Problème lorsque j'arrive au "Set rec =..." un message d'erreur aparait "Icompatibilité de type" 
Pouvez vous me dire svp ce qu'il ne vas pas dans ce code? 

Option Compare Database 

Function balayage() 

Dim bdc As Database 
Dim rec As Recordset 

Set bdc = CurrentDb 

Set rec = bdc.OpenRecordset("T_produit_projet") 

rec.MoveFirst 

Do While rec.EOF = False 
... 
Loop 
End Function

blux · Accepted Answer

Salut,

sûrement une référence DAO ou ADO non valide...

Supprime le type de ta variable 'rec', il va la mettre en variant ou essaye de le mettre en 'dao.recordset'

Pis t'oublieras pas de mettre un rec.movenext avant le loop :-)

manu · Answer

svp j'ai vraiment besoin d'aide je rame trop depuis un moment

manu · Answer

ok merci je vais essayé ca tout de suite

manu · Answer

ok merci, j'ai juste rajouté Dao.recordset et ca marche impécable
ca va bien simplifier mon code maintenant

Balayage d'une table sous Access en vba

4 réponses

Discussions similaires