recherche dans collection Forms

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : recherche dans collection Forms

pumpkin0312

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é ? :??:

Publicité

pumpkin0312

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.

pumpkin0312

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

pumpkin0312

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

recherche dans collection Forms

Sujets relatifs
Recherche code pour trier	Recherche code pour trier
[VBA] problème et recherche de date avec Find...	Recherche logiciel d'assistance de création de requetes
Collection References : ajouter une DLL automatiquement (Access 2000)	Recherche Galerie Photo [PHP]
Recherche d'un champ sur une base de données Oracle	Recherche de string ds un bloc mémoire sans type
[C#] Recherche moteur SMTP, et conseil pour intégration dans un prog	Pb de recherche dans un fichier
Plus de sujets relatifs à : recherche dans collection Forms

Page générée en 0.027 secondes