Discussion :

[CDME91]

Bonjour,

J'ai besoin de votre aide s'il vous plait:

Voilà j'ai développé une appli sur ACCESS 2003 que je transfert sur les autres postes par l'intermédiaire d'un runtime.
Jusqu'à maintenant les postes étaient sur XP ms maintenant qu ils sont sur Vista, j'ai des problèmes d'interprétation de module.

Le principal qui me pose problème est celui qui me permet de vérifier si un formulaire est ouvert comme condition pour pouvoir executer une action. A l'origine je l'avais créer comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function EstFormulaireChargé(NomFormulaire)
    EstFormulaireChargé = False
    For I = 0 To Forms.Count - 1
       If Forms(I).FormName = NomFormulaire Then
            EstFormulaireChargé = True
            Exit For
       End If
    Next I
End Function

Savez vous quelle modif dois je faire pour qu il fonctionne sur tte version?

Merci d'avance pour votre aide


Mu

[micniv]

Depuis un moment j'utilise ce code :

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
 
Public Function IsFrmLoaded(szName As String) As Boolean
'This function will return True if the form is open
'                      and False if it is closed.
    On Error GoTo Err_
 
    '    Dim num As Long
    '    IsFrmLoaded = False
    '    For num = 0 To Forms.Count - 1
    '        If Forms(num).FormName = szName Then
    '            IsFrmLoaded = True
    '            Exit Function       ' quitte la fonction une fois le formulaire trouvé.
    '        End If
    '    Next
 
    IsFrmLoaded = (SysCmd(acSysCmdGetObjectState, acForm, szName) <> 0)
 
exit_:
    Exit Function
Err_:
    MsgBox err.Description, vbCritical, "Erreur Function IsFrmLoaded"
    Resume exit_
End Function

PS : ton code devrait marcher si tu déclares complètement tes variables et correctement ta "function" en ajoutant "as Boolean" ; en général j'évite aussi les accents dans le code ...

Salut