Bonjour,
j'ai écrit un module de classe dont une méthode reçoit en paramètre une référence d'objet, en l'occurence soit un recordset, soit un formulaire.
Comment identifier la classe de l'objet en question.
J'ai trouvé une parade en testant s'il s'agit d'un formulaire. Si non, je suppose que c'est obligatoirement un recordset, mais un danger subsiste.

Voic le code que j'ai utilisé, mais je me demande s'il n'y a pas une méthode plus sûre.

Function init(source)

dim estformulaire as integer
dim requete

'*** récupérer le nom de la table sous-jacente du recordset ou du formulaire

' l'objet source est-il un formulaire ouvert ?
estformulaire = SysCmd(acSysCmdGetObjectState, acForm, source.Name)
If estformulaire <> 0 Then
' formulaire
requete = source.RecordSource
Else
' recordset
requete = source.Name
End If

...

End Function