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]
Bonjour.
ne change pas de conversation sinon tu n'auras pas de réponses. tu ne peux pas utiliser la méthode Seek avec une table liée car il est impossible d'ouvrir des tables liées comme des objets Recordset de type Table. il faut que tu passes par une requête soit directement dans le openrecordset soit par une requête enregistrée.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"ManuT" a écrit dans le message de news:c17skq$gdm$
Voici le détail du module qui plante
Public Function Jour_Férié(Jour As Date) As Boolean
Dim MonEspace As Workspace
Dim MaBd As Database
Dim Matable As Recordset
Set MonEspace = DBEngine.Workspaces(0)
Set MaBd = MonEspace.Databases(0)
Set Matable = MaBd.OpenRecordset("Table des Jours fériés", dbOpenTable)
Matable.Index = "Jour férié"
Matable.Seek "=", Jour
If Matable.NoMatch Then
Jour_Férié = False
Else
Jour_Férié = True
End If
Matable.Close
MaBd.Close
End Function
Bonjour.
ne change pas de conversation sinon tu n'auras pas de réponses.
tu ne peux pas utiliser la méthode Seek avec une table liée car il est
impossible d'ouvrir des tables liées comme des objets Recordset de type
Table. il faut que tu passes par une requête soit directement dans le
openrecordset soit par une requête enregistrée.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"ManuT" <etrarieux@wanadoo.fr> a écrit dans le message de
news:c17skq$gdm$1@news-reader1.wanadoo.fr...
Voici le détail du module qui plante
Public Function Jour_Férié(Jour As Date) As Boolean
Dim MonEspace As Workspace
Dim MaBd As Database
Dim Matable As Recordset
Set MonEspace = DBEngine.Workspaces(0)
Set MaBd = MonEspace.Databases(0)
Set Matable = MaBd.OpenRecordset("Table des Jours fériés",
dbOpenTable)
ne change pas de conversation sinon tu n'auras pas de réponses. tu ne peux pas utiliser la méthode Seek avec une table liée car il est impossible d'ouvrir des tables liées comme des objets Recordset de type Table. il faut que tu passes par une requête soit directement dans le openrecordset soit par une requête enregistrée.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"ManuT" a écrit dans le message de news:c17skq$gdm$
Voici le détail du module qui plante
Public Function Jour_Férié(Jour As Date) As Boolean
Dim MonEspace As Workspace
Dim MaBd As Database
Dim Matable As Recordset
Set MonEspace = DBEngine.Workspaces(0)
Set MaBd = MonEspace.Databases(0)
Set Matable = MaBd.OpenRecordset("Table des Jours fériés", dbOpenTable)
