Bonjour à tous,
j'essaie depuis mon application MDE de créer un état dans une base mdb, j'ai
le code suivant très simple :
Dim rpt as report
Dim dblocal As DAO.Database
'on ouvre la base dans laquelle on créé le report
Set dblocal = DBEngine.OpenDatabase("c:\temp.mdb")
' on créé un nouveau rapport
Set rpt = CreateReport(dblocal.Name)
une variante :
Set rpt = CreateReport("c:\temp.mdb")
et j'obtiens une erreur comme quoi le fichier n'existe pas, j'ai donc
reprise le 1er code en faisant un createdatabase, ce qui fonctionne, mais le
create report ne fonctionne toujours pas.
J'ai rmeplacé le test.mdb par test.mda, c'est idem.
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
manu9292
Bonjour,
Moi j'ai souvent ce genre de problème, et en fait j'ai trouvé cette solution :
Dim appAccess As Access.Application
Public Sub CreeReport() Set appAccess = New Access.Application ' Ouvre la base de données dans la fenêtre Microsoft Access. appAccess.OpenCurrentDatabase "C:temp.mdb" ' on créé un nouveau rapport appAccess.CreateReport
appAccess.CloseCurrentDatabase Set appAccess = Nothing End Sub
Bonjour à tous, j'essaie depuis mon application MDE de créer un état dans une base mdb, j'ai le code suivant très simple :
Dim rpt as report Dim dblocal As DAO.Database 'on ouvre la base dans laquelle on créé le report Set dblocal = DBEngine.OpenDatabase("c:temp.mdb") ' on créé un nouveau rapport Set rpt = CreateReport(dblocal.Name)
une variante : Set rpt = CreateReport("c:temp.mdb")
et j'obtiens une erreur comme quoi le fichier n'existe pas, j'ai donc reprise le 1er code en faisant un createdatabase, ce qui fonctionne, mais le create report ne fonctionne toujours pas.
J'ai rmeplacé le test.mdb par test.mda, c'est idem.
Merci de vos suggestions :)
Laurent
Bonjour,
Moi j'ai souvent ce genre de problème, et en fait j'ai trouvé cette solution
:
Dim appAccess As Access.Application
Public Sub CreeReport()
Set appAccess = New Access.Application
' Ouvre la base de données dans la fenêtre Microsoft Access.
appAccess.OpenCurrentDatabase "C:temp.mdb"
' on créé un nouveau rapport
appAccess.CreateReport
appAccess.CloseCurrentDatabase
Set appAccess = Nothing
End Sub
Bonjour à tous,
j'essaie depuis mon application MDE de créer un état dans une base mdb, j'ai
le code suivant très simple :
Dim rpt as report
Dim dblocal As DAO.Database
'on ouvre la base dans laquelle on créé le report
Set dblocal = DBEngine.OpenDatabase("c:temp.mdb")
' on créé un nouveau rapport
Set rpt = CreateReport(dblocal.Name)
une variante :
Set rpt = CreateReport("c:temp.mdb")
et j'obtiens une erreur comme quoi le fichier n'existe pas, j'ai donc
reprise le 1er code en faisant un createdatabase, ce qui fonctionne, mais le
create report ne fonctionne toujours pas.
J'ai rmeplacé le test.mdb par test.mda, c'est idem.
Moi j'ai souvent ce genre de problème, et en fait j'ai trouvé cette solution :
Dim appAccess As Access.Application
Public Sub CreeReport() Set appAccess = New Access.Application ' Ouvre la base de données dans la fenêtre Microsoft Access. appAccess.OpenCurrentDatabase "C:temp.mdb" ' on créé un nouveau rapport appAccess.CreateReport
appAccess.CloseCurrentDatabase Set appAccess = Nothing End Sub
Bonjour à tous, j'essaie depuis mon application MDE de créer un état dans une base mdb, j'ai le code suivant très simple :
Dim rpt as report Dim dblocal As DAO.Database 'on ouvre la base dans laquelle on créé le report Set dblocal = DBEngine.OpenDatabase("c:temp.mdb") ' on créé un nouveau rapport Set rpt = CreateReport(dblocal.Name)
une variante : Set rpt = CreateReport("c:temp.mdb")
et j'obtiens une erreur comme quoi le fichier n'existe pas, j'ai donc reprise le 1er code en faisant un createdatabase, ce qui fonctionne, mais le create report ne fonctionne toujours pas.
J'ai rmeplacé le test.mdb par test.mda, c'est idem.
Merci de vos suggestions :)
Laurent
manu9292
Bonjour,
J'ai souvent ce genre de problème, et donc j'utilise la méthode suivante, qui ouvre une nouvelle occurence Access:
Dim appAccess As Access.Application
Public Sub test() Set appAccess = New Access.Application ' Ouvre la base de données dans la fenêtre Microsoft Access. appAccess.OpenCurrentDatabase "C:temp.mdb" ' on créé un nouveau rapport appAccess.CreateReport ' on ferme la base de données appAccess.CloseCurrentDatabase Set appAccess = Nothing End Sub
Voilà voilà
Bonjour à tous, j'essaie depuis mon application MDE de créer un état dans une base mdb, j'ai le code suivant très simple :
Dim rpt as report Dim dblocal As DAO.Database 'on ouvre la base dans laquelle on créé le report Set dblocal = DBEngine.OpenDatabase("c:temp.mdb") ' on créé un nouveau rapport Set rpt = CreateReport(dblocal.Name)
une variante : Set rpt = CreateReport("c:temp.mdb")
et j'obtiens une erreur comme quoi le fichier n'existe pas, j'ai donc reprise le 1er code en faisant un createdatabase, ce qui fonctionne, mais le create report ne fonctionne toujours pas.
J'ai rmeplacé le test.mdb par test.mda, c'est idem.
Merci de vos suggestions :)
Laurent
Bonjour,
J'ai souvent ce genre de problème, et donc j'utilise la méthode suivante,
qui ouvre une nouvelle occurence Access:
Dim appAccess As Access.Application
Public Sub test()
Set appAccess = New Access.Application
' Ouvre la base de données dans la fenêtre Microsoft Access.
appAccess.OpenCurrentDatabase "C:temp.mdb"
' on créé un nouveau rapport
appAccess.CreateReport
' on ferme la base de données
appAccess.CloseCurrentDatabase
Set appAccess = Nothing
End Sub
Voilà voilà
Bonjour à tous,
j'essaie depuis mon application MDE de créer un état dans une base mdb, j'ai
le code suivant très simple :
Dim rpt as report
Dim dblocal As DAO.Database
'on ouvre la base dans laquelle on créé le report
Set dblocal = DBEngine.OpenDatabase("c:temp.mdb")
' on créé un nouveau rapport
Set rpt = CreateReport(dblocal.Name)
une variante :
Set rpt = CreateReport("c:temp.mdb")
et j'obtiens une erreur comme quoi le fichier n'existe pas, j'ai donc
reprise le 1er code en faisant un createdatabase, ce qui fonctionne, mais le
create report ne fonctionne toujours pas.
J'ai rmeplacé le test.mdb par test.mda, c'est idem.
J'ai souvent ce genre de problème, et donc j'utilise la méthode suivante, qui ouvre une nouvelle occurence Access:
Dim appAccess As Access.Application
Public Sub test() Set appAccess = New Access.Application ' Ouvre la base de données dans la fenêtre Microsoft Access. appAccess.OpenCurrentDatabase "C:temp.mdb" ' on créé un nouveau rapport appAccess.CreateReport ' on ferme la base de données appAccess.CloseCurrentDatabase Set appAccess = Nothing End Sub
Voilà voilà
Bonjour à tous, j'essaie depuis mon application MDE de créer un état dans une base mdb, j'ai le code suivant très simple :
Dim rpt as report Dim dblocal As DAO.Database 'on ouvre la base dans laquelle on créé le report Set dblocal = DBEngine.OpenDatabase("c:temp.mdb") ' on créé un nouveau rapport Set rpt = CreateReport(dblocal.Name)
une variante : Set rpt = CreateReport("c:temp.mdb")
et j'obtiens une erreur comme quoi le fichier n'existe pas, j'ai donc reprise le 1er code en faisant un createdatabase, ce qui fonctionne, mais le create report ne fonctionne toujours pas.
J'ai rmeplacé le test.mdb par test.mda, c'est idem.
