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