IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

ouvrir un formulaire à partir d'une autre base de donnée Access [AC-2003]


Sujet :

VBA Access

  1. #1
    Membre actif
    Inscrit en
    Avril 2007
    Messages
    1 239
    Détails du profil
    Informations forums :
    Inscription : Avril 2007
    Messages : 1 239
    Points : 213
    Points
    213
    Par défaut ouvrir un formulaire à partir d'une autre base de donnée Access
    Bonjour,

    J'ai crée une BDD A avec plusieurs formulaires. Sur l'un deux, j'ai inseré un bouton de commande qui ouvre une autre BDD B qui contient également plusieurs formulaires ( evenement "shell).
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub commande_Click()()
    Shell """C:\Program Files\Microsoft Office\OFFICE11\MSAccess.exe"" ""C:\...\ma_baseB.mdb""", 1
    End Sub
    Ce que je souhaiterais, c'est d'ouvrir un formulaire précis de la BDD B et non pas ouvrir la BDD B entièrement.
    Est ce possible ?

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Développeur VBA/C#/VB.Net/Power Platform
    Inscrit en
    Juillet 2007
    Messages
    14 595
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur VBA/C#/VB.Net/Power Platform
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 595
    Points : 34 269
    Points
    34 269
    Par défaut
    Hello,

    la notion de
    pas ouvrir la BDD B entièrement
    me parait bien obscure

    Concernant l'ouverture du formulaire, tu as plusieurs approches :
    - ouvrir de base le formulaire à l'ouverture de la base
    - utiliser un bout de code qui ouvre le formulaire dont le nom est passé en paramètre
    http://jpcheck.developpez.com/tutori...tres/#LXII-C-3
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Membre actif
    Inscrit en
    Avril 2007
    Messages
    1 239
    Détails du profil
    Informations forums :
    Inscription : Avril 2007
    Messages : 1 239
    Points : 213
    Points
    213
    Par défaut
    bonjour jpcheck

    J'ai reussi a afficher le formulaire avec l'aide de Looufab.
    Je garde néanmoins sous le coude, ton bout de code..

  4. #4
    Membre du Club
    Homme Profil pro
    Employer
    Inscrit en
    Août 2015
    Messages
    98
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : Employer
    Secteur : Santé

    Informations forums :
    Inscription : Août 2015
    Messages : 98
    Points : 58
    Points
    58
    Par défaut Solution svp
    Bonsoir,
    Est ce qu'il est possible de partager la solution pour qu'on puisse ce documenter ?
    Merci

  5. #5
    Expert éminent
    Homme Profil pro
    Webplanneur
    Inscrit en
    Octobre 2007
    Messages
    4 262
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : Réunion

    Informations professionnelles :
    Activité : Webplanneur

    Informations forums :
    Inscription : Octobre 2007
    Messages : 4 262
    Points : 6 561
    Points
    6 561
    Par défaut
    A l'aide de "Gogole est mon ennemi", on retrouve la méthode ici.
    Elle permet d'écrire ce bout de code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Dim dbsObj As Object
    Set dbsObj = CreateObject("Access.Application")
    dbsObj.OpenCurrentDatabase ("C:\Users\...\NomDeBddDistante.accdb")
    dbsObj.DoCmd.OpenForm "NomDuFormDistant"
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    UR - ESIROI - GPME/CG/DCG8
    QTH :21°19'18"S - 055°25'32"E
    Inutile de me contacter par MP
    Merci de cliquer sur si la réponse vous a permis de résoudre votre problème et n'oubliez pas de clôturer le fil en cliquant sur

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 4
    Dernier message: 22/08/2013, 12h51
  2. Réponses: 2
    Dernier message: 04/12/2007, 16h45
  3. Réponses: 5
    Dernier message: 10/10/2007, 13h54
  4. Réponses: 3
    Dernier message: 19/12/2006, 01h16
  5. Réponses: 1
    Dernier message: 20/06/2006, 19h19

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo