Voilà mon problème : je possède une base de données qui comporte
plusieurs tables. Certaines sont crées tous les mois à partir de données
externes à ACCESS.
Ces tables sont sommées de la façon suivante : TEC200408, TEC200409,
TEC200410,.....
Donc je voudrais pouvoir sélectionner automatiquement en code VBA la
dernière table (en l'occurence pour le moment TEC200410) et je n'arrive
pas à trouver le code saisir pour réussir cette manip.
Bien évidemment je stocke le résultat dans une variable pour ensuite
ouvrir un état
Par avance merci pour votre aide, en espérant avoir été assez clair.....
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
Ilan
Bonjour,
Nomtable="TEC" & Format(Date,"yyyymm")
Bonjour à tous,
Voilà mon problème : je possède une base de données qui comporte plusieurs tables. Certaines sont crées tous les mois à partir de données externes à ACCESS.
Ces tables sont sommées de la façon suivante : TEC200408, TEC200409, TEC200410,.....
Donc je voudrais pouvoir sélectionner automatiquement en code VBA la dernière table (en l'occurence pour le moment TEC200410) et je n'arrive pas à trouver le code saisir pour réussir cette manip.
Bien évidemment je stocke le résultat dans une variable pour ensuite ouvrir un état
Par avance merci pour votre aide, en espérant avoir été assez clair.....
Bonjour,
Nomtable="TEC" & Format(Date,"yyyymm")
Bonjour à tous,
Voilà mon problème : je possède une base de données qui comporte
plusieurs tables. Certaines sont crées tous les mois à partir de données
externes à ACCESS.
Ces tables sont sommées de la façon suivante : TEC200408, TEC200409,
TEC200410,.....
Donc je voudrais pouvoir sélectionner automatiquement en code VBA la
dernière table (en l'occurence pour le moment TEC200410) et je n'arrive
pas à trouver le code saisir pour réussir cette manip.
Bien évidemment je stocke le résultat dans une variable pour ensuite
ouvrir un état
Par avance merci pour votre aide, en espérant avoir été assez clair.....
Voilà mon problème : je possède une base de données qui comporte plusieurs tables. Certaines sont crées tous les mois à partir de données externes à ACCESS.
Ces tables sont sommées de la façon suivante : TEC200408, TEC200409, TEC200410,.....
Donc je voudrais pouvoir sélectionner automatiquement en code VBA la dernière table (en l'occurence pour le moment TEC200410) et je n'arrive pas à trouver le code saisir pour réussir cette manip.
Bien évidemment je stocke le résultat dans une variable pour ensuite ouvrir un état
Par avance merci pour votre aide, en espérant avoir été assez clair.....
Evaro
Bonjour,
"Ermam" a écrit dans le message de news: 41873f6c$0$310$
Bonjour à tous,
Voilà mon problème : je possède une base de données qui comporte plusieurs tables. Certaines sont crées tous les mois à partir de données externes à ACCESS.
Ces tables sont sommées de la façon suivante : TEC200408, TEC200409, TEC200410,.....
Donc je voudrais pouvoir sélectionner automatiquement en code VBA la dernière table (en l'occurence pour le moment TEC200410) et je n'arrive pas à trouver le code saisir pour réussir cette manip.
Public Function DerniereTable() as String Dim td as DAO.Tabledef DerniereTable = "TEC200000" For each td in CurrentDb.Tabledefs If Left(td.Name,5) = "TEC20" AND td.Name > DerniereTable Then DerniereTable = td.name End If Next td End Function
Veiller à ce que la référence Microsoft DAO 3.n soit cochée. En 2099, penser à adapter le code en prévision du bug de l'an 2100 ;-))) @+ Etienne
Bonjour,
"Ermam" <ermam@free.fr> a écrit dans le message de news:
41873f6c$0$310$636a15ce@news.free.fr...
Bonjour à tous,
Voilà mon problème : je possède une base de données qui comporte
plusieurs tables. Certaines sont crées tous les mois à partir de données
externes à ACCESS.
Ces tables sont sommées de la façon suivante : TEC200408, TEC200409,
TEC200410,.....
Donc je voudrais pouvoir sélectionner automatiquement en code VBA la
dernière table (en l'occurence pour le moment TEC200410) et je n'arrive
pas à trouver le code saisir pour réussir cette manip.
Public Function DerniereTable() as String
Dim td as DAO.Tabledef
DerniereTable = "TEC200000"
For each td in CurrentDb.Tabledefs
If Left(td.Name,5) = "TEC20" AND td.Name > DerniereTable
Then
DerniereTable = td.name
End If
Next td
End Function
Veiller à ce que la référence Microsoft DAO 3.n soit cochée.
En 2099, penser à adapter le code en prévision du bug de l'an 2100 ;-)))
@+
Etienne
"Ermam" a écrit dans le message de news: 41873f6c$0$310$
Bonjour à tous,
Voilà mon problème : je possède une base de données qui comporte plusieurs tables. Certaines sont crées tous les mois à partir de données externes à ACCESS.
Ces tables sont sommées de la façon suivante : TEC200408, TEC200409, TEC200410,.....
Donc je voudrais pouvoir sélectionner automatiquement en code VBA la dernière table (en l'occurence pour le moment TEC200410) et je n'arrive pas à trouver le code saisir pour réussir cette manip.
Public Function DerniereTable() as String Dim td as DAO.Tabledef DerniereTable = "TEC200000" For each td in CurrentDb.Tabledefs If Left(td.Name,5) = "TEC20" AND td.Name > DerniereTable Then DerniereTable = td.name End If Next td End Function
Veiller à ce que la référence Microsoft DAO 3.n soit cochée. En 2099, penser à adapter le code en prévision du bug de l'an 2100 ;-))) @+ Etienne
