Discussion :

[jalbec]

Bonjour,

Ma question a deux volets:

J'aimerais savoir si à partir d'un bouton de commande d'un formulaire on peut se diriger directement dans un des "objets" de son choix dans la base de donnée.

Ex. je voudrais basculer directement vers les objets "requêtes" dans la fenêtre Base de données.

Est-ce que je peux masquer par programmation les autres objects (ex. les tables, formulaires, états, modules, macros...) de la fenêtre Base de données ?

Merci de votre aide

[FreeAccess]

Bonjour,

si à partir d'un bouton de commande d'un formulaire on peut se diriger directement dans un des "objets" de son choix...........Est-ce que je peux masquer par programmation les autres objects (ex. les tables, formulaires, états, modules, macros...) de la fenêtre Base de données ?

Oui, bien sur.....
Par exemple sur l'événement "Sur clic" d'un bouton de commande...:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub cmdCacherObjet_Click()
'Cache la fenêtre des Objets de la base
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide
End Sub
 
Private Sub cmdAfficherObjet_Click()
'Ré-affiche la fenêtre des Objets de la base
'et se positionne directement dans la partie Requête
DoCmd.SelectObject acQuery, , True
End Sub

Bonne continuation.....

[jalbec]

Merci FreeAccess

Ça fonctionne pour aller dans l'objet requête, merci beaucoup.

Bon voici la suite de ma question. En ce faisant est-ce que je peux cacher les liens vers les autres objets (tables, formulaires etc...)

Et une autre question un peu plus complexe. Dans cette même fenêtre je me suis créé dans "Groupes" une fenêtre "Fusion" où j'ai recopié mes requêtes de fusion. Est-ce possible d'aller directement à cet endroit (comme ton code m'a permis d'aller directement dans l'objet "requête" ?

Merci encore

[FreeAccess]

Bonjour,

Dans cette même fenêtre je me suis créé dans "Groupes" une fenêtre "Fusion" où j'ai recopié mes requêtes de fusion. Est-ce possible d'aller directement à cet endroit

Alors pour cette question......je pose un Jocker........et je passe la main à quelqu'un de plus compétent......

En ce faisant est-ce que je peux cacher les liens vers les autres objets (tables, formulaires etc...)

Tu peux éventuellement t'inspirer de ce code:
http://www.utteraccess.com/forums/sh...11&Main=692211

Cela dit, je pense que si ton seul but est de masquer tes tables, formulaires, etc.....à tes utilisateurs, cela fait quand même un peu "usine à gaz"..
Maintenant, si c'est dans un but de maintenance (donner la possibilité à une personne autorisée...), la solution de masquer directement la fenêtre est la meilleure.....et tu n'autorise son affichage par exemple qu'apès la saisie d'un mot de passe.....à voir....

[jalbec]

T'as raison FreeAccess ça fait un peu usine à gaz.

Mais je voulais donner l'occasion aux utilisateurs d'aller faire leur propre requête tout en ne se perdant pas dans les dédales de la fenêtre de Base de données et aller modifier malencontreusement d'autres objets.

Alors t'as bien répondu à ma première interrogation et je t'en remercie et je déclare donc ce topic comme étant résolu.

[FreeAccess]

Bonjour,

Mais je voulais donner l'occasion aux utilisateurs d'aller faire leur propre requête

Et bien voila.......il fallait le dire plus tôt.......

Pour cela tu peux très bien créer un Formulaire de recherche qui permettra à tes utilisateur de créer leurs propres requêtes....
Tu as quelques tutos à disposition sur ce Forum; regarde en autre:
http://loufab.developpez.com/recursivite/
http://loufab.developpez.com/recursivite2/
http://loufab.developpez.com/recursivite3/

ou encore:
http://cafeine.developpez.com/access...echerchemulti/

Voila bonne lecture....et bonne application de tout ce code ....

[jalbec]

Merci beaucoup FreeAccess je vais aller voir ça en détail.

[jalbec]

Ça commence mal pour un tutoriel, j'ai déjà un problème dans le premier lien:
http://loufab.developpez.com/recursivite/

Ce code:

Code :

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

Set rst = CurrentDb.OpenRecordset("tbl_TempLstTbl")

donne "incompatibilité de Type" (erreur 13)... Il s'agit d'ajouter les noms de tables de la base dans la table "tbl_TempLstTbl"

et si je fais:

Code :

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

Set rst = CurrentDb.OpenRecordset(tbl_TempLstTbl)

erreur 3078 - ne peut trouver la table source

Est-ce que tu peux m'aider FreeAccess ?

[FreeAccess]

Bonsoir,.....

Est-ce que tu peux m'aider FreeAccess ?

Bien sur........... .......mais également tous les autres et en premier l'auteur de ce fabuleux tuto (Fabrice CONSTANS dit loufab)

Dans un premier temps as tu bien suivi les recommandations du paragraphe VII-B-1:

Vous devez d'abord ajouter la référence suivante : Microsoft DAO 3.6 Object Library
Dans la fenêtre Microsoft Visual Basic, utilisez le menu Outils/Références.

[jalbec]

Oui FreeAccess j'avais bien suivi la recommandation et c'est la première chose que j'ai vérifié car le message d'erreur pointait du code DAO.

Loufab m'a répondu ceci:

L'incompatibilité de type se produit lorsque l'on affecte à une variable typée (dim rst as recordset) une valeur ou entité qui n'est pas du bon type.

Dans un premier temps vérifiez que la variable rst est bien de type recordset.
Sinon vérifiez que la référence DAO est avant une éventuelle ADOx dans la liste.
Sinon forcez le typage de la variable en faisant précéder recordset du mot clef DAO. Comme ceci

dim rst as dao.recordset

Notez que qu'il vaut mieux écrire les mots réservés VBA en minuscule, si ils sont pris en compte correctement ils se transformeront en majuscule. comme ceci

Dim rst As DAO.RecordSet

Je l'ai essayé et ça fonctionne. D'après toi est-ce qu'il y a une autre façon de contourner le problème ?

[cafeine]

Hello,

ce n'est pas un problème, c'est le fonctionnement normal ...

[FreeAccess]

Bonjour.....

Je l'ai essayé et ça fonctionne. D'après toi est-ce qu'il y a une autre façon de contourner le problème ?

Mais tu n'as plus de problème.....puisque comme te le dit cafeine "..c'est le fonctionnement normal..."
En plus loufab t'a même fais un cours perso.......

Sinon, ici tu as encore l'explication "logique" de ton problème:
http://access.developpez.com/faq/?pa...#IncompTypeRst

Bonne continuation.

[jalbec]

Ah, tout s'éclaire maintenant avec ce lien Merci FreeAccess. Maintenant je comprends, si je n'utilises pas mes "références" dans le même ordre qu'un autre utilisateur le problème risque de survenir donc je prends note!

Maintenant je crois bien que je peux identifier ce topic comme étant résolu.

Alors encore MERCI à vous !