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
Eric
Bonjour,
Une piste, peut-être. Affichage dans la fenêtre Exécution
Private Sub Form_Load() Dim appAccess As New Access.Application, oAccess As AccessObject Dim CheminBD As String CheminBD = "C:Documents and SettingsUserMes documentsNews2.mdb" appAccess.OpenCurrentDatabase CheminBD, False For Each oAccess In CurrentProject.AllReports Debug.Print oAccess.Name Next oAccess appAccess.CloseCurrentDatabase appAccess.Quit End Sub
A+ Eric
"Crespin Raymond" écrivait news:4151bbbe$0 $320$:
Bonjour à tous,
Une petite question. comment pourrais-je récupérer la liste des états d'une base access ?
Merci d'avance.
Raycres
Bonjour,
Une piste, peut-être. Affichage dans la fenêtre Exécution
Private Sub Form_Load()
Dim appAccess As New Access.Application, oAccess As AccessObject
Dim CheminBD As String
CheminBD = "C:Documents and SettingsUserMes documentsNews2.mdb"
appAccess.OpenCurrentDatabase CheminBD, False
For Each oAccess In CurrentProject.AllReports
Debug.Print oAccess.Name
Next oAccess
appAccess.CloseCurrentDatabase
appAccess.Quit
End Sub
Une piste, peut-être. Affichage dans la fenêtre Exécution
Private Sub Form_Load() Dim appAccess As New Access.Application, oAccess As AccessObject Dim CheminBD As String CheminBD = "C:Documents and SettingsUserMes documentsNews2.mdb" appAccess.OpenCurrentDatabase CheminBD, False For Each oAccess In CurrentProject.AllReports Debug.Print oAccess.Name Next oAccess appAccess.CloseCurrentDatabase appAccess.Quit End Sub
A+ Eric
"Crespin Raymond" écrivait news:4151bbbe$0 $320$:
Bonjour à tous,
Une petite question. comment pourrais-je récupérer la liste des états d'une base access ?
Merci d'avance.
Raycres
Crespin Raymond
Merçi, je vais essayer. "Eric" a écrit dans le message de news:
Bonjour,
Une piste, peut-être. Affichage dans la fenêtre Exécution
Private Sub Form_Load() Dim appAccess As New Access.Application, oAccess As AccessObject Dim CheminBD As String CheminBD = "C:Documents and SettingsUserMes documentsNews2.mdb" appAccess.OpenCurrentDatabase CheminBD, False For Each oAccess In CurrentProject.AllReports Debug.Print oAccess.Name Next oAccess appAccess.CloseCurrentDatabase appAccess.Quit End Sub
A+ Eric
"Crespin Raymond" écrivait news:4151bbbe$0 $320$:
> Bonjour à tous, > > Une petite question. > comment pourrais-je récupérer la liste des états d'une base access ? > > Merci d'avance. > > Raycres > > >
Merçi, je vais essayer.
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
XnF956CF00EA9CC6fframZZhotmailcom@207.46.248.16...
Bonjour,
Une piste, peut-être. Affichage dans la fenêtre Exécution
Private Sub Form_Load()
Dim appAccess As New Access.Application, oAccess As AccessObject
Dim CheminBD As String
CheminBD = "C:Documents and SettingsUserMes documentsNews2.mdb"
appAccess.OpenCurrentDatabase CheminBD, False
For Each oAccess In CurrentProject.AllReports
Debug.Print oAccess.Name
Next oAccess
appAccess.CloseCurrentDatabase
appAccess.Quit
End Sub
> Bonjour à tous,
>
> Une petite question.
> comment pourrais-je récupérer la liste des états d'une base access ?
>
> Merci d'avance.
>
> Raycres
>
>
>
Merçi, je vais essayer. "Eric" a écrit dans le message de news:
Bonjour,
Une piste, peut-être. Affichage dans la fenêtre Exécution
Private Sub Form_Load() Dim appAccess As New Access.Application, oAccess As AccessObject Dim CheminBD As String CheminBD = "C:Documents and SettingsUserMes documentsNews2.mdb" appAccess.OpenCurrentDatabase CheminBD, False For Each oAccess In CurrentProject.AllReports Debug.Print oAccess.Name Next oAccess appAccess.CloseCurrentDatabase appAccess.Quit End Sub
A+ Eric
"Crespin Raymond" écrivait news:4151bbbe$0 $320$:
> Bonjour à tous, > > Une petite question. > comment pourrais-je récupérer la liste des états d'une base access ? > > Merci d'avance. > > Raycres > > >