Discussion :

[alfadz]

Bonjour mes amis du forum,

Voilà je suis arrivé à la fin de réalisation d'un petit programme de gestion de mon activité.
L'application comporte deux forms, deux modules, un dataEnvironent, un
datareport, un fichier.ocx et le fichier BD access.

Sous l'éditeur VB6 tout fonctionne à merveille,mais quand je passe au .exe
le form principal s'affiche tous ses éléments fonctionnent correctement,sauf le bouton recherche se trouvant sur le toolbar qui lance le show du form2 pour éléments de recherche.Je clique dessus l'erreur suivante apparue:

Erreur Automation
l'objet invoqué s'est déconnecté de ses clients
erreur d'éxecution '-2147417848(80010108)'

J'ignore l'origine de l'erreur et mes recherches sur le net n'ont pu solutionner mon problème. Encore une fois je sollicite votre aide.

Merci.

[alfadz]

bonjour tout le forum
je m’adresse à vous, en particulier Xylon, car je ne comprends pas pourquoi mon code (application) marche sans aucune erreur sur un autre PC , alors que sur mon pc portable lequel le code est réalisé ça ne marche pas pour ce bouton de recherche.

merci et à bientôt.

[ProgElecT]

bonjour tout le forum
je m'adrèsse à vous xylon
.....

Cela ne fait pas avancer les choses .....
Pour t'aider il nous faudrait un peu de code, l'événement Click, du bouton recherche se trouvant sur le toolbar qui lance le show du form2 pour éléments de recherche, me semple un minimum.

[XylonAkau]

_ Bonjour,

_ Je ne peux qu'être honoré par cet appel, mais c'était déjà expliqué dans les derniers messages du fil Propriété ou Méthode non Géré par l'Objet! : si une vie antérieure me permet (parfois) une (relative) efficacité quand il s'agit du fonctionnement de base de VB, tout ce qui s'étend au-delà (notamment ce qui concerne les bases de données) m'est terre inconnue et de grand mystère.

_ Heureusement, cela ne vous empêchera pas de trouver ici l'aide dont vous avez besoin.

_ Bon courage à vous et bonne semaine à tous.

[alfadz]

bonsoir à tout le forum

Je retourne à ProgElect qui m' a déjà aidé;

Bonsoir Mr,

Voilà j'ai codé le bouton de recherche avec de trois façons:
1er Cas:

Code :

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

1
2
3
Private Sub MnuRechercher_Click()
FrmRecherche.Show
End Sub

2eme cas:

Code :

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

1
2
3
4
5
Private Sub MnuRechercher_Click()
Dim cnx as Connection
Set Cnx=New ADODB.Connection
FrmRecherche.Show
End Sub

3eme Cas:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub MnuRechercher_Click()
Dim cnx as Connection
Dim Rst as recordset
Set Cnx=New ADODB.Connection
Set Rst=New ADODB.Recordset
'Etablir la connexion
cnx.Provider = "Microsoft.Jet.Oledb.4.0"
cnx.ConnectionString = App.Path & "\GCaisse.mdb"
cnx.Open
Rst.CursorLocation = adUseServer
Rst.ActiveConnection = cnx
FrmRecherche.Show
End Sub

Les trois codes sans résultats et la même Erreur.Que dois je faire autre? Merci

[ProgElecT]

Salut

Merci d'avoir mis les bouts de code de tes différents essais.

1° cas
tout laisse penser que la connexion et l'ouverture d'une table est fait dans le Form FrmRecherche et là, on ne voit pas comment tu réalises la connexion ni l'ouverture de la table

2° cas
Ta variable Object de connexion est déclaré dans le Form du menu et tu veux l'utiliser dans le Form FrmRecherche, ce qui pose un problème de porté.

3° cas
Même problème de porté de variable, même punition

Une solution, faire les déclarations cnx et Rst (Public) dans un module *.BAS

Une autre solution, si la recherche et son affichage est fait dans le Form FrmRecherche, faire les déclarations dans celui-ci, établir la connexion et l'ouverture de la table (suivant le/les critère(s) de recherche) à la validation de ces critères par l'utilisateur.

De plus, dans la sub MnuRechercher_Click() , il serait sûrement judicieux de faire un FrmRecherche.Show 1, FrmMenu plutôt qu'un simple .Show