Ouverture etat access avec vb.net

zetopskateuse -
zetopskateuse - 19 juin 2012 à 10:14

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 :
.

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 !

A voir également:

Ouverture etat access avec vb.net
Remettre pc etat usine - Guide
Page d'ouverture google - Guide
Etat disque dur - Télécharger - Informations & Diagnostic
Détection de l'ouverture du clapet de mon étui samsung ✓ - Forum Samsung
Access runtime ✓ - Forum Access

2 réponses

Réponse 1 / 2

zetopskateuse

Pas d'idée ? :'(

Réponse 2 / 2

zetopskateuse

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.

Discussions similaires

Carte sim free + Activation !

Sécurité réseau

L'état actuel de votre carte sim ne requiert aucune activation

Carte sim qui ne s'active pas

Acer quick access

Votre réponse

Discussions similaires