Discussion :

[didjac]

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

[LedZeppII]

Bonjour,

tu peux essayer avec l'opérateur TypeOf:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function init(source)
 
dim sourcetype As Integer
dim requete
 
'*** récupérer le nom de la table sous-jacente du recordset ou du formulaire
 
' Test du type de l'objet Source
If TypeOf source Is Access.Form Then sourcetype = 1
If TypeOf source Is DAO.Recordset Then sourcetype = 2
 
Select Case sourcetype
    Case 1
        requete = source.RecordSource
    Case 2
        requete = source.Name
    Case Else
	' Ni un formulaire, ni un recordset DAO
End Select
 
...
 
End Function

A+

[didjac]

Merci beaucoup.[RESOLU]