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 :

Click sur Label / Click sur commandbutton


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Août 2008
    Messages
    86
    Détails du profil
    Informations forums :
    Inscription : Août 2008
    Messages : 86
    Par défaut Click sur Label / Click sur commandbutton
    Bonjour,

    Je crée un formulaire dynamique, et j'aimerais qu'en cliquant sur un control de type 'acLabel', un autre formulaire s'ouvre. J'ai donc écrit une fonction pour créer ce second formulaire. Jusque là, aucun problème. Or quand je clique sur ce label, le formulaire se crée mais ne s'ouvre pas (il reste en petit dans un coin de l'écran), tandis que si j'affecte cette même fonction à la propriété 'onclick' d'un commandbutton, la page s'ouvre tout à fait normalement ! (alors que le code de la fonction est rigoureusement le même).

    Pourquoi access réagit-il comme ca? Comment le forcer à m'afficher ce second formulaire comme je le souhaite?

    J'écris ci-dessous des bouts de code que j'utilise:

    Pour les labels sur lesquels l'utilisateur clique :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Set ctr_BB(compteur) = CreateControl(frm.Name, acLabel, , "", "", gauche * 10 + (i - 1) * (largeur + decal_gauche), decal_haut * j + (hauteur) * (j - 1), largeur, hauteur)
    ctr_BB(compteur).BackStyle = 1
    ctr_BB(compteur).TextAlign = 2
    ctr_BB(compteur).Name = "BB_" & j & "_" & mois & "_" & annee
    ctr_BB(compteur).OnClick = "=Formulaire_detail(" & mois & "," & annee & ", 1)"
    Pour la création du formulaire :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Public Function Formulaire_detail(mois As Long, annee As Long, choix As Long)
     
    Dim frm As Form
     
    Set frm = CreateForm()
    frm.Section(0).BackColor = RGB(220, 220, 220)
     
    DoCmd.OpenForm frm.Name, acNormal
    DoCmd.MoveSize 0, 5000, 8000, 5000
     
    End Function
    Merci beaucoup de votre aide,

    GL

  2. #2
    Membre Expert
    Avatar de keita
    Homme Profil pro
    Inscrit en
    Novembre 2002
    Messages
    885
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Côte d'Ivoire

    Informations forums :
    Inscription : Novembre 2002
    Messages : 885
    Par défaut
    bonjour
    Ajoute ceci pour voir DoCmd.Restore
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Public Function Formulaire_detail(mois As Long, annee As Long, choix As Long)
     
    Dim frm As Form
     
    Set frm = CreateForm()
    frm.Section(0).BackColor = RGB(220, 220, 220)
     
    DoCmd.OpenForm frm.Name, acNormal
    DoCmd.MoveSize 0, 5000, 8000, 5000
    DoCmd.Restore
    End Function
    @+

  3. #3
    Membre confirmé
    Inscrit en
    Août 2008
    Messages
    86
    Détails du profil
    Informations forums :
    Inscription : Août 2008
    Messages : 86
    Par défaut
    Merci, c'est parfaitement ce qu'il me fallait.



    Bonne journée

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

Discussions similaires

  1. [XL-2003] Prob mousemove + click sur label
    Par Raikko68 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 14/05/2010, 20h34
  2. Comment créer un évenement click sur label
    Par mdordenart dans le forum Windows Presentation Foundation
    Réponses: 3
    Dernier message: 23/10/2009, 14h33
  3. [C#] [TreeView] [contextMenu] selection sur un click droit
    Par weejungle dans le forum Windows Forms
    Réponses: 25
    Dernier message: 03/08/2009, 11h52
  4. Réponses: 3
    Dernier message: 16/02/2007, 12h35
  5. Question sur double click
    Par cjacquel dans le forum MFC
    Réponses: 2
    Dernier message: 30/04/2005, 11h53

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