Discussion :

[sat05]

Bonjour à tous je voudrai réaliser un code qui permet d ouvrir des etats sous access sur vb6 pour les imprimer si ca existe svp laissé moi une réponse et merci d avance

[dot-_-net]

Bonjour à tous je voudrai réaliser un code qui permet d ouvrir des etats sous access sur vb6 pour les imprimer si ca existe svp laissé moi une réponse et merci d avance

que veux tu exactement pour qu'on puisse t'aider?

[Invité]

Bonjour

Il suffit de faire un peu de recherche dans la FAQ VB6 : http://vb.developpez.com/faq/?page=d...ce#etat_access

Starec

[sat05]

Le programme sur le quel je travaille maintenant nécessite d'imprimer quelque états qui sont contenus dans ma base de données Access alors moi je veux y accédé à ces états.

[Invité]

Bonjour

Et le lien que je t'ai donné ne convient pas ?

Starec

[sat05]

j ai essayé avec et ça n'a pas marché il me met des erreurs

[OhMonBato]

Fais un effort s'il te plait ! Comprends bien que si tu nous donne des informations au compte goutte, on va avoir du mal à t'aider.
A priori le lien donné par Starec indique la marche à suivre pour faire ce que tu souhaites.
Si tu rencontres des problèmes pour appliquer la solution, donne nous au moins ton code et indique clairement quelle(s) ligne(s) provoque(nt) des erreurs et donne nous le ou les messages d'erreur que tu as.

[sat05]

mais je pense que mon problème est très clair je vais vous montrer où VB m affiche une erreur quand j utilise le code que m'a donné l'autre administrateur

Code :

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

1
2
3
4
5
6
7
8
 
Dim MaDbMat As String
Dim MesEtats As Access.Application
 
MaDbMat = App.Path & "\MaBase.mdb"
 
Set MesEtats = New Access.Application      
MesEtats.OpenCurrentDatabase MaDbMat, False

l'erreur c est sur la dernière ligne

[OhMonBato]

Tu as référencé Access dans ton projet ? Quel est le code d'erreur EXACT ? Ta base de données s'appelle MaBase.mdb ?
Dis toi bien que si on continue de poser des questions, c'est que ton explication n'est pas si claire que ça (Ou alors c'est que je suis un crétin fini, et c'est vrai que c'est pas totalement exclu non plus )

[sat05]

voici l erreur qu'on me donne :
impossible d'ouvrir la base de données parce que celle-ci est manquante , ou a été ouverte par un autre utilisateur en mode exclusif
voila et a propos de mabase.mdb je suis pas si bête pour commettre cette erreur

[SfJ5Rpw8]

Bonsoir,

rajoute la ligne commençant par MsgBox :

Code :

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

1
2
3
4
5
MaDbMat = App.Path & "\MaBase.mdb"
 
Set MesEtats = New Access.Application     
msgBox  MaDbMat 
MesEtats.OpenCurrentDatabase MaDbMat, False

et dis nous quoi...

[sat05]

merci bbil bon j ai mis le msgbox comme tu la indiqué et il m a affiché le chemin de la base de donné j'ai remarqué qu il y a des erreurs sur le chemin il ne fallait pas donner le chemin absolu de la base :s:s:s ce que je veux maintenant si c possible d'enlever le boite de dialogue access qui vous demande l'accord pour l'ouverture de la base