Discussion :

[LeScandinave]

Bonjour,
je voudrais bien tester si un fomulaire existe avant de pourvoir l'ouvrir.
Malheureusement je ne trouve pas de fonction approprié, j'ai voulu m'inspirer de cette fonction pour tester l'existance de tables:

Code :

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

1
2
3
4
5
6
7
8
9
10
Function ExistTable ( ByVal strTabl As String) As Boolean
    Dim tbl As TableDef
    ExistTable = False
    For Each tbl In CurrentDb.TableDefs
        If tbl.name = strTabl Then
            ExistTable = True
            Exit Function
        End If
    Next tbl
End Function

Mais je ne trouve pas l'équivalent de TableDef pour les Form.
J'ai essayé une boucle avec AllForms mais sans succès...

[random]

function existe(nom as string) as boolean
dim boucle as form
for each boucle in forms
if boucle.name =nom then
existe=true
exit for
end if
next boucle
existe=false
end function

[Tofalu]

La collection forms ne correspond qu'aux formulaires ouverts


Pour tester l'existence d'un formulaire :

Code :

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

1
2
3
4
5
6
7
8
Public Function ExistForm(strName As String) As Boolean
On Error GoTo err
Dim oFrm As AccessObject
Set oFrm = CurrentProject.AllForms(strName)
ExistForm = True
Set oFrm = Nothing
err:
End Function

[LeScandinave]

merci random (je connaissais pour les formulaires ouverts et aussi pour le ç, ça marche )
et merci Tofalu la vérification se fait bien.
Pour dire que je fais tout ça pour le supprimer dynamiquement!