Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonsoir.
Quelle est la ligne en erreur ?
vu que tu es en 2002 et DAO, vérifie tes références: coche bien DAO3.6 et place la ligne avant ADO si les deux sont cochées remplace database par DAO.Database remplace recordset par DAO.Recordset
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour une meilleure efficacité de tes interventions sur MPFA
"Gainsbarrre" a écrit dans le message de news:075901c3b524$21b97c00$
Lorsque je rentre cette procedure Access 2002 me signale une erreur d'execution 13 incompatibilité de type Comment corriger ce PB ?
Dim db As Database Dim fetes As Recordset Set db = CurrentDb() Set fetes = db.OpenRecordset("fetes")
fetes.MoveFirst
Do Until fetes.EOF If fetes![datefete] = Format(Now(), "ddmm") Then fetes![fetj] = True Else fetes![fetj] = False End If fetes.MoveNext Loop
Bonsoir.
Quelle est la ligne en erreur ?
vu que tu es en 2002 et DAO, vérifie tes références:
coche bien DAO3.6 et place la ligne avant ADO si les deux sont cochées
remplace database par DAO.Database
remplace recordset par DAO.Recordset
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA
"Gainsbarrre" <anonymous@discussions.microsoft.com> a écrit dans le message
de news:075901c3b524$21b97c00$a001280a@phx.gbl...
Lorsque je rentre cette procedure Access 2002 me signale
une erreur d'execution 13
incompatibilité de type
Comment corriger ce PB ?
Dim db As Database
Dim fetes As Recordset
Set db = CurrentDb()
Set fetes = db.OpenRecordset("fetes")
fetes.MoveFirst
Do Until fetes.EOF
If fetes![datefete] = Format(Now(), "ddmm") Then
fetes![fetj] = True
Else
fetes![fetj] = False
End If
fetes.MoveNext
Loop
vu que tu es en 2002 et DAO, vérifie tes références: coche bien DAO3.6 et place la ligne avant ADO si les deux sont cochées remplace database par DAO.Database remplace recordset par DAO.Recordset
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour une meilleure efficacité de tes interventions sur MPFA
"Gainsbarrre" a écrit dans le message de news:075901c3b524$21b97c00$
Lorsque je rentre cette procedure Access 2002 me signale une erreur d'execution 13 incompatibilité de type Comment corriger ce PB ?
Dim db As Database Dim fetes As Recordset Set db = CurrentDb() Set fetes = db.OpenRecordset("fetes")
fetes.MoveFirst
Do Until fetes.EOF If fetes![datefete] = Format(Now(), "ddmm") Then fetes![fetj] = True Else fetes![fetj] = False End If fetes.MoveNext Loop
