[VBA + Access] Comment récupérer la version de tous les formulaires?

Comment récupérer la version de tous les formulaires? [VBA + Access] - VB/VBA/VBS - Programmation

Marsh Posté le 04-06-2003 à 17:33:16    

Salut,
 
Je voudrais que chaque formulaire de mon appli Access soit capable de retourner sur demande sa Version.
 
Ainsi, dans le module de chaque formulaire, j'ai une procédure publique :
 

Code :
  1. Public Sub currentVersion
  2.   GetVersion = currentVersion
  3. End Sub


 
Maintenant, j'aimerais savoir si il est possible à travers un autre formulaire ou module quelconque d'accéder à toutes les méthodes currentVersionet ainsi de récupérer les versions de chacun de mes formulaires, par exemple avec un code du type :
 

Code :
  1. Private Sub Command1_Click()
  2. Dim tmpForm As AccessObject
  3. For Each tmpForm In CurrentProject.AllForms
  4.   MsgBox tmpForm.Currentversion
  5. Next tmpForm
  6. End Sub


 
Mais je sais bien sur que ca ne marchera pas, car CurrentVersion n'est pas une méthode de AccessObject...
 
Avez vous une idée de comment je pourrais faire ou alors comment récupérer une telle info d'une autre manière?
 
Merci.

Reply

Marsh Posté le 04-06-2003 à 17:33:16   

Reply

Sujets relatifs:

Leave a Replay

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