'************************************************************************** ' Name : xIsFormLoaded ' Purpose : Test if a form is loaded ' Syntax : xIsFormLoaded(TheForm) ' Parameters : TheForm : The form to test ' Return : True or False '************************************************************************** Public Function xIsFormLoaded(ByVal FormName As String) As Boolean Dim intCount As Integer xIsFormLoaded = False FormName = UCase(FormName) For intCount = 0 To Forms.Count - 1 If UCase(Forms(intCount).Name) = FormName Then xIsFormLoaded = True intCount = Forms.Count End If Next End Function
Un peu long tu crois pas ????Voici un code beaucoup plus rapide : Public Function IsLoaded(ByVal FormName As Form) As BooleanDim formTEMP As FormIsLoaded = FalseFor Each formTEMP In Forms If formTEMP.Name = FormName.Name Then IsLoaded = True Exit Function End IfNextEnd Function
euh ya 2 ligne de mois dans ton code leptidevAhem...
le code de leptidev est bien mieux, pourtant.... le test Min/Maj est inutile ici, et un For Each est plus rapide a executer qu'un For i ...
[quote]le code de leptidev est bien mieux, pourtant.... [/quote]sauf qu'il charge la forme qu'on veut tester et si on veut tester si elle charger je pense qu'on veuile qu'elle se charge juste avant :pFaut donc tester avec FormName (As String) et pas FormName.Name (en plus appeler le paramètre de type Form, FormName c'est pas très logique).Je met 7 à Mr X à cause des UCase et du For To du coup c'est moins optimisé mais au moins ça fait ce que c'est censé faire.
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte