fct pour onglet

Version imprimable

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:

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:

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(acSysCmdGetObjectState, acForm, chNomForm) <> conEtatObjFermé Then If Forms(chNomForm).CurrentView <> conModeCréation Then EstChargé = True End If End Function
_____________________________________________________________

Pour ceux que cela peut intéressé voici ma solution :

Code:

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é() As String
 
Dim NomPage As String
 
' Renvoie le nom de la page qui est sélectionné
 
 
 
Select Case [Forms]![F_projet].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...

Voici ma fonction adpaté:

Code:

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() As Integer
 
' Renvoie la valeur du formulaire qui est ouvert
 
If FormulaireEstChargé("F_projet") Then
 
    If OngletEstChargé = "Liste des projets en cours" Then
        projetouvert = [Forms]![F_projet]![SF_liste des projet mode bouton].[Form]![# projet]
    End If
 
    If OngletEstChargé = "Liste des projets expédiés" Then
        projetouvert = [Forms]![F_projet]![SF_liste des projet mode bouton].[Form]![# projet]
    End If
 
    If OngletEstChargé = "Liste des projets fermés" Then
        projetouvert = [Forms]![F_projet]![Vue projet annulé].Form![# projet]
    End If
 
End If
 
If FormulaireEstChargé("clientstat") Then
    projetouvert = [Forms]![ClientStat]![ClientStat  subform].[Form]![# projet]
 
End If
 
End Function