recherche dans collection Forms

Marsh Posté le 14-05-2004 à 09:50:09

Bonjour,
voici mon code (plutôt simple) qui doit me dire si un formulaire éxiste dans ma base ou pas :

Code :

Function FormExist(NomForm As String) As Boolean
Dim F As Form
For Each F In Forms
If F.Name = NomForm Then: FormExist = True
Next F
End Function

quand j'execute cette fonction en "pas à pas détaillé", access passe directement de :
For Each F In Forms
à
End Function
il ne lit pas la condition If ... et me retourne toujours "False" (même quand ça devrait être "True" ) :heink:

Qu'est-ce que j'ai loupé ? :??:

Marsh Posté le 14-05-2004 à 09:50:09

Marsh Posté le 14-05-2004 à 10:30:16

je viens de trouver d'où vient le pbm : La collection Forms ne représente que la liste des formulaires ouverts. Comme mes formulaires sont tous fermés au moment où ce code est lancé, access ne les "voit" pas.

sous Access 2000 ou plus, on peut contourner le pbm en utilisant : CurrentProject.AllForms. Mais je suis sous 97.

Marsh Posté le 14-05-2004 à 11:17:18

je crois en effet ... je modifie mon code en ce sens.
merci ese-aSH.

Marsh Posté le 14-05-2004 à 11:21:02

voici le code final (qui marche!) :

Code :

Function FormExist(NomForm As String) As Boolean
On Error GoTo onerror_Err
DoCmd.OpenForm (NomForm), , , , , acHidden
FormExist = True
DoCmd.Close acForm, FrmNOm, acSaveYes
onerror_Err:
If Err.Number = 2102 Then: Exit Function
End Function

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *