Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1548 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  recherche dans collection Forms

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

recherche dans collection Forms

n°725530
pumpkin031​2
Posté le 14-05-2004 à 09:50:09  profilanswer
 

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

Code :
  1. Function FormExist(NomForm As String) As Boolean
  2. Dim F As Form
  3. For Each F In Forms     
  4. If F.Name = NomForm Then: FormExist = True
  5. Next F
  6. 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é ?    :??:

mood
Publicité
Posté le 14-05-2004 à 09:50:09  profilanswer
 

n°725583
pumpkin031​2
Posté le 14-05-2004 à 10:30:16  profilanswer
 

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.  :(

n°725703
pumpkin031​2
Posté le 14-05-2004 à 11:17:18  profilanswer
 

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

n°725709
pumpkin031​2
Posté le 14-05-2004 à 11:21:02  profilanswer
 

voici le code final (qui marche!) :

Code :
  1. Function FormExist(NomForm As String) As Boolean
  2. On Error GoTo onerror_Err
  3. DoCmd.OpenForm (NomForm), , , , , acHidden
  4.     FormExist = True
  5. DoCmd.Close acForm, FrmNOm, acSaveYes
  6. onerror_Err:
  7.     If Err.Number = 2102 Then: Exit Function
  8. End Function


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  recherche dans collection Forms

 

Sujets relatifs
Recherche code pour trierRecherche 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 OracleRecherche de string ds un bloc mémoire sans type
[C#] Recherche moteur SMTP, et conseil pour intégration dans un progPb de recherche dans un fichier
Plus de sujets relatifs à : recherche dans collection Forms


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR