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

Access Discussion :

fct pour onglet


Sujet :

Access

  1. #1
    Futur Membre du Club
    Profil pro
    Inscrit en
    Novembre 2005
    Messages
    6
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Novembre 2005
    Messages : 6
    Points : 6
    Points
    6
    Par défaut fct pour onglet
    Les deux fonction -ci desssous fonctionne tres bien pour ce que je désire faire . Seulement il faut que je me créer une autre fonction pour compléter la fonction projetouvert.

    Je désire que cette fonction retourne vrai si la page d'onglet est acitf.
    Autrement dit je voudrai qu'elle fonctionne sur le même pricipe que EstCrhargé.

    Est-ce qu'il existe une commande VB pour savoir si la page d'onglet est actif?

    Merci de votre aide

    _____________________________________________________________

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Public Function projetouvert() As Integer
     
    ' Renvoie la valeur du formulaire qui est ouvert
     
    If EstChargé("F_projet") Then
    projetouvert = [Forms]![F_projet]![SF_liste des projet mode bouton].[Form]![# projet]
    End If
     
    If EstChargé("clientstat") Then
    projetouvert = [Forms]![ClientStat]![ClientStat  subform].[Form]![# projet]
    End If
     
    End Function
    ___________________________________________________________

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Public Function EstChargé(ByVal chNomForm As String) As Boolean
     
    ' Renvoie Vrai si le formulaire spécifié est chargé.
    Const conModeCréation = 0
    Const conEtatObjFermé = 0
    EstChargé = False
    If SysCmd&#40;acSysCmdGetObjectState, acForm, chNomForm&#41; <> conEtatObjFermé Then
        If Forms&#40;chNomForm&#41;.CurrentView <> conModeCréation Then EstChargé = True
    End If
     
    End Function
    _____________________________________________________________

  2. #2
    Futur Membre du Club
    Profil pro
    Inscrit en
    Novembre 2005
    Messages
    6
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Novembre 2005
    Messages : 6
    Points : 6
    Points
    6
    Par défaut
    Pour ceux que cela peut intéressé voici ma solution :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    Public Function OngletEstChargé&#40;&#41; As String
     
    Dim NomPage As String
     
    ' Renvoie le nom de la page qui est sélectionné
     
     
     
    Select Case &#91;Forms&#93;!&#91;F_projet&#93;.CtlTab57.Value
     
    Case 0
        NomPage = "Liste des projets en cours"
    Case 1
        NomPage = "Liste des projets expédiés"
    Case 2
        NomPage = "Liste des projets fermés"
     
    End Select
     
    OngletEstChargé = NomPage
     
    End Function
    Maintenant il me reste juste a modifier pour entrer le tout en parametre pour quelle soit réutilisable...

  3. #3
    Futur Membre du Club
    Profil pro
    Inscrit en
    Novembre 2005
    Messages
    6
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Novembre 2005
    Messages : 6
    Points : 6
    Points
    6
    Par défaut
    Voici ma fonction adpaté:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
     
    Public Function projetouvert&#40;&#41; As Integer
     
    ' Renvoie la valeur du formulaire qui est ouvert
     
    If FormulaireEstChargé&#40;"F_projet"&#41; Then
     
        If OngletEstChargé = "Liste des projets en cours" Then
            projetouvert = &#91;Forms&#93;!&#91;F_projet&#93;!&#91;SF_liste des projet mode bouton&#93;.&#91;Form&#93;!&#91;# projet&#93;
        End If
     
        If OngletEstChargé = "Liste des projets expédiés" Then
            projetouvert = &#91;Forms&#93;!&#91;F_projet&#93;!&#91;SF_liste des projet mode bouton&#93;.&#91;Form&#93;!&#91;# projet&#93;
        End If
     
        If OngletEstChargé = "Liste des projets fermés" Then
            projetouvert = &#91;Forms&#93;!&#91;F_projet&#93;!&#91;Vue projet annulé&#93;.Form!&#91;# projet&#93;
        End If
     
    End If
     
    If FormulaireEstChargé&#40;"clientstat"&#41; Then
        projetouvert = &#91;Forms&#93;!&#91;ClientStat&#93;!&#91;ClientStat  subform&#93;.&#91;Form&#93;!&#91;# projet&#93;
     
    End If
     
    End Function

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

Discussions similaires

  1. [XL-2003] Formule pour onglet pas encore existant (pas de VBA)
    Par Homer091 dans le forum Excel
    Réponses: 2
    Dernier message: 29/10/2010, 17h07
  2. Bibli de fct pour manipuler des nbres Complex
    Par Pellekrino dans le forum Bibliothèques
    Réponses: 3
    Dernier message: 09/02/2008, 17h13
  3. HELP ! probleme dans une fct pour compression
    Par ryoussef19 dans le forum VC++ .NET
    Réponses: 8
    Dernier message: 28/08/2007, 12h06
  4. Aide pour onglet
    Par Aeae76 dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 26/02/2007, 15h34
  5. fct pour lire autant de caracteres dans une chaine?
    Par jeanfrancois dans le forum Langage
    Réponses: 3
    Dernier message: 30/03/2006, 16h45

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