Ouverture etat access avec vb.net
zetopskateuse
-
zetopskateuse -
zetopskateuse -
Bonjour,
.
Je me permets d'ouvrir ce sujet car après recherche je n'ai pas trouvé la réponse sur le forum.
Je cherche à ouvrir un etat access en vb.net mais j'obtiens l'erreur "impossible d'exécuter cette action pour l'instant".
(Il me faut absolument ouvrir cet état et non créer un rapport avec crystal report ou autre comme suggéré sur d'autres forums.)
.
Voici mon code :
.
L'erreur se produit sur sur OpenReport. (Je précise que la base de données est ouverte dès le lancement du programme.)
Je suppose qu'après OpenReport il faudrait un Close quelque part mais je ne sais pas où le mettre et le problème ne semble pas venir de là.
.
C'est la première fois que j'essaie de faire ça donc je ne suis pas très à l'aise avec ce code. Si vos réponses pouvaient être assez précises ce serait vraiment génial :)
.
Merci beaucoup !
.
Je me permets d'ouvrir ce sujet car après recherche je n'ai pas trouvé la réponse sur le forum.
Je cherche à ouvrir un etat access en vb.net mais j'obtiens l'erreur "impossible d'exécuter cette action pour l'instant".
(Il me faut absolument ouvrir cet état et non créer un rapport avec crystal report ou autre comme suggéré sur d'autres forums.)
.
Voici mon code :
.
Dim OAccess As Object
OAccess = CreateObject("Access.Application")
OAccess.DoCmd.OpenReport("liste_clients", Access.AcView.acViewPreview)
OAccess.Visible = True
OAccess = Nothing
L'erreur se produit sur sur OpenReport. (Je précise que la base de données est ouverte dès le lancement du programme.)
Je suppose qu'après OpenReport il faudrait un Close quelque part mais je ne sais pas où le mettre et le problème ne semble pas venir de là.
.
C'est la première fois que j'essaie de faire ça donc je ne suis pas très à l'aise avec ce code. Si vos réponses pouvaient être assez précises ce serait vraiment génial :)
.
Merci beaucoup !
2 réponses
-
-
Bonjour,
Je ne m'en sors vraiment pas. Je vous remets mon code, je n'avance pas d'un pouce.
If connect() Then '(connection OK) Try Dim OAccess As Object OAccess = CreateObject("Access.Application") OAccess.DoCmd.OpenReport(nomEtat, AcView.acViewPreview) OAccess.Visible = True OAccess = Nothing Catch ex As Exception MessageBox.Show(ex.Message) Finally deconnect() End Try End If
J'ai aussi essayé une fonction trouvée sur le net :
deconnect() '(si déjà connecté : deconnection) OpenCurrentDatabase("mydb.mdb") With objAccess DoCmd.OpenReport("liste_clients", Access.AcView.acViewNormal) End With
Cela renvoit le code d'erreur 7866 (db ouverte en mode exclusif)
pourtant voici ma chaine de connection :Provider=Microsoft.Jet.OLEDB.4.0;Data source=mydb.mdb;Mode=Share Deny None;
Toute idée est la bienvenue.
Merci beaucoup.
