Discussion :

[urbanspike]

Re Bonjour,

Je cherche à afficher un état access qui existe dans ma base. J'ai trouvé ce code sur le forum mais je n'ai pas d'affichage:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim MaDbMat As String = "c:\Helpdesk.mdb"
        Dim MesEtats As Object
        MesEtats = CreateObject("Access.Application")
        MesEtats.OpenCurrentDatabase(MaDbMat, False)
        MesEtats.DoCmd.OpenReport("E_fiche_intervention", 2)

si quelqu'un sait comment faire...

Merci

[gilles_906]

bonjour,

As tu trouvé comment faire cela m'interesse aussi?
Merci

[hugoclo]

Sur MSDN

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim oAccess As Access.Application
' Démarre une nouvelle instance d'Access pour l'automatisation :
oAccess = New Access.ApplicationClass()
' Ouvre une base de données en mode exclusif :
oAccess.OpenCurrentDatabase(filepath:="c:\mydb.mdb", Exclusive:=True)
' Affiche l'aperçu de l'état nommé Sales :
oAccess.DoCmd.OpenReport(ReportName:="Sales", _
   View:=Access.AcView.acViewPreview)
' Imprime l'état nommé Sales :
oAccess.DoCmd.OpenReport(ReportName:="Sales", _
   View:=Access.AcView.acViewNormal)

Explication Ici

[gilles_906]

Merci de ta reponse.

Pour info j'avais placé ce code qui fonctionne mais m'ouvre également access en container, et ca fait pas trop joli
J'aurais aimé n'ouvrir que l'état ou ouvrir l'etat dans un form, est ce possible?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MaDbMat As String = "c:\Gillou\essai.mdb"
        Dim MesEtats As Object
        MesEtats = CreateObject("Access.Application")
        MesEtats.OpenCurrentDatabase(MaDbMat, False)
        MesEtats.DoCmd.OpenReport("TFactures", 2)
        MesEtats.visible = True
    End Sub

merci en tout cas de m'avoir repondu