Balayage d'une table sous Access en vba
Résolu
manu
-
manu -
manu -
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
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
Configuration: Windows XP Internet Explorer 6.0
4 réponses
-
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 :-)
-
-
-
ok merci, j'ai juste rajouté Dao.recordset et ca marche impécable
ca va bien simplifier mon code maintenant
